(OK)Vs200 使用Automation读写Excel文件和XML文件.docVIP

Vs2008 使用Automation读写Excel文件和XML文件Vs2008 读写Excel文件和XML文件 概述：Vs2008 MFC 程序，打开Excel文件，按每行为一个元素，保存至XML格式。 利用Automation技术，可以很方便的操作Excel，而不需要了解ADO方法了。 下面的资料都是不需要资源分的，^_^！ MFC工程已经上传，下载地址：/source/2652452 操作Excel文件的参考文档，都是网页的pdf版，下载地址：/source/2652444 操作Xml文件的参考文档，同样是网页的pdf版，下载地址：/source/2652448 下面是相应步骤： 1. 建立MFC工程，MDI，其他默认即可。 2. 操作Excel文件： a. project-add class-MFC class from typelib 导入Excel.exe，一般都在C:/Program Files/Microsoft Office/Office12路径下； b. 选中以下几项_Application,_WorkSheet,_WorkBook,WorkSheets,WorkBooks,Range，然后导入； c. 导入后在工程中添加CApplication,CWorkSheet,CWorkBook,CWorkSheets,CWorkBooks,CRange这些类； 然后需要把这些类的头文件中的第一句话 #import .......EXCEL.EXE nonamespace 删除； 引入之后如果编译遇到错误，Not enough actual parameters for macro DialogBoxW. 让人头疼！ 解决方法是在CRange类中， VARIANT DialogBox(){ VARIANT result; InvokeHelper(0xf5, DISPATCH_METHOD, VT_VARIANT, (void*)result, NULL); return result;} DialogBox()前面添加下划线变成_DialogBox()，解决了！ d. 具体读写Excel文件的步骤可以参考上面给的相关文档，文档中的大致步骤如下： CApplication app;CWorkbooks books;CWorkbook book;CWorksheets sheets;CWorksheet sheet;CRange range;CRange iCell;LPDISPATCH lpDisp;COleVariant vResult;COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR); //*****//创建Excel服务器(启动Excel)if(!app.CreateDispatch(Excel.Application)){AfxMessageBox(无法启动Excel服务器!);return;} //*****//打开*.xlsbooks.AttachDispatch(app.GetWorkbooks());lpDisp = books.Open(*.xls,covOptional, covOptional, covOptional, covOptional, covOptional,covOptional, covOptional, covOptional, covOptional, covOptional,covOptional, covOptional ); //*****//得到Workbookbook.AttachDispatch(lpDisp); //*****//得到Worksheetssheets.AttachDispatch(book.GetWorksheets()); //*****//得到当前活跃sheet//如果有单元格正处于编辑状态中，此操作不能返回，会一直等待lpDisp=book.GetActiveSheet();sheet.AttachDispatch(lpDisp); //*****//读取第一个单元格的值range.AttachDispatch(sheet.GetCells());range.AttachDispatch(range.GetItem (COleVariant((long)1),COleVariant((long)1)).pdispVal );COleVariant vResult =range.GetValue();CString str;if(vR