MFC 读取EXCEL表格 VS2008

来源：互联网发布：水牌制作软件编辑：程序博客网时间：2024/04/29 23:54

我们的上位机需要一个配置文件INI，但是数据项有点多看起来很乱，而EXCEL在保存一些配置数据的时候有独特的优势，所以就在EXCEL里边配置，利用上位机读EXCEL。

一、建立工程：

a. project->add class->MFC class from typelib （项目->添加类->Typelib中的MFC类）导入Excel.exe，一般都在C:/Program Files/Microsoft Office/Office12路径下（即选择你的office安装路径下的excel.exe加入）

b. 选中以下几项_Application,_WorkSheet,_WorkBook,WorkSheets,WorkBooks,Range，然后导入；

c. 导入后自动在工程中添加CApplication,CWorkSheet,CWorkBook,CWorkSheets,CWorkBooks,CRange这些类；

然后需要把这些类的头文件中的第一句话 #import ".......EXCEL.EXE" nonamespace 删除；

引入之后如果编译遇到错误，Not enough actual parameters for macro 'DialogBoxW'. 让人头疼！

解决方法是在CRange类中，VARIANT DialogBox()前面添加下划线变成VARIANT _DialogBox()，解决了！

二、添加头文件

#include "CApplication.h"  #include "CRange.h"  #include "CWorkbook.h"  #include "CWorkbooks.h"  #include "CWorksheet.h"  #include "CWorksheets.h"

三、添加操作代码

void CMonitorDlg::OnBnClickedButton1(){// TODO: 在此添加控件通知处理程序代码CApplication app;      CWorkbooks books;      CWorkbook book;      CWorksheets sheets;      CWorksheet sheet;      CRange range;      CRange iCell;      LPDISPATCH lpDisp;      COleVariant vResult;      COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);      if(!app.CreateDispatch("Excel.Application"))      {  AfxMessageBox("无法启动Excel服务器!");  return;      }app.put_Visible(TRUE);app.put_UserControl(FALSE);    books.AttachDispatch(app.get_Workbooks());      lpDisp = books.Open("D:\\test.xls",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);      //读取第一个单元格的值      range.AttachDispatch(sheet.get_Cells());      range.AttachDispatch(range.get_Item (COleVariant((long)2),COleVariant((long)2)).pdispVal);      /*COleVariant*/ 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);      }      MessageBox(str);     books.Close();       app.Quit();             // 退出         range.ReleaseDispatch();      sheet.ReleaseDispatch();      sheets.ReleaseDispatch();      book.ReleaseDispatch();      books.ReleaseDispatch();      app.ReleaseDispatch();      //OnOK(); }

有读取单元格的函数基本也就差不多了，有想法就去做

0 0