C++读写excel资料讲解

1、Cexcel精品资料精品资料仅供学习与交流，如有侵权请联系网站删除谢谢仅供学习与交流，如有侵权请联系网站删除谢谢 PAGE 5在 Visual C+ 中调用 Excel 2000程 蓬#ifdef USE_OFFICEXP#import C:Program FilesCommon FilesMicrosoft SharedOffice10MSO.DLL#import c:Program FilesCommon FilesMicrosoft SharedVBAVBA6VBE6EXT.olb#import c:Program FilesMicrosoftOfficeOffice10MSWORD.o

2、lb rename(ExitWindows,ExitWindowsEx)#import c:Program FilesMicrosoft OfficeOffice10excel.exe rename(DialogBox, DialogBoxXL) rename(RGB, RBGXL)rename(DocumentProperties, DocumentPropertiesXL) exclude(IFont,IPicture)#else#import c:Program FilesMicrosoft OfficeOfficeMSO9.dll#import C:Program FilesCommo

3、n FilesMicrosoft SharedVBAVBA6VBE6EXT.OLB no_namespace#import c:Program FilesMicrosoftOfficeOfficeMSWORD9.OLB rename(ExitWindows,_ExitWindows)#import c:Program FilesMicrosoft OfficeOfficeexcel9.olb rename(DialogBox, DialogBoxXL) rename(RGB, RBGXL)rename(DocumentProperties, DocumentPropertiesXL) excl

4、ude(IFont,IPicture)#endif在开发软件时，经常要将数据输出到 Excel 2000 中，在 Excel 2000 中对该数据进行Visual Basic 中处理起来较简单，Excel 2000 VB Visual C+中如何进行处理了？利用Excel 2000 ActiveX Automate VB 中类似。但要注意以下几点：对于对象的属性值的读取或赋值，需要用 GetProperty()或 SetProperty(NewValue)函数，不能象 VB 中直接通过属性名称取值或赋值。例如：Worksheet.GetCount(),Worksheet.SetName(“Sh

5、eet1”)。GetItem()函数。例如： Worksheets.GetItem(ColeVariant(long)1)或Worksheets.GetItem(ColeVariant(“Sheet1”)取得第一个工作表。COMVariant，BSTR，SafeArray数据类型。Variant数据类型MSDN中的相关介绍，类_variant_t 是对 VARIANT 数据类型的封装。在 Excel 2000 的 VB 编程帮助中，如果VariantExcel2000 对象的类定义中，说明了具体需要的数据类型。BSTR是一个包括了字符串和字符串长度的数据结构，类_bstr_tBSTRExcel

6、2000VB编程帮BSTR。具体函数参数或属性的数据类型，见封装该对象的类的定义。SafeArray是一个包括数组和数组边界的结构，数组边界外的内容不允许访Excel2000VBSafeArraySafeArray MSDN的相关帮助。VBVC+所有的参数填写完全。如果你希望指定某个参数为缺省值，根据参数数据类型的不同， 0VariantvtMissingcomdef.h中定义。也可用_variant_t(DISP_E_PARAMNOTFOUND, VT_ERROR)产生一个 Variant 对象。Excel对象中的集合对象有时包括的子对象是不一定的，例如：Range对象，可以表示CellCo

7、lumnRow的集合，Range.GetItem(1)可以返CellColumnRow对象。对对象的引用或传递对象，使用 IDispatch 类对象，有时利用 Variant 对 IDispatch进行包装。Excel 2000，利用一个模板文件产生一个新文档， 在该文档的”Sheet1”Excel 文档。模板文件名称： MyTemplate.xltVisual C+6.0 sp4，Windows 2000 Professional sp- 1 下调试通过。Visual C+6.0MFC DLL， Win32 ExcelTest。在主对话框中加入一个按钮，ID IDC_EXCELTESTCap

8、tion Test Excel双击该按钮，增加成员函数 void CExcelTestDlg:OnExceltest()。BOOL CExcelTestApp:InitInstance()中，dlg.DoModal();之前增加代码： if (CoInitialize(NULL)!=0)AfxMessageBox(COM 支持库失败!); exit(1);在 return FALSE; 语句前，加入：CoUninitialize();选择 Menu-View-ClassWizade，打开 ClassWizade 窗口，选择 Add Class-From a type library，选择 D:

9、Program FilesMicrosoftOfficeofficeExcel9.OLB(D:Program FilesMicrosoft Office是本机上Microsoft Office 2000 的安装目录，可根据个人机器上的实际安装目录修改)。选择_Application、Workbooks、_Workbook、Worksheets、_Worksheet、Range，加入新类，分别为_Application、Workbooks、_Workbook、Worksheets、_Worksheet、Range，头文件 Excel9.h，源文件 Excel9.cpp。在 ExcelTestDl

10、g.cpp 文件的头部，#include ExcelTestDlg.h语句之下，增加 ：#include comdef.h #include Excel9.h在 void CExcelTestDlg:OnExceltest() 函数中增加如下代码：void CExcelTestDlg:OnExceltest()_Application ExcelApp; Workbooks wbsMyBooks;_Workbook wbMyBook; Worksheets wssMysheets;_Worksheet wsMysheet; Range rgMyRge;/创建 Excel 2000 服务器(启动

11、 Excel)if (!ExcelApp.CreateDispatch(Excel.Application,NULL)AfxMessageBox(Excel 服务失败!); exit(1);/利用模板文件建立新文档wbsMyBooks.AttachDispatch(ExcelApp.GetWorkbooks(),true);wbMyBook.AttachDispatch(wbsMyBooks.Add(_variant_t(g:exceltestMyTemplate.xlt);/ 得 到 Worksheets wssMysheets.AttachDispatch(wbMyBook.GetWork

12、sheets(),true);/ 得 到 sheet1 wsMysheet.AttachDispatch(wssMysheets.GetItem(_variant_t(sheet1),true);/得到全部 Cells，此时,rgMyRge 是 cells 的集合rgMyRge.AttachDispatch(wsMysheet.GetCells(),true);/设置 1 行 1 列的单元的值rgMyRge.SetItem(_variant_t(long)1),_variant_t(long)1),_variant_t(This Is A Excel Test Program!);/得到所有的

13、列rgMyRge.AttachDispatch(wsMysheet.GetColumns(),true);/得到第一列rgMyRge.AttachDispatch(rgMyRge.GetItem(_variant_t(long)1),vtMissing).pdispVal,true);/设置列宽rgMyRge.SetColumnWidth(_variant_t(long)200);/调用模板中预先存放的宏ExcelApp.Run(_variant_t(CopyRow),_variant_t(long)10),vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing);/打印预览wbMyBook.SetSaved(true); ExcelApp.SetVisible(true);wbMyBook.PrintPreview(