一个导出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 以计算列的数量。

ExpandedBlockStart.gif ///
None.gif //     void GetExcelDriver(CListCtrl* pList, CString strTitle)
None.gif
//     参数:
None.gif
//         pList        需要导出的List控件指针
None.gif
//         strTitle    导出的数据表标题
None.gif
//     说明:
None.gif
//         导出CListCtrl控件的全部数据到Excel文件。Excel文件名由用户通过“另存为”
None.gif
//         对话框输入指定。创建名为strTitle的工作表,将List控件内的所有数据(包括
None.gif
//         列名和数据项)以文本的形式保存到Excel工作表中。保持行列关系。
None.gif
//     
None.gif
//     edit by [r]@dotlive.cnblogs.com
ExpandedBlockStart.gif
///
None.gif void  ExportListToExcel(CListCtrl *  pList, CString strTitle)
ExpandedBlockStart.gif {
InBlock.gif    CString warningStr;
ExpandedSubBlockStart.gif    if (pList->GetItemCount ()>0) {    
InBlock.gif        CDatabase database;
InBlock.gif        CString sDriver;
InBlock.gif        CString sExcelFile; 
InBlock.gif        CString sSql;
InBlock.gif        CString tableName = strTitle;
InBlock.gif        
InBlock.gif        // 检索是否安装有Excel驱动 "Microsoft Excel Driver (*.xls)" 
InBlock.gif
        sDriver = GetExcelDriver();
InBlock.gif        if (sDriver.IsEmpty())
ExpandedSubBlockStart.gif        {
InBlock.gif            // 没有发现Excel驱动
InBlock.gif
            AfxMessageBox("没有安装Excel!\n请先安装Excel软件才能使用导出功能!");
InBlock.gif            return;
ExpandedSubBlockEnd.gif        }
InBlock.gif        
ExpandedSubBlockStart.gif        ///默认文件名
InBlock.gif        if (!GetDefaultXlsFileName(sExcelFile))
InBlock.gif            return;
InBlock.gif        
InBlock.gif        // 创建进行存取的字符串
InBlock.gif
        sSql.Format("DRIVER={%s};DSN='';FIRSTROWHASNAMES=1;READONLY=FALSE;CREATE_DB=\"%s\";DBQ=%s",sDriver, sExcelFile, sExcelFile);
InBlock.gif        
InBlock.gif        // 创建数据库 (既Excel表格文件)
InBlock.gif
        if( database.OpenEx(sSql,CDatabase::noOdbcDialog) )
ExpandedSubBlockStart.gif        {
InBlock.gif            // 创建表结构
InBlock.gif
            int i;
InBlock.gif            LVCOLUMN columnData;
InBlock.gif            CString columnName;
InBlock.gif            int columnNum = 0;
InBlock.gif            CString strH;
InBlock.gif            CString strV;
InBlock.gif
InBlock.gif            sSql = "";
InBlock.gif            strH = "";
InBlock.gif            columnData.mask = LVCF_TEXT;
InBlock.gif            columnData.cchTextMax =100;
InBlock.gif            columnData.pszText = columnName.GetBuffer (100);
InBlock.gif            for(i=0;pList->GetColumn(i,&columnData);i++)
ExpandedSubBlockStart.gif            {
InBlock.gif                if (i!=0)
ExpandedSubBlockStart.gif                {
InBlock.gif                    sSql = sSql + ", " ;
InBlock.gif                    strH = strH + ", " ;
ExpandedSubBlockEnd.gif                }
InBlock.gif                sSql = sSql + " " + columnData.pszText +" TEXT";
InBlock.gif                strH = strH + " " + columnData.pszText +" ";
ExpandedSubBlockEnd.gif            }
InBlock.gif            columnName.ReleaseBuffer ();
InBlock.gif            columnNum = i;
InBlock.gif
InBlock.gif            sSql = "CREATE TABLE " + tableName + " ( " + sSql +  " ) ";
InBlock.gif            database.ExecuteSQL(sSql);
InBlock.gif            
InBlock.gif            // 插入数据项
InBlock.gif
            int nItemIndex;
ExpandedSubBlockStart.gif            for (nItemIndex=0;nItemIndex<pList->GetItemCount ();nItemIndex++){
InBlock.gif                strV = "";
InBlock.gif                for(i=0;i<columnNum;i++)
ExpandedSubBlockStart.gif                {
InBlock.gif                    if (i!=0)
ExpandedSubBlockStart.gif                    {
InBlock.gif                        strV = strV + ", " ;
ExpandedSubBlockEnd.gif                    }
InBlock.gif                    strV = strV + " '" + pList->GetItemText(nItemIndex,i) +"' ";
ExpandedSubBlockEnd.gif                }
InBlock.gif                
InBlock.gif                sSql = "INSERT INTO "+ tableName 
InBlock.gif                    +" ("+ strH + ")"
InBlock.gif                    +" VALUES("+ strV + ")";
InBlock.gif                database.ExecuteSQL(sSql);
ExpandedSubBlockEnd.gif            }
InBlock.gif            
ExpandedSubBlockEnd.gif        }      
InBlock.gif        
InBlock.gif        // 关闭数据库
InBlock.gif
        database.Close();
InBlock.gif            
InBlock.gif        warningStr.Format("导出文件保存于%s!",sExcelFile);
InBlock.gif        AfxMessageBox(warningStr);
ExpandedSubBlockEnd.gif    }
ExpandedBlockEnd.gif}


完整工程示例可以在这里下载,使用VC6 MFC 。



本文转自 lu xu 博客园博客,原文链接:http://www.cnblogs.com/dotLive/archive/2006/08/26/486980.html   ,如需转载请自行联系原作者

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值