C++使用VS2010导出Excel的方法及步骤.doc

发布时间：2022-05-29 发布人：admin 分类：说明书资料大小：0.15M 资料格式：doc 举报版权申诉

d425791311-4780738-4744302543448792974.doc.pdf-第1页.png

第1页 / 共10页

d425791311-4780738-4744302543448792974.doc.pdf-第2页.png

第2页 / 共10页

d425791311-4780738-4744302543448792974.doc.pdf-第3页.png

第3页 / 共10页

d425791311-4780738-4744302543448792974.doc.pdf-第4页.png

第4页 / 共10页

d425791311-4780738-4744302543448792974.doc.pdf-第5页.png

第5页 / 共10页

d425791311-4780738-4744302543448792974.doc.pdf-第6页.png

第6页 / 共10页

d425791311-4780738-4744302543448792974.doc.pdf-第7页.png

第7页 / 共10页

d425791311-4780738-4744302543448792974.doc.pdf-第8页.png

第8页 / 共10页

文本预览

最近工作需要将 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，如图：

然后添加如图的几个类。 3、修改头文件进入刚添加进来的几个类头文件中将#import 开头的这句注掉 4、修改提示的错误

将修改过的工程编译一下，出现如下错误：双击提示，在 DialogBox（）前加下划线，如图： 5、添加头文件在使用导出功能的文件中添加头文件： 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 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).pdispV //设置列宽 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;

分享到：

赞收藏

资料库

C++使用VS2010导出Excel的方法及步骤.doc

相关推荐

开发技术

热门标签

最新资料