最近工作需要将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 { 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; }