VC2010环境OLE导出Excel的方法及步骤

2023-12-01 11:18

本文主要是介绍VC2010环境OLE导出Excel的方法及步骤,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!

 最近工作需要将listctrl中的数据导出到Excel中。网上找了很多,但多数是VC6.0的。结合VC6.0导出的方法,自己琢磨了不少时间,终于将问题解决了。轻松之余,将过程分享出来,希望对需要的人有所帮助。 

 VC6.0的请看这里:http://topic.csdn.net/t/20050718/15/4151984.html

 

环境:

Windows7

Microsoft Visual Studio 2010

Microsoft Office Excel 2003

 说明:用的公司的电脑,操作系统和软件都是正版的。

 

1、新建C++工程

新建自己的C++工程。

2、添加Excel类库

在工程名上右键,选择Add---Class,选择MFC Class From TypeLib,如图:

 

C++使用VS2010导出Excel的方法及步骤 - 追月彩云 - 我的博客

 

然后添加如图的几个类。

C++使用VS2010导出Excel的方法及步骤 - 追月彩云 - 我的博客

 

3、修改头文件

进入刚添加进来的几个类头文件中将#import开头的这句注掉

 

C++使用VS2010导出Excel的方法及步骤 - 追月彩云 - 我的博客

 

 

4、修改提示的错误

将修改过的工程编译一下,出现如下错误:

 

C++使用VS2010导出Excel的方法及步骤 - 追月彩云 - 我的博客

 

双击提示,在DialogBox()前加下划线,如图:

 

C++使用VS2010导出Excel的方法及步骤 - 追月彩云 - 我的博客

 

C++使用VS2010导出Excel的方法及步骤 - 追月彩云 - 我的博客

  

5、添加头文件

在使用导出功能的文件中添加头文件:

C++使用VS2010导出Excel的方法及步骤 - 追月彩云 - 我的博客

 

6、使用Excel类库提供的函数将需要导出的数据导出为.xls文件

经过以上几步,现在可以使用Excel类库提供的函数导出数据了。

 

与网上许多文章相对比一下,导出流程一样。只不过类库函数有所改变。函数名由Get改为get_,Set改为put_。

 

 

附录一:       导出Excel格式的简单流程

CString strFile = _T("E:\\hanhan.xls");

       COleVariant

              covTrue((short)TRUE),

              covFalse((short)FALSE),

              covOptional((long)DISP_E_PARAMNOTFOUND,   VT_ERROR);

 

       CApplication0 app;

       CWorkbook0 book;

       CWorkbooks0 books;

       CWorksheet0 sheet;

       CWorksheets0 sheets;

       CRange0 range;

       CFont1 font;

       if (!app.CreateDispatch(_T("Excel.Application")))

       {

              MessageBox(_T("Error!"));

       }

 

       books = app.get_Workbooks();

       book = books.Add(covOptional);

 

       sheets = book.get_Worksheets();

       sheet = sheets.get_Item(COleVariant((short)1));

       range   =   sheet.get_Range(COleVariant(_T("A1")),COleVariant(_T("A1")));

       range.put_Value2(COleVariant(_T("hanhan")));

 

       book.SaveCopyAs(COleVariant(strFile));

       book.put_Saved(true);

       book.ReleaseDispatch();  

       books.ReleaseDispatch();  

       app.Quit();

       app.ReleaseDispatch();

 

附录二:将ListCtrl中的数据导出为Excel格式

       CString strFile = _T("E:\\Test.xls");

         COleVariant

                   covTrue((short)TRUE),

                   covFalse((short)FALSE),

                   covOptional((long)DISP_E_PARAMNOTFOUND,   VT_ERROR);

         CApplication   app;

         CWorkbooks   books;

         CWorkbook   book;

         CWorksheets   sheets;

         CWorksheet   sheet;

         CRange   range;

         CFont0   font;

 

         if (!app.CreateDispatch(_T("Excel.Application")))

         {

                   MessageBox(_T("创建失败!"));

                   return;

         }

 

         //Get   a   new   workbook.

         books = app.get_Workbooks();

         book = books.Add(covOptional);

 

         sheets = book.get_Worksheets();

         sheet = sheets.get_Item(COleVariant((short)1));

 

         CListCtrl控件report风格//

         CHeaderCtrl   *pmyHeaderCtrl;

         pmyHeaderCtrl = m_clcData.GetHeaderCtrl();//此句取得CListCtrl控件的列表頭

 

         int   iRow,iCol;

         int   m_cols   =   pmyHeaderCtrl-> GetItemCount();

         int   m_rows = m_clcData.GetItemCount();

         HDITEM   hdi;

         TCHAR     lpBuffer[256];

         bool       fFound   =   false;

 

         hdi.mask   =   HDI_TEXT;

         hdi.pszText   =   lpBuffer;

         hdi.cchTextMax   =   256;

         CString   colname;

         CString strTemp;

         for(iCol=0;   iCol <m_cols;   iCol++)//将列表的标题头写入EXCEL

         {

                   GetCellName(1 ,iCol + 1, colname);

                   range   =   sheet.get_Range(COleVariant(colname),COleVariant(colname));

                   pmyHeaderCtrl-> GetItem(iCol,   &hdi);

                   range.put_Value2(COleVariant(hdi.pszText));

                   int   nWidth   =   m_clcData.GetColumnWidth(iCol)/6;

                   //得到第iCol+1列  

                   range.AttachDispatch(range.get_Item(_variant_t((long)(iCol+1)),vtMissing).pdispVal,true);  

                   //设置列宽 

                   range.put_ColumnWidth(_variant_t((long)nWidth));

         }

         range   =   sheet.get_Range(COleVariant( _T("A1 ")),   COleVariant(colname));

         range.put_RowHeight(_variant_t((long)50));//设置行的高度

         font = range.get_Font();

         font.put_Bold(covTrue);

         range.put_VerticalAlignment(COleVariant((short)-4108));//xlVAlignCenter   =   -4108

 

         COleSafeArray   saRet;

         DWORD   numElements[]={m_rows,m_cols};       //5x2   element   array

         saRet.Create(VT_BSTR,   2,   numElements);

         range   =   sheet.get_Range(COleVariant( _T("A2 ")),covOptional);

         range = range.get_Resize(COleVariant((short)m_rows),COleVariant((short)m_cols));

         long   index[2];

         range   =   sheet.get_Range(COleVariant( _T("A2 ")),covOptional);

         range   =   range.get_Resize(COleVariant((short)m_rows),COleVariant((short)m_cols));

         for   (   iRow   =   1;   iRow   <=   m_rows;   iRow++)//将列表内容写入EXCEL

         {

                   for   (   iCol   =   1;   iCol   <=   m_cols;   iCol++)  

                   {

                            index[0]=iRow-1;

                            index[1]=iCol-1;

                            CString   szTemp;

                            szTemp=m_clcData.GetItemText(iRow-1,iCol-1);

                            BSTR   bstr   =   szTemp.AllocSysString();

                            saRet.PutElement(index,bstr);

                            SysFreeString(bstr);

                   }

         }

 

         range.put_Value2(COleVariant(saRet));

 

//       Cnterior cellinterior;

//       range   =   sheet.get_Range(COleVariant( _T("A1 ")),covOptional);

//       range   =   range.get_Resize(COleVariant((short)1),COleVariant((short)m_cols));

//       books = range.get_Interior();

//       cellinterior.AttachDispatch(books);

//       cellinterior.put_ColorIndex(COleVariant((short)37));//设置EXCEL头一行的背景颜色

//       for(   iRow=1;   iRow   <=   m_rows;   iRow++)//设置EXCEL其余的背景颜色(颜色交替变换)

//       {

//                 int   state=iRow%2;

//                 CString   index;

//                 index.Format( _T("A%d "),iRow+1);

//                 range   =   sheet.get_Range(COleVariant(index),covOptional);

//                 range   =   range.get_Resize(COleVariant((short)1),COleVariant((short)m_cols));

//                 books=range.get_Interior();

//                 cellinterior.AttachDispatch(books);

//                 if(!state)

//                          cellinterior.put_ColorIndex(COleVariant((short)36));

//                 else

//                          cellinterior.put_ColorIndex(COleVariant((short)24));

//       }

 

         saRet.Detach();

//

 

         book.SaveCopyAs(COleVariant(strFile));

//       cellinterior.ReleaseDispatch();

         book.put_Saved(true);

         book.ReleaseDispatch();  

         books.ReleaseDispatch();  

         app.Quit();

         app.ReleaseDispatch();

 

由于不需要,Excel单元格样式及颜色等属性设置没有做,有兴趣的可以自己去试试。代码中设置的有错。

 

自己写的一个获取单元头的函数:

void   GetCellName(int nRow, int nCol, CString &strName)

{

         int nSeed = nCol;

         CString strRow;

         char cCell = 'A' + nCol - 1;

 

         strName.Format(_T("%c"), cCell);

 

         strRow.Format(_T( "%d "), nRow);

         strName += strRow;

}

这篇关于VC2010环境OLE导出Excel的方法及步骤的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!



http://www.chinasem.cn/article/440957

相关文章

python获取网页表格的多种方法汇总

《python获取网页表格的多种方法汇总》我们在网页上看到很多的表格,如果要获取里面的数据或者转化成其他格式,就需要将表格获取下来并进行整理,在Python中,获取网页表格的方法有多种,下面就跟随小编... 目录1. 使用Pandas的read_html2. 使用BeautifulSoup和pandas3.

Spring 中的循环引用问题解决方法

《Spring中的循环引用问题解决方法》:本文主要介绍Spring中的循环引用问题解决方法,本文给大家介绍的非常详细,对大家的学习或工作具有一定的参考借鉴价值,需要的朋友参考下吧... 目录什么是循环引用?循环依赖三级缓存解决循环依赖二级缓存三级缓存本章来聊聊Spring 中的循环引用问题该如何解决。这里聊

Java学习手册之Filter和Listener使用方法

《Java学习手册之Filter和Listener使用方法》:本文主要介绍Java学习手册之Filter和Listener使用方法的相关资料,Filter是一种拦截器,可以在请求到达Servl... 目录一、Filter(过滤器)1. Filter 的工作原理2. Filter 的配置与使用二、Listen

Pandas统计每行数据中的空值的方法示例

《Pandas统计每行数据中的空值的方法示例》处理缺失数据(NaN值)是一个非常常见的问题,本文主要介绍了Pandas统计每行数据中的空值的方法示例,具有一定的参考价值,感兴趣的可以了解一下... 目录什么是空值?为什么要统计空值?准备工作创建示例数据统计每行空值数量进一步分析www.chinasem.cn处

如何使用 Python 读取 Excel 数据

《如何使用Python读取Excel数据》:本文主要介绍使用Python读取Excel数据的详细教程,通过pandas和openpyxl,你可以轻松读取Excel文件,并进行各种数据处理操... 目录使用 python 读取 Excel 数据的详细教程1. 安装必要的依赖2. 读取 Excel 文件3. 读

Windows 上如果忘记了 MySQL 密码 重置密码的两种方法

《Windows上如果忘记了MySQL密码重置密码的两种方法》:本文主要介绍Windows上如果忘记了MySQL密码重置密码的两种方法,本文通过两种方法结合实例代码给大家介绍的非常详细,感... 目录方法 1:以跳过权限验证模式启动 mysql 并重置密码方法 2:使用 my.ini 文件的临时配置在 Wi

MySQL重复数据处理的七种高效方法

《MySQL重复数据处理的七种高效方法》你是不是也曾遇到过这样的烦恼:明明系统测试时一切正常,上线后却频频出现重复数据,大批量导数据时,总有那么几条不听话的记录导致整个事务莫名回滚,今天,我就跟大家分... 目录1. 重复数据插入问题分析1.1 问题本质1.2 常见场景图2. 基础解决方案:使用异常捕获3.

最详细安装 PostgreSQL方法及常见问题解决

《最详细安装PostgreSQL方法及常见问题解决》:本文主要介绍最详细安装PostgreSQL方法及常见问题解决,介绍了在Windows系统上安装PostgreSQL及Linux系统上安装Po... 目录一、在 Windows 系统上安装 PostgreSQL1. 下载 PostgreSQL 安装包2.

SQL中redo log 刷⼊磁盘的常见方法

《SQL中redolog刷⼊磁盘的常见方法》本文主要介绍了SQL中redolog刷⼊磁盘的常见方法,将redolog刷入磁盘的方法确保了数据的持久性和一致性,下面就来具体介绍一下,感兴趣的可以了解... 目录Redo Log 刷入磁盘的方法Redo Log 刷入磁盘的过程代码示例(伪代码)在数据库系统中,r

Python实现图片分割的多种方法总结

《Python实现图片分割的多种方法总结》图片分割是图像处理中的一个重要任务,它的目标是将图像划分为多个区域或者对象,本文为大家整理了一些常用的分割方法,大家可以根据需求自行选择... 目录1. 基于传统图像处理的分割方法(1) 使用固定阈值分割图片(2) 自适应阈值分割(3) 使用图像边缘检测分割(4)