可以通过COM API调用才是正解,不过需要编写COM接口类,Excel对象库的接口太多了……不过可以用工具自动生成。

我最近也在用VC操作Excel,在VC中可以这样做,在任何一个cpp文件中加入下面三行:

 #import "C:\Program Files\Common Files\Microsoft Shared\OFFICE11\MSO.DLL" rename("RGB","rgb") rename("DocumentProperties", "document_properties")
#import "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB"
#import "D:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE" rename("RGB","rgb") rename("DialogBox", "dialog_box")

然后编译。

注意,这样编译是通不过的,不过没关系,在Debug目录中你会看到mso.tlh、mso.tli、vb6ext.tlh、vb6ext.tli、excel.tlh、excel.tli六个文件,它们就是VC编译器通过类型库信息自动生成的接口类型定义和一些辅助类。把它们复制到你的源代码目录,然后打开vb6ext.tlh,进行修改:

 #include <comdef.h>
#include "mso.tlh" //加入这一行 namespace VBIDE
{
using namespace Office;//加入这一行
...

再修改excel.tlh文件:

 #include <comdef.h>
#include "mso.tlh" //加入这一行
#include "vbe6ext.tlh" //加入这一行 namespace Excel
{
using namespace VBIDE;//加入这一行

这时把那三行#import删除,换成#include "excel.tlh"就可以用了:

 #include "stdafx.h"
#include "excel.tlh"
#include <iostream> int _tmain(int argc, _TCHAR* argv[]) {
CoInitializeEx( , COINIT_APARTMENTTHREADED );
Excel::_ApplicationPtr xApp;
xApp.CreateInstance(__uuidof(Excel::Application));
Excel::_WorkbookPtr xBook = xApp->Workbooks->Open(L"test.xsl");
Excel::_WorksheetPtr xSheet = xBook->ActiveSheet; _bstr_t text = xSheet->Range[L"A1"][vtMissing]->Text;//读取单元格内容,_bstr_t封装了COM宽字符串BSTR
std::cout << static_cast<char const *>(text);//_bstr_t类定义了到char const *的类型转换,会把unicode字符串转换为当前代码页的多字节编码字符串
return ;
}

把Excel作为数据库直接通过ODBC方式读取

 #include <odbcinst.h>
#include <afxdb.h> CString strXlsFileName = "X:\\XXX.xls";
CString strSql;
strSql.Format(L"DRIVER={MICROSOFT EXCEL DRIVER (*.xls)};DSN='';FIRSTROWHASNAMES=1;READONLY=FALSE;CREATE_DB=\"%s\";DBQ=%s", strXlsFileName, strXlsFileName); CDatabase *pCDatabase = new CDatabase;
pCDatabase->OpenEx(strSql, CDatabase::noOdbcDialog); CString strSheetName = "你要操作的表名称";
CString strSql;
strSql.Format(L"SELECT * FROM [%s$A1:IV65536]", strSheetName); CRecordset *pCRecordset = new CRecordset(pCDatabase);
pCRecordset->Open(CRecordset::forwardOnly, strSql, CRecordset::readOnly); CString strField;
pCRecordset->GetFieldValue((short), strField);//读取第1行第1列的单元格内容
pCRecordset->GetFieldValue((short), strField);//第1行第4列
pCRecordset->MoveNext();//游标指向下一行,再用GetFieldValue就可以读取下一行的内容
05-11 10:54