轉載請注明原文網址：
http://www.cnblogs.com/xianyunhe/archive/2011/09/25/2190485.html
通過VC實作對Excel表格的操作的方法有多種，如：通過ODBC資料庫實作，通過解析Excel表格檔案，通過OLE/COM的實作。本文主要研究通過OLE/COM實作對Excel表格的操作。
本文源碼的應用環境說明：
Windows XP SP3
Microsoft Visual Studio 2010
Microsoft Office Excel 2007
1、添加OLE/COM支援。
首先，應用程式必須添加對OLE/COM的支援，才能導入OLE/COM元件。
本文使用的是MFC對話框程式，在建立工程的向導中選中Automation選項即可為程式自動添加相應的頭檔案和OLE庫初始化代碼。
通過檢視源代碼，可以知道在stdafx.h的頭檔案中，添加了OLE/COM很多類所需添加的頭檔案。
#include <afxdisp.h> // MFC 自動化類
同時，在應用程式類的InitInstance函數中，添加了OLE/COM的初始化代碼，如下所示：
// 初始化 OLE 庫
if (!AfxOleInit())
{
AfxMessageBox(IDP_OLE_INIT_FAILED);
return FALSE;
}
2、導入并封裝Excel中的接口
Excel作為OLE/COM庫插件，定義好了各類互動的接口，這些接口是跨語言的接口。VC可以通過導入這些接口，并通過接口來對Excel的操作。
由于本文隻關心對Excel表格中的資料的讀取，主要關注幾個_Application、Workbooks、_Workbook、Worksheets、_Worksheet、Range等幾個接口。Excel的各類接口的屬性、方法可以通過MSDN的Office Development進行查詢。
VS2010導入OLE/COM元件的接口的步驟為：Project->Class Wizard->Add Class->MFC Class From TypeLib，先選擇要導入的元件所在的路徑，即Excel.exe所在的路徑，然後再選擇
要導入的Excel類型庫中的接口。
在完成接口導入後，VS2010将自動為導入的接口建立相應的實作類，用于對接口屬性和方法的實作。由于标準的C++沒有屬性通路器，隻能添加一個兩個存取函數來實作對屬性的通路，通過在屬性名稱前加上get_和put_字首分别實作對屬性的讀寫操作。即，由VC自動完成C++類對接口的封裝。
本文所導入的接口對應的類和頭檔案的說明如下所示：
| Excel接口 | 導入類 | 頭檔案 | 說明 |
| _Application | CApplicaton | Application.h | Excel應用程式。 |
| Workbooks | CWorkbooks | Workbooks.h | 工作簿的容器，裡面包括了Excel應用程式打開的所有工作簿。 |
| _Workbook | CWorkbook | Workbook.h | 單個工作簿。 |
| Worksheets | CWorksheets | Worksheets.h | 單個工作簿中的Sheet表格的容器，包括該工作簿中的所有Sheet。 |
| _Worksheet | CWorksheet | Worksheet.h | 單個Sheet表格。 |
| Range | CRange | Range.h | 一定數量的單元格，可對單元格進行單個或多個單元格進行操作。 |
3、導入Excel的整個類型庫
接口對應類隻是對接口的屬性和方法進行了封裝，而Excel中的資料類型，如枚舉類型卻并為并不能使用，是以，為了更友善的操作Excel，還需要導入Excel的資料類型。
通過檢視導入接口對應的頭檔案可以發現，在所有導入接口的頭檔案中，都會有這麼行：
#import "D:\\Program Files\\Microsoft Office\\Office12\\EXCEL.EXE" no_namespace
這行代碼的作用是導入Excel整個類型庫到工程中。
由VS2010自動産生的導入代碼存在以下幾個問題：
（1）如果導入了多個接口，每個頭檔案都會把類型庫導入一次，如果引用多個頭檔案，會導緻類型庫重複導入。
（2）Excel類型庫中有些類型會跟MFC類庫的某些類型沖突。
（3）Excel類型庫的某些類型跟其他Office和VB的某些庫相關，如果不導入相關庫，将導緻這些類型無法使用。。
以上三點問題的解決方法如下：
（1）僅在_Application接口對應頭檔案中導入Excel類型庫。
（2）對沖突的類型進行重命名。
（3）在導入Excel類型庫之前，先導入Office和VB的相關庫。
更改後的導入類型庫的代碼如下：
#import "C:\\Program Files\\Common Files\\Microsoft Shared\\OFFICE12\\MSO.DLL" \
rename("RGB", "MSORGB") \
rename("DocumentProperties", "MSODocumentProperties")
using namespace Office;
#import "C:\\Program Files\\Common Files\\Microsoft Shared\\VBA\\VBA6\\VBE6EXT.OLB"
using namespace VBIDE;
#import "D:\\Program Files\\Microsoft Office\\Office12\\EXCEL.EXE" \
rename("DialogBox", "ExcelDialogBox") \
rename("RGB", "ExcelRGB") \
rename("CopyFile", "ExcelCopyFile") \
rename("ReplaceText", "ExcelReplaceText") \
no_auto_exclude
Using namespace Excel;
編譯程式後，會在Debug或Release目錄下生成三個檔案mso.tlh、vbe6ext.tlh和excel.tlh。通過打開檔案可知，該三個檔案的命名空間分别是Office、VBIDE和Excel。導入了Excel的整個類型庫後，就可以使用Excel中的所有類型了。
4、操作Excel步驟
操作Excel的主要步驟如下：
（1）建立一個Excel應用程式。
（2）得到Workbook的容器。
（3）打開一個Workbook或者建立一個Workbook。
（4）得到Workbook中的Worksheet的容器。
（5）打開一個Worksheet或者建立一個WorkSheet。
（6）通過Range對WorkSheet中的單元格進行讀寫操作。
（7）儲存Excel。
（8）釋放資源。
5、批量處理Excel表格
VC通過OLE/COM操作Excel，是通過程序間的元件技術。是以，每次讀寫Excel中的單元格時，都要進行程序間的切換。當資料量大，如果一個單元格一個單元格的讀取，主要的時間都花費在程序切換中。是以讀取多個單元格，将可有效的提高程式的運作效率。
對多個單元格的讀寫操作可以通過CRange中以下兩個成員函數來完成。
VARIANT get_Value2();
void put_Value2(VARIANT& newValue);
其中，輸入參數newValue隻要輸入一個二維數組，即可實作向Excel中一次寫入多個單元格的值。
其中，VARIANT中實作二維資料的方法可參考
http://www.cnblogs.com/xianyunhe/archive/2011/09/13/2174703.html
當然，在對CRange類進行操作之前，要設定CRange類對應的單元格。
6、Excel表格的儲存
（1）如果要儲存打開的工作簿，使用CWorkbook類的Save函數就可以儲存工作簿，原檔案将被覆寫。
（2）如果是新建立的工作簿，或者是要另存為，可使用CWorkbook類的SaveAs函數。
SaveAs的參數比較多。其中，第1個參數是設定要儲存檔案的路徑；第2個參數是設定檔案的格式，可在MSDN中檢視枚舉類型XlFileFormat來了解Excel的檔案格式。經過測試，在本文所用的測試環境中，Excel2003的檔案格式是xlExcel8，Excel2007的檔案格式是xlExcel4。
7、擷取目前Excel的版本
可以通過CApplication的get_Version函數來獲得Excel的版本，其中，Excel2007的主版本号是12，Excel2003的主版本号是11。
8、示例源代碼
主要代碼如下：
m_ListCtrl.SetExtendedStyle(LVS_REPORT | LVS_EX_FULLROWSELECT);
CApplication ExcelApp;
CWorkbooks books;
CWorkbook book;
CWorksheets sheets;
CWorksheet sheet;
CRange range;
LPDISPATCH lpDisp = NULL;
//建立Excel 伺服器(啟動Excel)
if(!ExcelApp.CreateDispatch(_T("Excel.Application"),NULL))
{
AfxMessageBox(_T("啟動Excel伺服器失敗!"));
return -1;
}
CString strExcelVersion = ExcelApp.get_Version();
int iStart = 0;
strExcelVersion = strExcelVersion.Tokenize(_T("."), iStart);
if (_T("11") == strExcelVersion)
{
AfxMessageBox(_T("目前Excel的版本是2003。"));
}
else if (_T("12") == strExcelVersion)
{
AfxMessageBox(_T("目前Excel的版本是2007。"));
}
else
{
AfxMessageBox(_T("目前Excel的版本是其他版本。"));
}
ExcelApp.put_Visible(TRUE);
ExcelApp.put_UserControl(FALSE);
books.AttachDispatch(ExcelApp.get_Workbooks());
CString strBookPath = _T("C:\\tmp.xls");
try
{
lpDisp = books.Open(strBookPath,
vtMissing, vtMissing, vtMissing, vtMissing, vtMissing,
vtMissing, vtMissing, vtMissing, vtMissing, vtMissing,
vtMissing, vtMissing, vtMissing, vtMissing);
book.AttachDispatch(lpDisp);
}
catch(...)
{
lpDisp = books.Add(vtMissing);
book.AttachDispatch(lpDisp);
}
sheets.AttachDispatch(book.get_Sheets());
CString strSheetName = _T("NewSheet");
try
{
lpDisp = sheets.get_Item(_variant_t(strSheetName));
sheet.AttachDispatch(lpDisp);
}
catch(...)
{
lpDisp = sheets.Add(vtMissing, vtMissing, _variant_t((long)1), vtMissing);
sheet.AttachDispatch(lpDisp);
sheet.put_Name(strSheetName);
}
system("pause");
lpDisp = sheet.get_Range(_variant_t("A1"), _variant_t("J10"));
range.AttachDispatch(lpDisp);
VARTYPE vt = VT_I4;
SAFEARRAYBOUND sabWrite[2];
sabWrite[0].cElements = 10;
sabWrite[0].lLbound = 0;
sabWrite[1].cElements = 10;
sabWrite[1].lLbound = 0;
COleSafeArray olesaWrite;
olesaWrite.Create(vt, sizeof(sabWrite)/sizeof(SAFEARRAYBOUND), sabWrite);
long (*pArray)[2] = NULL;
olesaWrite.AccessData((void **)&pArray);
memset(pArray, 0, sabWrite[0].cElements * sabWrite[1].cElements * sizeof(long));
olesaWrite.UnaccessData();
pArray = NULL;
long index[2] = {0, 0};
long lFirstLBound = 0;
long lFirstUBound = 0;
long lSecondLBound = 0;
long lSecondUBound = 0;
olesaWrite.GetLBound(1, &lFirstLBound);
olesaWrite.GetUBound(1, &lFirstUBound);
olesaWrite.GetLBound(2, &lSecondLBound);
olesaWrite.GetUBound(2, &lSecondUBound);
for (long i = lFirstLBound; i <= lFirstUBound; i++)
{
index[0] = i;
for (long j = lSecondLBound; j <= lSecondUBound; j++)
{
index[1] = j;
long lElement = i * sabWrite[1].cElements + j;
olesaWrite.PutElement(index, &lElement);
}
}
VARIANT varWrite = (VARIANT)olesaWrite;
range.put_Value2(varWrite);
system("pause");
CString strSaveAsName = _T("C:\\new.xlsx");
CString strSuffix = strSaveAsName.Mid(strSaveAsName.ReverseFind(_T('.')));
XlFileFormat NewFileFormat = xlOpenXMLWorkbook;
if (0 == strSuffix.CompareNoCase(_T(".xls")))
{
NewFileFormat = xlExcel8;
}
book.SaveAs(_variant_t(strSaveAsName), _variant_t((long)NewFileFormat), vtMissing, vtMissing, vtMissing,
vtMissing, 0, vtMissing, vtMissing, vtMissing,
vtMissing, vtMissing);
system("pause");
VARIANT varRead = range.get_Value2();
COleSafeArray olesaRead(varRead);
VARIANT varItem;
CString strItem;
lFirstLBound = 0;
lFirstUBound = 0;
lSecondLBound = 0;
lSecondUBound = 0;
olesaRead.GetLBound(1, &lFirstLBound);
olesaRead.GetUBound(1, &lFirstUBound);
olesaRead.GetLBound(2, &lSecondLBound);
olesaRead.GetUBound(2, &lSecondUBound);
memset(index, 0, 2 * sizeof(long));
m_ListCtrl.InsertColumn(0, _T(""), 0, 100);
for (long j = lSecondLBound; j<= lSecondUBound; j++)
{
CString strColName = _T("");
strColName.Format(_T("%d"), j);
m_ListCtrl.InsertColumn(j, strColName, 0, 100);
}
for (long i = lFirstLBound; i <= lFirstUBound; i++)
{
CString strRowName = _T("");
strRowName.Format(_T("%d"), i);
m_ListCtrl.InsertItem(i-1, strRowName);
index[0] = i;
for (long j = lSecondLBound; j <= lSecondUBound; j++)
{
index[1] = j;
olesaRead.GetElement(index, &varItem);
switch (varItem.vt)
{
case VT_R8:
{
strItem.Format(_T("%d"), (int)varItem.dblVal);
}
case VT_BSTR:
{
strItem = varItem.bstrVal;
}
case VT_I4:
{
strItem.Format(_T("%ld"), (int)varItem.lVal);
}
default:
{
}
}
m_ListCtrl.SetItemText(i-1, j, strItem);
}
}
sheet.ReleaseDispatch();
sheets.ReleaseDispatch();
book.ReleaseDispatch();
books.ReleaseDispatch();
ExcelApp.Quit();
ExcelApp.ReleaseDispatch();
複制代碼
示例源代碼的工程檔案的下載下傳連結如下：
http://files.cnblogs.com/xianyunhe/ReadWriteExcel.rar
![寫在工作13周年[圖]](data:image/gif;base64,R0lGODlhAQABAIAAAP///wAAACwAAAAAAQABAAACAkQBADs=)