本文主要是介绍MFC将ListControl中的数据导出到Excel，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！
导出Excel的第一种方法用的是:
Excel::_ApplicationPtr ptrExcelApp;
Excel::_WorkbookPtr ptrBook;
Excel::_WorksheetPtr ptrSheet;
Excel::RangePtr ptrRange;
#import "C:\\Program Files\\Common Files\\Microsoft Shared\\OFFICE11\\MSO.DLL" rename( "RGB", "MSORGB" )using namespace Office;#pragma warning(disable : 4192)#import "C:\\Program Files\\Common Files\\Microsoft Shared\\VBA\\VBA6\\VBE6EXT.OLB"#import "D:\\Program Files\\Microsoft Office\\OFFICE11\\EXCEL.EXE" \rename( "DialogBox", "ExcelDialogBox" ) \rename( "RGB", "ExcelRGB" ) \rename( "CopyFile", "ExcelCopyFile" ) \rename( "ReplaceText", "ExcelReplaceText" )void CRecordView::OnFileExport()
{TCHAR szFilter[] = { _T("Excel文件 (*.xls)|*.xls|所有文件 (*.*)|*.*||") };CFileDialog SaveDialog(FALSE, NULL, NULL, OFN_HIDEREADONLY | OFN_OVERWRITEPROMPT, szFilter);if (SaveDialog.DoModal() == IDOK){_variant_t varOption((long)DISP_E_PARAMNOTFOUND, VT_ERROR);CWaitCursor wait;try{Excel::_ApplicationPtr pExcelApp(_T("Excel.Application"));Excel::_WorkbookPtr pBook = pExcelApp->Workbooks->Add(varOption);Excel::_WorksheetPtr pSheet = pBook->ActiveSheet;//Excel::RangePtr pRange = pSheet->GetRange(_T("A1"), _T("D1"));Excel::RangePtr pRange = pSheet->Cells;CHeaderCtrl* pHeader = m_wndList.GetHeaderCtrl();int nColumn = pHeader->GetItemCount();{ TCHAR szText[40] = { 0 };HDITEM hdi = { 0 };hdi.mask = HDI_TEXT;hdi.pszText = szText;hdi.cchTextMax = 40;for (int i = 1; i < nColumn; i++){pHeader->GetItem(i, &hdi);pRange->Item[1][i] = hdi.pszText;}Excel::RangePtr pHeaderRange = pRange->GetRange(variant_t(_T("A1")), variant_t(_T("F1")));pHeaderRange->Font->Bold = true;}for (int i = 0; i < m_wndList.GetItemCount(); i++){for (int j = 1; j < nColumn; j++){pRange->Item[i+2][j] = (LPCTSTR)m_wndList.GetItemText(i, j);}}pRange = pRange->EntireColumn;pRange->AutoFit();pBook->Close(true, (LPCTSTR)SaveDialog.GetPathName(), varOption);pExcelApp->Quit();AfxMessageBox(_T("数据已成功导出到Excel表格中！"), MB_OK | MB_ICONINFORMATION);}catch (...){AfxMessageBox(_T("导出数据错误！"), MB_OK | MB_ICONERROR);return;}}
}转载自 : http://www.cppblog.com/wangjs720/archive/2007/09/10/31934.html
导出Excel的第二种方法用的是如下 :
CApplication app;
CWorkbook0 book;
CWorkbooks0 books;
CWorksheet0 sheet; CWorksheets0 sheets;
CRange0 range;
CListCtrl控件导出excel大概步骤如下：
1.首先打开vs2010,建一个项目（ExportExcel）,建立完后点击右键，添加--类--MFC--TypeLib中的MFC类，到该页面点添加如下：
2.点添加完后，注意下，找到相关头文件，注释红色那行
//#import "D:\\Program Files\\Microsoft Office\\OFFICE11\\EXCEL.EXE" no_namespace
// CWorkbook 包装类
class CWorkbook : public COleDispatchDriver
{
public:
CWorkbook(){} // 调用 COleDispatchDriver 默认构造函数
CWorkbook(LPDISPATCH pDispatch) : COleDispatchDriver(pDispatch) {}
CWorkbook(const CWorkbook& dispatchSrc) : COleDispatchDriver(dispatchSrc) {}
3.注释完后，把上面添加的类的头文件加到你要实现导出excel功能的类中，如下：
#include "CApplication.h"
#include "CRange.h"
#include "CWorkbooks.h"
#include "CWorksheets.h"
#include "CWorkbook.h"
#include "CWorksheet.h"
4.实现主要代码如下：
//导出
void Cimportexcel2Dlg::OnBnClickedButton1()
{CFileDialog FileDialog(FALSE,L"xls",NULL,OFN_HIDEREADONLY|OFN_OVERWRITEPROMPT,_T("Microsoft Excel 2000(*.xls)|*.xls|所有文件(*.*)"),this); if(FileDialog.DoModal()!=IDOK)return; CString cStrFile=FileDialog.GetPathName(); //选择保存路径名称if(::PathFileExists(cStrFile))DeleteFile(cStrFile);//CString cStrFile = _T("E:\\myexcel.xls");COleVariant covTrue((short)TRUE),covFalse((short)FALSE),covOptional((long)DISP_E_PARAMNOTFOUND,VT_ERROR);CApplication app; //Excel程序CWorkbooks books; //工作簿集合CWorkbook book; //工作表CWorksheets sheets; //工作簿集合CWorksheet sheet; //工作表集合CRange range; //使用区域CoUninitialize();book.PrintPreview(_variant_t(false));if(CoInitialize(NULL)==S_FALSE) {MessageBox(L"初始化COM支持库失败！");return;}if(!app.CreateDispatch(_T("Excel.Application"))); //创建IDispatch接口对象{MessageBox(_T("Error!"));}books = app.get_Workbooks();book = books.Add(covOptional);sheets = book.get_Worksheets();sheet = sheets.get_Item(COleVariant((short)1)); //得到第一个工作表CHeaderCtrl* pmyHeaderCtrl= m_list.GetHeaderCtrl(); //获取表头int m_cols = pmyHeaderCtrl-> GetItemCount(); //获取列数int m_rows = m_list.GetItemCount(); //获取行数TCHAR lpBuffer[256];//此结构包含关于头控件中的项的信息，此结构已被更新以支持标题项图像和顺序值。HDITEM hdi;hdi.mask = HDI_TEXT;hdi.pszText = lpBuffer;hdi.cchTextMax = 256;CString colname;CString strTemp;int iRow,iCol;for(iCol=0;iCol < m_cols;iCol++) //将列表的标题头写入EXCEL{GetCellName(1 ,iCol + 1, colname); //(colname就是对应表格的A1,B1,C1,D1)range = sheet.get_Range(COleVariant(colname),COleVariant(colname));pmyHeaderCtrl-> GetItem(iCol,&hdi); //获取表头每列的信息range.put_Value2(COleVariant(hdi.pszText)); //设置每列的内容int nWidth = m_list.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)); //设置行的高度range.put_VerticalAlignment(COleVariant((short)-4108)); //xlVAlignCenter=-4108 COleSafeArray saRet; //COleSafeArray类是用于处理任意类型和维数的数组的类DWORD numElements[]={m_rows,m_cols}; //行列写入数组saRet.Create(VT_BSTR,2,numElements); //创建所需的数组range = sheet.get_Range(COleVariant(_T("A2")),covOptional); //从A2开始range = range.get_Resize(COleVariant((short)m_rows),COleVariant((short)m_cols)); //表的区域long index[2]; //将列表内容写入EXCELfor(iRow = 1;iRow <= m_rows;iRow++){for(iCol = 1;iCol <= m_cols;iCol++){index[0]=iRow-1;index[1]=iCol-1;CString szTemp;szTemp=m_list.GetItemText(iRow-1,iCol-1); //取得m_list控件中的内容BSTR bstr = szTemp.AllocSysString(); //AlLogyString方法分配一个自动化兼容的新BSTR字符串。saRet.PutElement(index,bstr); //把m_list控件中的内容放入saRetSysFreeString(bstr);}}range.put_Value2(COleVariant(saRet)); //将得到的数据的saRet数组值放入表格book.SaveCopyAs(COleVariant(cStrFile)); //保存到cStrFile文件book.put_Saved(true);books.Close();book.ReleaseDispatch();books.ReleaseDispatch(); app.ReleaseDispatch();app.Quit();
}5.添加完，代码编译会出现错误，修改：双击提示，在DialogBox（）前加下划线，就可以了
6.重新编译，OK
转载自 : https://blog.csdn.net/qrx2013/article/details/12749333
转载一下下面的链接,感觉文章写的类似,代码比较全,但是注释没有上面的详细.
转载 : https://blog.csdn.net/limingmcu/article/details/38058507
这篇关于MFC将ListControl中的数据导出到Excel的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！
