Excel是常用的辦公軟件之一，本文以Excel2003為例說明VC程序讀取Excel文件的方法。具體步驟如下：
1.首先要將excel類添加到工程中。
在ClassWizard中，【Add Class】，在Excel的安裝目錄找到Excel.exe（Microsoft2003是Excel.exe；2007應該又獨立的lib庫，這個沒有驗證），添加必要的幾個類：
|
1
2
3
4
5
6
7
|
// Excel應用對象_Application m_oExcelApp; // Excel程序_Worksheet m_oWorkSheet; // 工作表_Workbook m_oWorkBook; // 工作簿Workbooks m_oWorkBooks; // 工作簿集合Worksheets m_oWorkSheets; // 工作表集合Range m_oCurrRange; // 使用區域 |
添加到工程中的文件是excel.h和excel.cpp。
2.初始化Com庫
|
1
2
3
4
5
|
if (CoInitialize(NULL)!=0){ AfxMessageBox("初始化COM支持庫失敗!"); exit(1);} |
3.讀取文件中的數據
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
if (!m_oExcelApp.CreateDispatch( _T( "Excel.Application" ), NULL ) ){ ::MessageBox( NULL, _T( "創建Excel服務失??！" ), _T( "錯誤提示！" ), MB_OK | MB_ICONERROR); exit(1);}//設置為顯示m_oExcelApp.SetVisible(FALSE);m_oWorkBooks.AttachDispatch( m_oExcelApp.GetWorkbooks(), TRUE ); //沒有這條語句，下面打開文件返回失敗。LPDISPATCH lpDisp = NULL;COleVariant covTrue((short)TRUE);COleVariant covFalse((short)FALSE);COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR); Range oCurCell;// 打開文件lpDisp = m_oWorkBooks.Open( strFilePath, _variant_t(vtMissing), _variant_t(vtMissing), _variant_t(vtMissing), _variant_t(vtMissing), _variant_t(vtMissing), _variant_t(vtMissing), _variant_t(vtMissing), _variant_t(vtMissing), _variant_t(vtMissing), _variant_t(vtMissing), _variant_t(vtMissing), _variant_t(vtMissing), _variant_t(vtMissing), _variant_t(vtMissing) );// 獲得活動的WorkBook( 工作簿 )m_oWorkBook.AttachDispatch( lpDisp, TRUE );// 獲得活動的WorkSheet( 工作表 )m_oWorkSheet.AttachDispatch( m_oWorkBook.GetActiveSheet(), TRUE );// 獲得使用的區域Range( 區域 )m_oCurrRange.AttachDispatch( m_oWorkSheet.GetUsedRange(), TRUE );// 獲得使用的行數long lgUsedRowNum = 0;m_oCurrRange.AttachDispatch( m_oCurrRange.GetRows(), TRUE );lgUsedRowNum = m_oCurrRange.GetCount();// 獲得使用的列數long lgUsedColumnNum = 0;m_oCurrRange.AttachDispatch( m_oCurrRange.GetColumns(), TRUE );lgUsedColumnNum = m_oCurrRange.GetCount();// 讀取Sheet的名稱CString strSheetName = m_oWorkSheet.GetName();//得到全部Cells，此時,CurrRange是cells的集合m_oCurrRange.AttachDispatch( m_oWorkSheet.GetCells(), TRUE );// 遍歷整個Excel表格CStringArray* arrayStr;arrayStr = new CStringArray[lgUsedRowNum];for ( int i = 0; i < lgUsedRowNum; ){ for ( int j = 1; j <= lgUsedColumnNum; ) { oCurCell.AttachDispatch( m_oCurrRange.GetItem( COleVariant( (long)(i + 1)), COleVariant( (long)j ) ).pdispVal, TRUE ); VARIANT varItemName = oCurCell.GetText(); CString strItemName; strItemName = varItemName.bstrVal;// AfxMessageBox( strItemName ); // 判斷是否是合并的單元格 VARIANT varMerge = oCurCell.GetMergeCells(); if ( varMerge.boolVal == -1 ) {// AfxMessageBox( _T( "是合并的單元格!" ) ); } else if ( varMerge.boolVal == 0 ) {// AfxMessageBox( _T( "不是合并的單元格!" ) ); } arrayStr[i].Add( strItemName ); j++; } i++;}// 更新列表控件數據m_pExcelOperDlg->initListCtrlColumn( lgUsedColumnNum );m_pExcelOperDlg->updateListCtrlData( arrayStr, lgUsedRowNum );// 釋放二維數組delete[] arrayStr;// 關閉m_oWorkBook.Close( covOptional, COleVariant( strFilePath ), covOptional );m_oWorkBooks.Close();// 釋放m_oCurrRange.ReleaseDispatch();m_oWorkSheet.ReleaseDispatch();m_oWorkSheets.ReleaseDispatch();m_oWorkBook.ReleaseDispatch();m_oWorkBooks.ReleaseDispatch();m_oExcelApp.ReleaseDispatch();m_oExcelApp.Quit(); // 這條語句是推出Excel程序，任務管理器中的EXCEL進程會自動結束。 |
補充：本文所述程序實例完整源碼點此下載
