• MFC vs2012 Office2013 读写excel文件


        近期在忙一个小项目(和同学一起搞的),在这里客户要求不但读写txt,而且可以读写excel文件,这里本以为很简单,结果。。。废话少说,过程如下:

        笔者环境:win7 64+VS2012+Office2013+MFC。

        说明:读写excel文件,通常包括1.ODBC数据库实现;2.通过解析Excel表格文件;3.通过OLE/COM的几种实现方法。本文主要研究通过OLE/COM实现对Excel表格的操作。

        步骤:

          1.新建MFC对话框。注意勾选自动化,否则后面加入不了需要的库,导致启动服务失败等错误。有的博客说需要加入

    1 if (!AfxOleInit())
    2 {
    3     AfxMessageBox(IDP_OLE_INIT_FAILED);
    4     return FALSE;
    5 }

                    笔者实验发现加不加入都没有问题,如果后面有人有问题可以加入。

            2.向项目工程中添加基本的7个类(Excel作为OLE/COM库插件,定义好了各类交互的接口,这些接口是跨语言的接口。VC可以通过导入这些接口,并通过   接口来对Excel的操作),由于本文只关心对Excel表格中的数据的读取,主要关注7个接_Application、Workbooks_Workbook、Worksheets_WorksheetRange、Font

               VS2012导入OLE/COM组件的接口的步骤为:项目->类向导->添加类->类型库中的MFC类,先选择要导入的组件所在的路径,即Excel.exe所在的路      径,然后再选择要导入的Excel类型库中的接口。组件路径一般为C:Program FilesMicrosoft OfficeOffice15EXCEL.exe;格式类似。

            3. 导入之后需要“#import "C:\Program Files\Microsoft Office\Office12\EXCEL.EXE" no_namespace”注释掉,然后添加头文                 件:#include <afxdisp.h>到上面7个文件中去。

            4.如果有错误error C2059双击error C2059,将VARIANT DialogBox()改成VARIANT _DialogBox()再次编译,通过!!

            5.读写excel。

                      在对话框头文件中*Dlg.h定义变量

     1 //定义接口类变量 
     2     CApplication app; 
     3     CWorkbook book;  
     4     CWorkbooks books;  
     5     CWorksheet sheet;  
     6     CWorksheets sheets; 
     7     CRange range;  
     8     CMyFont font;   
     9     CRange cols; 
    10     LPDISPATCH lpDisp; 

                  a.写excel,在*Dlg.cpp里面的OnInitDialog函数添加代码:

     1 //导出
     2     COleVariant covOptional((long)DISP_E_PARAMNOTFOUND,VT_ERROR); 
     3     if (!app.CreateDispatch(_T("Excel.Application")))
     4     {   
     5         this->MessageBox(_T("无法创建Excel应用!")); 
     6         return TRUE;  
     7     }   
     8     books = app.get_Workbooks(); 
     9     //打开Excel,其中pathname为Excel表的路径名  
    10     
    11     book = books.Add(covOptional);  
    12     sheets = book.get_Worksheets();  
    13     sheet = sheets.get_Item(COleVariant((short)1));  //获得坐标为(A,1)和(B,1)的两个单元格 
    14     range = sheet.get_Range(COleVariant(_T("A1")), COleVariant(_T("B1")));  //设置单元格类容为Hello Exce
    15     range.put_Value2(COleVariant(_T("Hello Excel")));  //选择整列,并设置宽度为自适应 
    16     cols = range.get_EntireColumn();  
    17     cols.AutoFit();  
    18     //设置字体为粗体 
    19     font = range.get_Font();  
    20     font.put_Bold(COleVariant((short)TRUE)); 
    21     //获得坐标为(C,2)单元格 
    22     range = sheet.get_Range(COleVariant(_T("C2")), COleVariant(_T("C2"))); 
    23     //设置公式“=RAND()*100000”
    24     range.put_Formula(COleVariant(_T("=RAND()*100000"))); 
    25     //设置数字格式为货币型  
    26     range.put_NumberFormat(COleVariant(_T("$0.00"))); 
    27     //选择整列,并设置宽度为自适应  
    28     cols = range.get_EntireColumn(); 
    29     cols.AutoFit(); 
    30     //显示Excel表
    31     app.put_Visible(TRUE);   
    32     app.put_UserControl(TRUE);

              结果如下

              

                 b.导入excel,同样在*Dlg的位置添加代码:

     1 //导入
     2     COleVariant covOptional((long)DISP_E_PARAMNOTFOUND,VT_ERROR); 
     3     if (!app.CreateDispatch(_T("Excel.Application")))
     4     {   
     5         this->MessageBox(_T("无法创建Excel应用!")); 
     6         return TRUE;  
     7     }   
     8     books = app.get_Workbooks(); 
     9     //打开Excel,其中pathname为Excel表的路径名  
    10     lpDisp = books.Open(_T("D:\VS2012\Projects\TestExcelApp2\TestExcelApp2\工作薄1.xlsx"),covOptional ,covOptional,covOptional,covOptional,covOptional,covOptional,covOptional,covOptional,covOptional,covOptional,covOptional,covOptional,covOptional,covOptional);
    11     book.AttachDispatch(lpDisp); 
    12     sheets = book.get_Worksheets(); 
    13     sheet = sheets.get_Item(COleVariant((short)1)); 
    14     //获得坐标为(A,1)的单元格 
    15     range = sheet.get_Range(COleVariant(_T("A1")) ,COleVariant(_T("A1")));  
    16     //获得单元格的内容 
    17     COleVariant rValue;
    18     rValue =   COleVariant(range.get_Value2()); 
    19     //转换成宽字符  
    20     rValue.ChangeType(VT_BSTR); 
    21     //转换格式,并输出 
    22     this->MessageBox(CString(rValue.bstrVal));
    23     book.put_Saved(TRUE); 
    24     app.Quit();

          效果如下:

             excel内容:

               

            读到第一行第一列元素:

                

        笔者只是需要读取excel的读写功能,所以只是做了这方面的实验,可以用到自己的项目中,所以共大家分享一下。有什么问题可以留言,共勉!

  • 相关阅读:
    Linux和Docker常用命令
    学习docker on windows (1): 为什么要使用docker
    使用xUnit为.net core程序进行单元测试(4)
    使用xUnit为.net core程序进行单元测试(3)
    高效地使用搜索引擎
    充分条件和必要条件
    上海全球“编程一小时”活动记
    C#.NET股票历史数据采集,【附18年历史数据和源代码】
    R学习笔记 ---- 系列文章
    平方根的原理
  • 原文地址:https://www.cnblogs.com/zCoderJoy/p/4165997.html
Copyright © 2020-2023  润新知