一个导出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))
            
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;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);
    }

}
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值