Excel和vs2010 的连接（续）
通过VS实现对Excel表格的操作的方法有多种，如：通过ODBC数据库实现，通过解析Excel表格文件，通过OLE/COM的实现。本文通过OLE/COM实现对Excel表格的操作。
1. 建立MFC工程，MDI（基于对话框），其他默认即可。
2. 操作Excel文件的配置：
a.项目->添加类->TypeLib中的MFC类，导入Excel.exe，一般都在C:\Program Files\Microsoft Office\Office14\EXCEL.EXE路径下（即选择你的office安装路径下的excel.exe加入）。
b.选中以下几项_Application,_WorkSheet,_WorkBook,WorkSheets,WorkBooks,Range导入，导入后自动在工程中添加CApplication, CWorkSheet, CWorkBook, CWorkSheets, CWorkBooks, CRange这些类。
c.把这些类的头文件中的第一句话 #import ".......EXCEL.EXE" nonamespace 删除；这行代码的作用是导入Excel整个类型库到工程中。
d.引入之后如果编译遇到错误，Not enough actual parameters for macro 'DialogBoxW'。解决方法是在CRange类中，DialogBox()前面添加下划线变成_DialogBox()。
VARIANT _DialogBox() { VARIANT result; InvokeHelper(0xf5, DISPATCH_METHOD, VT_VARIANT, (void*)&result, NULL); return result; }
3.操作excel文件
在XXX.cpp头文件下添加：
#include "CApplication.h" #include "CRange.h" #include "CWorkbook.h" #include "CWorkbooks.h" #include "CWorksheet.h" #include "CWorksheets.h"
在对话框中添加“新建”按钮，编写事件响应函数如下：
void Cvs_excelDlg::OnBnClickedNew() { // TODO: 在此添加控件通知处理程序代码 //Excel初始化 CApplication app; CWorkbooks books; CWorkbook book; CWorksheets sheets; CWorksheet sheet; CRange range; LPDISPATCH lpDisp; //COleVariant vResult; COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR); if(!app.CreateDispatch("Excel.Application")) { AfxMessageBox("无法启动Excel服务器!"); return; } books.AttachDispatch(app.get_Workbooks(),TRUE); book=books.Add(covOptional); sheets.AttachDispatch(book.get_Worksheets(),TRUE); sheet=sheets.get_Item(COleVariant((short)1)); range.AttachDispatch(sheet.get_Cells()); //Excel文件头 range.put_Item(_variant_t(1),_variant_t(1), _variant_t("序号")); range.put_Item(_variant_t(1),_variant_t(2), _variant_t("识别时间")); range.put_Item(_variant_t(1),_variant_t(3), _variant_t("原始图片文件名称")); range.put_Item(_variant_t(1),_variant_t(4), _variant_t("识别后电话号码")); //Excel宽度 range = sheet.get_Range(COleVariant(_T("A1")),COleVariant(_T("A1"))); range.put_ColumnWidth(_variant_t((long)8)); range = sheet.get_Range(COleVariant(_T("B1")),COleVariant(_T("B1"))); range.put_ColumnWidth(_variant_t((long)19)); range = sheet.get_Range(COleVariant(_T("C1")),COleVariant(_T("C1"))); range.put_ColumnWidth(_variant_t((long)25)); range = sheet.get_Range(COleVariant(_T("D1")),COleVariant(_T("D1"))); range.put_ColumnWidth(_variant_t((long)17)); //时间 CTime tm=CTime::GetCurrentTime(); CString sttime=tm.Format("%Y/%m/%d"); //保存结果至EXCEL range.AttachDispatch(sheet.get_Cells()); range.put_NumberFormat(COleVariant("@")); range.put_Item(_variant_t(2),_variant_t(1), _variant_t("1")); range.put_Item(_variant_t(2),_variant_t(2), _variant_t(sttime)); range.put_Item(_variant_t(2),_variant_t(3), _variant_t("C:\\test")); range.put_Item(_variant_t(2),_variant_t(4), _variant_t("8810769206")); //保存Excel文件 book.SaveCopyAs(COleVariant("C:\\test.xlsx")); book.put_Saved(true); books.Close(); //释放对象 range.ReleaseDispatch(); sheet.ReleaseDispatch(); sheets.ReleaseDispatch(); book.ReleaseDispatch(); books.ReleaseDispatch(); app.Quit(); // 退出 app.ReleaseDispatch(); }
在对话框中添加“打开”按钮，编写事件响应函数如下：
void Cvs_excelDlg::OnBnClickedOpen() { // TODO: 在此添加控件通知处理程序代码 CApplication app; CWorkbooks books; CWorkbook book; CWorksheets sheets; CWorksheet sheet; CRange range; LPDISPATCH lpDisp; COleVariant vResult; COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR); if(!app.CreateDispatch("Excel.Application")) { AfxMessageBox("无法启动Excel服务器!"); return; } books.AttachDispatch(app.get_Workbooks());lpDisp = books.Open("C:\\test.xlsx",covOptional, covOptional, covOptional, covOptional, covOptional,covOptional, covOptional, covOptional, covOptional, covOptional,covOptional, covOptional, covOptional,covOptional);
//得到Workbook book.AttachDispatch(lpDisp); //得到Worksheets sheets.AttachDispatch(book.get_Worksheets()); //得到当前活跃sheet //如果有单元格正处于编辑状态中，此操作不能返回，会一直等待 //lpDisp=book.get_ActiveSheet(); //sheet.AttachDispatch(lpDisp); sheet=sheets.get_Item(COleVariant((short)1)); //读取第一个单元格的值 range.AttachDispatch(sheet.get_Cells()); range.AttachDispatch(range.get_Item (COleVariant((long)2),COleVariant((long)1)).pdispVal ); vResult =range.get_Value2(); CString str; if(vResult.vt == VT_BSTR) //字符串 { str=vResult.bstrVal; } else if (vResult.vt==VT_R8) //8字节的数字 { str.Format("%f",vResult.dblVal); } /*else if(vResult.vt==VT_DATE) //时间格式 { SYSTEMTIME st; VariantTimeToSystemTime(&vResult.date, &st); } else if(vResult.vt==VT_EMPTY) //单元格空的 { str=""; }*/ books.Close(); //释放对象 range.ReleaseDispatch(); sheet.ReleaseDispatch(); sheets.ReleaseDispatch(); book.ReleaseDispatch(); books.ReleaseDispatch(); app.Quit(); // 退出
app.ReleaseDispatch();
MessageBox(str);
}
这样便实现了Excel的读写操作，具体功能比较简单，详见代码吧。
4.如果你想要的到更多的功能实现可以参考：http://blog.csdn.net/fullsail/article/details/8449448。它对Excel的操作做了进一步的类封装，比较完善。
