導出CListCtrl控件到Excel文件

CListCtrl獲得列的屬性可以使用BOOL CListCtrl::GetColumn( int nCol, LVCOLUMN* pColumn )，nCol為需要獲得獲得屬性值的列序號，pColumn 為 LVCOLUMN 結構體的指針。LVCOLUMN結構體中的 UINT mask 作為輸入，決定返回哪些屬性的值，如果 mask 的值包含 LVCF_TEXT ，則需要將字符串緩存的首地址指針置入結構體中的 LPTSTR pszText; 變量，緩存大小置入 int cchTextMax; 變量。

使用這個函數的主要問題是主要問題期望返回 LVCF_TEXT ，設置了 pszText 卻沒有設置 cchTextMax 變量，並且通常都在分配 LVCOLUMN 結構體空間時將所分配的內存清0，因此總是不能返回列名。反而是沒有清0所分配空間，直接設置 mask 為 LVCF_TEXT ，那麼可能可以獲得列名的值。當然只要正確設置 pszText 和 cchTextMax 就不會有這些問題。

還有一個問題是列的數量。沒有直接的函數可以獲得列的數量，只能從0開始不斷自增 nCol 的值，判斷 GetColumn( nCol,pColumn ) 的返回值是否為 False 以計算列的數量。

一封裝好的導出CListCtrl數據函數如下：///////////////////////////////////////////////////////////////////////////////
//　　void GetExcelDriver(CListCtrl* pList, CString strTitle)
//　　參數：
//　　　　pList　　　　需要導出的List控件指針
//　　　　strTitle　　導出的數據表標題
//　　說明:
//　　　　導出CListCtrl控件的全部數據到Excel文件。Excel文件名由用戶通過“另存為”
//　　　　對話框輸入指定。創建名為strTitle的工作表，將List控件內的所有數據（包括
//　　　　列名和數據項）以文本的形式保存到Excel工作表中。保持行列關系。
//
//　　edit by [r]@dotlive.cnblogs.com
///////////////////////////////////////////////////////////////////////////////
void ExportListToExcel(CListCtrl* pList, CString strTitle)
{
　　CString warningStr;
　　if (pList->GetItemCount ()>0) {
　　　　CDatabase database;
　　　　CString sDriver;
　　　　CString sExcelFile;
　　　　CString sSql;
　　　　CString tableName = strTitle;

　　　　// 檢索是否安裝有Excel驅動 "Microsoft Excel Driver (*.xls)"
　　　　sDriver = GetExcelDriver();
　　　　if (sDriver.IsEmpty())
　　　　{
　　　　　　// 沒有發現Excel驅動
　　　　　　AfxMessageBox("沒有安裝Excel!\n請先安裝Excel軟件才能使用導出功能!");
　　　　　　return;
　　　　}

　　　　///默認文件名
　　　　if (!GetDefaultXlsFileName(sExcelFile))
　　　　　　return;

　　　　// 創建進行存取的字符串
　　　　sSql.Format("DRIVER={%s};DSN='''';FIRSTROWHASNAMES=1;READONLY=FALSE;CREATE_DB=\"%s\";DBQ=%s",sDriver,
　　　　　　　　　　sExcelFile, sExcelFile);

　　　　// 創建數據庫 (既Excel表格文件)
　　　　if( database.OpenEx(sSql,CDatabase::noOdbcDialog) )
　　　　{
　　　　　　// 創建表結構
　　　　　　int i;
　　　　　　LVCOLUMN columnData;
　　　　　　CString columnName;
　　　　　　int columnNum = 0;
　　　　　　CString strH;
　　　　　　CString strV;
　　　　　　sSql = "";
　　　　　　strH = "";
　　　　　　columnData.mask = LVCF_TEXT;
　　　　　　columnData.cchTextMax =100;
　　　　　　columnData.pszText = columnName.GetBuffer (100);
　　　　　　for(i=0;pList->GetColumn(i,&columnData);i++)
　　　　　　{
　　　　　　　　if (i!=0)
　　　　　　　　{
　　　　　　　　　　sSql = sSql + ", " ;
　　　　　　　　　　strH = strH + ", " ;
　　　　　　　　}
　　　　　　　　sSql = sSql + " " + columnData.pszText +" TEXT";
　　　　　　　　strH = strH + " " + columnData.pszText +" ";
　　　　　　}
　　　　　　columnName.ReleaseBuffer ();
　　　　　　columnNum = i;
　　　　　　sSql = "CREATE TABLE " + tableName + " ( " + sSql +　" ) ";
　　　　　　database.ExecuteSQL(sSql);

　　　　　　// 插入數據項
　　　　　　int nItemIndex;
　　　　　　for (nItemIndex=0;nItemIndexGetItemCount ();nItemIndex++){
　　　　　　　　strV = "";
　　　　　　　　for(i=0;iGetItemText(nItemIndex,i) +"'' ";
　　　　　　　　}

　　　　　　　　sSql = "INSERT INTO "+ tableName
　　　　　　　　　　+" ("+ strH + ")"
　　　　　　　　　　+" VALUES("+ strV + ")";
　　　　　　　　database.ExecuteSQL(sSql);
　　　　　　}

　　　　}

　　　　// 關閉數據庫
　　　　database.Close();

　　　　warningStr.Format("導出文件保存於%s!",sExcelFile);
　　　　AfxMessageBox(warningStr);
　　}
}

歡迎到 來討論VC 、.net、.net moblie、圖形圖像等的編程與開發。

本文配套源碼