C++讀寫excel資料講解

1、Cexcel精品資料精品資料僅供學(xué)習(xí)與交流，如有侵權(quán)請聯(lián)系網(wǎng)站刪除謝謝僅供學(xué)習(xí)與交流，如有侵權(quán)請聯(lián)系網(wǎng)站刪除謝謝 PAGE 5在 Visual C+ 中調(diào)用 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在開發(fā)軟件時，經(jīng)常要將數(shù)據(jù)輸出到 Excel 2000 中，在 Excel 2000 中對該數(shù)據(jù)進(jìn)行Visual Basic 中處理起來較簡單，Excel 2000 VB Visual C+中如何進(jìn)行處理了？利用Excel 2000 ActiveX Automate VB 中類似。但要注意以下幾點：對于對象的屬性值的讀取或賦值，需要用 GetProperty()或 SetProperty(NewValue)函數(shù)，不能象 VB 中直接通過屬性名稱取值或賦值。例如：Worksheet.GetCount(),Worksheet.SetName(“Sh

5、eet1”)。GetItem()函數(shù)。例如： Worksheets.GetItem(ColeVariant(long)1)或Worksheets.GetItem(ColeVariant(“Sheet1”)取得第一個工作表。COMVariant，BSTR，SafeArray數(shù)據(jù)類型。Variant數(shù)據(jù)類型MSDN中的相關(guān)介紹，類_variant_t 是對 VARIANT 數(shù)據(jù)類型的封裝。在 Excel 2000 的 VB 編程幫助中，如果VariantExcel2000 對象的類定義中，說明了具體需要的數(shù)據(jù)類型。BSTR是一個包括了字符串和字符串長度的數(shù)據(jù)結(jié)構(gòu)，類_bstr_tBSTRExcel

6、2000VB編程幫BSTR。具體函數(shù)參數(shù)或?qū)傩缘臄?shù)據(jù)類型，見封裝該對象的類的定義。SafeArray是一個包括數(shù)組和數(shù)組邊界的結(jié)構(gòu)，數(shù)組邊界外的內(nèi)容不允許訪Excel2000VBSafeArraySafeArray MSDN的相關(guān)幫助。VBVC+所有的參數(shù)填寫完全。如果你希望指定某個參數(shù)為缺省值，根據(jù)參數(shù)數(shù)據(jù)類型的不同， 0VariantvtMissingcomdef.h中定義。也可用_variant_t(DISP_E_PARAMNOTFOUND, VT_ERROR)產(chǎn)生一個 Variant 對象。Excel對象中的集合對象有時包括的子對象是不一定的，例如：Range對象，可以表示CellCo

7、lumnRow的集合，Range.GetItem(1)可以返CellColumnRow對象。對對象的引用或傳遞對象，使用 IDispatch 類對象，有時利用 Variant 對 IDispatch進(jìn)行包裝。Excel 2000，利用一個模板文件產(chǎn)生一個新文檔， 在該文檔的”Sheet1”Excel 文檔。模板文件名稱： MyTemplate.xltVisual C+6.0 sp4，Windows 2000 Professional sp- 1 下調(diào)試通過。Visual C+6.0MFC DLL， Win32 ExcelTest。在主對話框中加入一個按鈕，ID IDC_EXCELTESTCap

8、tion Test Excel雙擊該按鈕，增加成員函數(shù) 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是本機(jī)上Microsoft Office 2000 的安裝目錄，可根據(jù)個人機(jī)器上的實際安裝目錄修改)。選擇_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() 函數(shù)中增加如下代碼：void CExcelTestDlg:OnExceltest()_Application ExcelApp; Workbooks wbsMyBooks;_Workbook wbMyBook; Worksheets wssMysheets;_Worksheet wsMysheet; Range rgMyRge;/創(chuàng)建 Excel 2000 服務(wù)器(啟動

11、 Excel)if (!ExcelApp.CreateDispatch(Excel.Application,NULL)AfxMessageBox(Excel 服務(wù)失敗!); 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);/設(shè)置 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);/設(shè)置列寬rgMyRge.SetColumnWidth(_variant_t(long)200);/調(diào)用模板中預(yù)先存放的宏ExcelApp.Run(_variant_t(CopyRow),_variant_t(long)10),vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing,vtMissing);/打印預(yù)覽wbMyBook.SetSaved(true); ExcelApp.SetVisible(true);wbMyBook.PrintPreview(