VS2008环境使用MFC导入Excel文件中的数据

【转自】http://blog.csdn.net/icyfox_bupt/article/details/6318979

1. 建立MFC工程，MDI（基于对话框），其他默认即可。

2. 操作Excel文件初始化： 

• project->add class->MFC class from typelib （项目->添加类->Typelib中的MFC类）导入Excel.exe，一般都在C:/Program Files/Microsoft Office/Office12路径下（即选择你的office安装路径下的excel.exe加入）
• 选中以下几项_Application,_WorkSheet,_WorkBook,WorkSheets,WorkBooks,Range，然后导入；
• 导入后自动在工程中添加CApplication,CWorkSheet,CWorkBook,CWorkSheets,CWorkBooks,CRange这些类；

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

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

解决方法是在CRange类中，

  
    

   
     1 
   
      VARIANT DialogBox() 

   
     2 
   
      { 

   
     3 
   
      VARIANT result; 

   
     4 
   
      InvokeHelper(
   
     0xf5
   
     , DISPATCH_METHOD, VT_VARIANT,(
   
     void
   
     *
   
     )
   
     &
   
     result, NULL); 

   
     5 
   
      
   
     return
   
      result; 

   
     6 
   
      } 
  
    

DialogBox()前面添加下划线变成_DialogBox()，解决了！

3.操作excel文件

在“资源”里面选择MFC自动建立的对话框，双击“打开”按钮（若没有就自己做一个），然后程序会将你到对这个按钮的函数里，在函数中写如下内容： （文件是CxxxDlg.cpp  xxx是你的项目名称）

在头文件中包含：

  
    

   
     1 
   
     #include 
   
     "
   
     CApplication.h
   
     "
   
      

   
     2 
   
     #include 
   
     "
   
     CRange.h
   
     "
   
      

   
     3 
   
     #include 
   
     "
   
     CWorkbook.h
   
     "
   
      

   
     4 
   
     #include 
   
     "
   
     CWorkbooks.h
   
     "
   
      

   
     5 
   
     #include 
   
     "
   
     CWorksheet.h
   
     "
   
      

   
     6 
   
     #include 
   
     "
   
     CWorksheets.h
   
     "
   
      
  
    

程序代码如下：

  
    

   
      1 
   
      
   
     void
   
      Cexcel打开3Dlg::OnBnClickedOk() 

   
      2 
   
      { 

   
      3 
   
      
   
     //
   
      TODO: 在此添加控件通知处理程序代码 
   
     

   
      4 
   
     
   
      CApplication app; 

   
      5 
   
      CWorkbooks books; 

   
      6 
   
      CWorkbook book; 

   
      7 
   
      CWorksheets sheets; 

   
      8 
   
      CWorksheet sheet; 

   
      9 
   
      CRange range; 

   
     10 
   
      CRange iCell; 

   
     11 
   
      LPDISPATCH lpDisp; 

   
     12 
   
      COleVariant vResult; 

   
     13 
   
      COleVariant covOptional((
   
     long
   
     )DISP_E_PARAMNOTFOUND, VT_ERROR); 

   
     14 
   
      
   
     if
   
     (
   
     !
   
     app.CreateDispatch(L
   
     "
   
     Excel.Application
   
     "
   
     )) 

   
     15 
   
      { 

   
     16 
   
      AfxMessageBox(L
   
     "
   
     无法启动Excel服务器!
   
     "
   
     ); 

   
     17 
   
      
   
     return
   
     ; 

   
     18 
   
      } 

   
     19 
   
      books.AttachDispatch(app.get_Workbooks()); 

   
     20 
   
      lpDisp 
   
     =
   
      books.Open(“d:
   
     //
   
     test.xls”,covOptional, covOptional, covOptional, covOptional, covOptional,covOptional, covOptional, covOptional, covOptional, covOptional,covOptional, covOptional, covOptional,covOptional); 

   
     21 
   
      

   
     22 
   
      
   
     //
   
     得到Workbook 
   
     

   
     23 
   
     
   
      book.AttachDispatch(lpDisp); 

   
     24 
   
      
   
     //
   
     得到Worksheets 
   
     

   
     25 
   
     
   
      sheets.AttachDispatch(book.get_Worksheets()); 

   
     26 
   
      

   
     27 
   
      
   
     //
   
     得到当前活跃sheet 

   
     28 
   
      
   
     //
   
     如果有单元格正处于编辑状态中，此操作不能返回，会一直等待 
   
     

   
     29 
   
     
   
      lpDisp
   
     =
   
     book.get_ActiveSheet(); 

   
     30 
   
      sheet.AttachDispatch(lpDisp); 

   
     31 
   
      
   
     //
   
     读取第一个单元格的值 
   
     

   
     32 
   
     
   
      range.AttachDispatch(sheet.get_Cells()); 

   
     33 
   
      range.AttachDispatch(range.get_Item (COleVariant((
   
     long
   
     )
   
     2
   
     ),COleVariant((
   
     long
   
     )
   
     1
   
     )).pdispVal ); 

   
     34 
   
      
   
     /*
   
     COleVariant
   
     */
   
      vResult 
   
     =
   
     range.get_Value2(); 

   
     35 
   
      CString str; 

   
     36 
   
      
   
     if
   
     (vResult.vt 
   
     ==
   
      VT_BSTR) 
   
     //
   
     字符串 
   
     

   
     37 
   
     
   
      { 

   
     38 
   
      str
   
     =
   
     vResult.bstrVal; 

   
     39 
   
      } 

   
     40 
   
      
   
     else
   
      
   
     if
   
      (vResult.vt
   
     ==
   
     VT_R8) 
   
     //
   
     8字节的数字 
   
     

   
     41 
   
     
   
      { 

   
     42 
   
      str.Format(L
   
     "
   
     %f
   
     "
   
     ,vResult.dblVal); 

   
     43 
   
      } 

   
     44 
   
      

   
     45 
   
      
   
     /*
   
     else if(vResult.vt==VT_DATE) //时间格式 

   
     46 
   
      { 

   
     47 
   
      SYSTEMTIME st; 

   
     48 
   
      VariantTimeToSystemTime(&vResult.date, &st); 

   
     49 
   
      } 

   
     50 
   
      else if(vResult.vt==VT_EMPTY) //单元格空的 

   
     51 
   
      { 

   
     52 
   
      str=""; 

   
     53 
   
      }
   
     */
   
      

   
     54 
   
      books.Close(); 

   
     55 
   
      app.Quit(); 
   
     //
   
      退出 

   
     56 
   
      
   
     //
   
     释放对象 
   
     

   
     57 
   
     
   
      range.ReleaseDispatch(); 

   
     58 
   
      sheet.ReleaseDispatch(); 

   
     59 
   
      sheets.ReleaseDispatch(); 

   
     60 
   
      book.ReleaseDispatch(); 

   
     61 
   
      books.ReleaseDispatch(); 

   
     62 
   
      app.ReleaseDispatch(); 

   
     63 
   
      OnOK(); 

   
     64 
   
      MessageBox(str); 

   
     65 
   
      } 
  
    

运行结果是，程序会将d:/test.xls打开，并且在对话框中输入格(1,1)的数据。