一個導出CListCtrl控件資料到Excel檔案的封裝函數[r

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 以計算列的數量。

///////////////////////////////////////////////////////////////////////////////

//    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))

        // 建立進行存取的字元串

        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;nItemIndex<pList->GetItemCount ();nItemIndex++){

                strV = "";

                for(i=0;i<columnNum;i++)

                    if (i!=0)

                    {

                        strV = strV + ", " ;

                    }

                    strV = strV + " '" + pList->GetItemText(nItemIndex,i) +"' ";

                sSql = "INSERT INTO "+ tableName 

                    +" ("+ strH + ")"

                    +" VALUES("+ strV + ")";

                database.ExecuteSQL(sSql);

        }      

        // 關閉資料庫

        database.Close();

        warningStr.Format("導出檔案儲存于%s!",sExcelFile);

        AfxMessageBox(warningStr);

    }

}

本文轉自 lu xu 部落格園部落格，原文連結：http://www.cnblogs.com/dotLive/archive/2006/08/26/486980.html   ，如需轉載請自行聯系原作者