最近工作需要將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格式的簡單流程
CFileDialog dlg(FALSE,_T("(*.xls)"),NULL,OFN_HIDEREADONLY |OFN_OVERWRITEPROMPT,
_T("(*.xls)|*.xls||"),NULL);
if (dlg.DoModal() == IDOK)
{
//獲取路徑
CString strFileName=dlg.GetPathName();
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(strFileName));
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;
}
三、導入
HRESULT hr;
hr = CoInitialize(NULL);
if(FAILED(hr))
{
AfxMessageBox(_T("Failed to call Coinitialize()" ));
}
CFileDialog filedlg(TRUE,L"*.xls",NULL,OFN_HIDEREADONLY|OFN_OVERWRITEPROMPT,L"Xls文件 (*.xls)|*.xls");
filedlg.m_ofn.lpstrTitle=L"打開文件";
CString strFilePath;
if (IDOK==filedlg.DoModal())
{
strFilePath=filedlg.GetPathName();
}
else
{
return;
}
//////////////////////////////////////////////////////////////////////////
CApplication app;
CWorkbook book;
CWorkbooks books;
CWorksheet sheet;
CWorksheets sheets;
CRange range;
LPDISPATCH lpDisp;
//定義變量
COleVariant covOptional((long)
DISP_E_PARAMNOTFOUND,VT_ERROR);
if (!app.CreateDispatch(_T("Excel.Application"),NULL))
{
this->MessageBox(_T("無法創建Excel應用"));
return;
}
books = app.get_Workbooks();
//打開Excel，其中pathname爲Excel表的路徑名
lpDisp = books.Open(strFilePath,covOptional
,covOptional,covOptional,covOptional,covOptional,covOptional,covOptional
,covOptional,covOptional,covOptional
,covOptional,covOptional,covOptional
,covOptional);
book.AttachDispatch(lpDisp);
sheets = book.get_Worksheets();
sheet = sheets.get_Item(COleVariant((short)1));
//app.put_Visible(TRUE); //表格可見
//app.put_UserControl(FALSE);
////獲得座標爲（A，1）的單元格
/*range = sheet.get_Range(COleVariant(_T("A1"))
,COleVariant(_T("A1")));*/
////獲得單元格的內容
//COleVariant rValue;rValue =
// COleVariant(range.get_Value2());
////轉換成寬字符
//rValue.ChangeType(VT_BSTR);
////轉換格式，並輸出
//this->MessageBox(CString(rValue.bstrVal));
/*讀取Excel表中的多個單元格的值，在listctrl中顯示*/
COleVariant vResult;
//讀取已經使用區域的信息，包括已經使用的行數、列數、起始行、起始列
range.AttachDispatch(sheet.get_UsedRange());
range.AttachDispatch(range.get_Rows());
//取得已經使用的行數
long iRowNum = range.get_Count();
range.AttachDispatch(range.get_Columns());
//取得已經使用的列數
long iColNum = range.get_Count();
//取得已使用區域的起始行，從1開始
long iStartRow = range.get_Row();
//取得已使用區域的起始列，從1開始
long iStartCol = range.get_Column();
for(int i=iStartRow;i<=iRowNum;i++)
{
/*CString strRowName = _T("");
strRowName.Format(_T("%d"), i);
m_ListCtrl.InsertItem(i-1, strRowName);*/
for(int j=iStartCol;j<=iColNum;j++)
{
//讀取單元格的值
range.AttachDispatch(sheet.get_Cells());
range.AttachDispatch(range.get_Item(COleVariant((long)i),
COleVariant((long)j)).pdispVal);
vResult = range.get_Value2();
CString str,stry,strm,strd;
SYSTEMTIME st;
if(vResult.vt == VT_BSTR) //若是字符串
{
str = vResult.bstrVal;
}
else if (vResult.vt == VT_R8) //8字節的數字
{
str.Format(L"%f",vResult.dblVal);
}
else if(vResult.vt == VT_DATE) //時間格式
{
VariantTimeToSystemTime(vResult.date, &st);
stry.Format(L"%d",st.wYear);
strm.Format(L"%d",st.wMonth);
strd.Format(L"%d",st.wDay);
str = stry+L"-"+strm+L"-"+strd;
}
else if(vResult.vt == VT_EMPTY) //單元爲空
{
str=L"";
}
else if (vResult.vt ==VT_I4)
{
str.Format(_T("%ld"), (int)vResult.lVal);
}
// m_ListCtrl.SetItemText(i-1, j, str);
}
}
/*釋放資源*/
range.ReleaseDispatch();
sheet.ReleaseDispatch();
sheets.ReleaseDispatch();
book.ReleaseDispatch();
books.ReleaseDispatch();
app.Quit();
app.ReleaseDispatch();
