vs2010操作office2010

目的：通过vc++读取和写入excel
环境：vs2012 office2010
1.创建一个新的工程，选择mfc application，选择dialog，在advanced features选择automation（这一项我不确定有没有必要，查资料说要选上，我就选上了）
2.创建完工程后，在dialog对话框上右击，选择class wizard（或是ctrl+shift+x)
3.在add class下拉框内选择add class from typelib
4.在add class from下面选择file，然后你的office安装目录下的EXCEL.EXE（我的目录是C:Program Files (x86)Microsoft OfficeOffice14EXCEL.EXE）
5.在下面添加6个类到我们的工程，（_Application, Worksheets, _Worksheet, Workbooks, _Workbook, Range）注意有的有下划线，别添加错了
6.这个时候如果直接编译程序会提示错误，大体错误的信息如下
大体错误的信息如下
[plain] view plain copy
Error 1 error C1083: Cannot open compiler generated file: ‘d:codevcexceltojsonexceltojsondebugexcel.tlh’: Permission denied d:codevcexceltojsonexceltojsoncapplication.h 3 1 EXCELToJSON

[plain] view plain copy
2 IntelliSense: declaration modifiers are incompatible with previous declaration d:codeVCEXCELToJSONEXCELToJSONDebugexcel.tlh 573 19 EXCELToJSON

出现很多错误，几乎都与excel.tlh这个文件相关。
解决方法就是把导入的6个类对应的头文件最开始的一句话
[cpp] view plain copy

import “C:Program Files (x86)Microsoft OfficeOffice14EXCEL.EXE” no_namespace

注释掉，也就是删掉。具体原因不明，估计是这个已经更新不用了，但是模版里面没有改。所以引用了没有的东西出的错
7.做完上面的操作，再编译一下，可能还有错误，错误提示如下：
[plain] view plain copy
Error 2 error C2059: syntax error : ‘,’ d:codevcexceltojsonexceltojsoncrange.h 336 1 EXCELToJSON

[plain] view plain copy
3 IntelliSense: expected a type specifier d:codeVCEXCELToJSONEXCELToJSONCRange.h 336 10 EXCELToJSON

解决方法，把Range这个类自动生成的头文件（我这是CRage.h）里面的
[cpp] view plain copy
VARIANT DialogBox()
{
VARIANT result;
InvokeHelper(0xf5, DISPATCH_METHOD, VT_VARIANT, (void*)&result, NULL);
return result;
}

改成
[cpp] view plain copy
VARIANT _DialogBox()
{
VARIANT result;
InvokeHelper(0xf5, DISPATCH_METHOD, VT_VARIANT, (void*)&result, NULL);
return result;
}

也就是前面加一个下划线。具体原因不明，估计是新版本后有同名的函数
（PS: 汗，话说ms也真够坑爹，自己的各种不兼容）
8.这个时候编译一下，估计没什么问题了，那么我们就需要写代码操作excel了。网上找的代码都差不多，不过里面有几句初始化com的
[cpp] view plain copy
::CoInitialize(NULL);
if(!AfxOleInit())
{
AfxMessageBox(L”cannot initialize com”);
return 0;
}
::CoUninitialize();

在新版本的vs上会引起这个错误
Debug Assertion Failed!
Program: D:codeVCEXCELToJSONDebugEXCELToJSON.exe
File: f:ddvctoolsvc7libsshipatlmfcsrcmfcoleinit.cpp
Line: 49
For information on how your program can cause an assertion failure, see the Visual C++ documentation on asserts.
(Press Retry to debug the application)
这个错误提示更是个坑，主要原因是你的com组件初始化了两次。是由AfxOleInit这个函数导致的。（PS：你说我初始化两次不行，直说不就行了，整得跟真事似的，我哪来的f盘。真是无语。再说，这么常见的问题，为什么不能有一个准确的解释）
解决方法就是把这一段初始化的程序删掉，不用了。为什么？你可以全局匹配一下AfxOleInit，你会发现在app class内（就是和你的dlg class同名，仅仅差了Dlg的一个创建工程是系统自建的类，比如我的EXCELToJSONDlg.cpp，我们的代码大部分都是写到这里面，然后会有一个EXCELToJSON.cpp类。就是在这个类里面），系统自建的代码有了这个初始化的程序：

[cpp] view plain copy
// Initialize OLE libraries
if (!AfxOleInit())
{
AfxMessageBox(IDP_OLE_INIT_FAILED);
return FALSE;
}

9.这样应该没什么问题了，在你的程序内引入上面6个类的头文件，然后就可以操作了。实例如下：
[cpp] view plain copy

include “stdafx.h”

include “EXCELToJSON.h”

include “EXCELToJSONDlg.h”

include “DlgProxy.h”

include “afxdialogex.h”

include “CApplication.h”

include “CRange.h”

include “CWorkbook.h”

include “CWorkbooks.h”

include “CWorksheet.h”

include “CWorksheets.h”

void CEXCELToJSONDlg::OnBnClickedButtonConvert()
{
// TODO: Add your control notification handler code here
CApplication app;
CRange range;
CWorkbook book;
CWorkbooks books;
CWorksheet sheet;
CWorksheets sheets;
LPDISPATCH lpdisp;
COleVariant vresult;
COleVariant covtrue((short)TRUE);
COleVariant covfalse((short)FALSE);
COleVariant covoptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);

//create the server  
if(!app.CreateDispatch(L"Excel.Application"))  
{  
    AfxMessageBox(L"Cannot start Excel server");  
    return;  
}  
app.put_Visible(FALSE);  
books.AttachDispatch(app.get_Workbooks());  

//open file  
lpdisp = books.Open(  
    ExcelFile,  
    covoptional, covfalse, covoptional, covoptional, covoptional,  
    covoptional, covoptional, covoptional, covoptional, covoptional,  
    covoptional, covoptional, covoptional, covoptional);  

//get workbook  
book.AttachDispatch(lpdisp);  

//get worksheets  
sheets.AttachDispatch(book.get_Worksheets());  

lpdisp = book.get_ActiveSheet();  
sheet.AttachDispatch(lpdisp);  

//get the used range  
CRange usedrange;  
usedrange.AttachDispatch(sheet.get_UsedRange());  

//get used row  
range.AttachDispatch(usedrange.get_Rows());  
long irownum = range.get_Count();  
long istartrow = usedrange.get_Row();  

//get used column  
range.AttachDispatch(usedrange.get_Columns());  
long icolnum = range.get_Count();  
long istartcol = usedrange.get_Column();  

CString skey = L"";  
CString svalue = L"";  
for(int j=2; j<icolnum+1; j++)  
{  
    JSON JSONObject;  
    range.AttachDispatch(usedrange.get_Item(COleVariant((long)1), COleVariant((long)j)).pdispVal);  
    vresult = range.get_Text();       
    JSONObject.LanguageTag = vresult.bstrVal;  
    for(int i=2; i<irownum+1; i++)  
    {  
        range.AttachDispatch(usedrange.get_Item(COleVariant((long)i), COleVariant((long)1)).pdispVal);  
        vresult = range.get_Text();  
        skey = vresult.bstrVal;  
        range.AttachDispatch(usedrange.get_Item(COleVariant((long)i), COleVariant((long)j)).pdispVal);  
        vresult = range.get_Text();  
        svalue = vresult.bstrVal;  

    }  


}  
double dvalue = 3;  
usedrange.put_Item(COleVariant((long)2), COleVariant((long)2), COleVariant((double)dvalue));//write to excel  
book.Save();  
book.Close(covoptional, COleVariant(ExcelFile), covoptional);  
books.Close();  
app.Quit();  

}

上面代码是打开一个指定路径的excel，然后获得使用的sheet（也就是你最后一次保存退出的那个sheet，这个你也可以通过里面的其他方法获得excel里面的其他sheet），然后获得这个sheet内使用过的区域，并遍历获取其数据，后面一点是向指定的地方插入一个数据。在vs2012下，里面的一些函数名字变了，setItem 改成put_Item等，你可以在提示的函数内找一下，看名字，应该能猜出来

xlsx文件其实是一个zip的压缩包，你可以改其后缀名然后解压，里面都是一些xml文件和一些图片等配置文件。如果你有时间，可以自己解码excel文件。
顶
0
踩