VC导出CListCtrl数据到Excel两种方法

方法1：使用MFC的CDatabase类直接执行SQL命令的方式实现   已尝试成功！


在文件中包含头文件
#include <odbcinst.h>
#include <afxdb.h>
#include <comdef.h>


void ExportListToExcel(CListCtrl *pList,CString sExcelFile, CString sSheetName)
{
    CString warningStr;
    if (pList->GetItemCount ()>0) { 
    CDatabase database;
    CString sDriver;
    CString sSql;


    // 检索是否安装有Excel驱动 "Microsoft Excel Driver (*.xls)" 
    sDriver = GetExcelDriver();
    if (sDriver.IsEmpty())
    {
         // 没有发现Excel驱动
         MessageBox(NULL,"没有安装Excel!\n请先安装Excel软件才能使用导出功能!","提示",MB_OK|MB_ICONSTOP|MB_TOPMOST);
         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 " + sSheetName+ " (" + 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 "+ sSheetName+" ("+ strH + ")"+" VALUES("+ strV + ")";
   
           database.ExecuteSQL(sSql);
       }
   
    }      


// 关闭数据库
database.Close();


warningStr.Format("导出文件保存于%s!",sExcelFile);
MessageBox(NULL,warningStr,"提示",MB_OK|MB_ICONINFORMATION|MB_TOPMOST);
}
else
{
//没有数据
MessageBox(NULL,"没有数据，不能导出!","提示",MB_OK|MB_ICONWARNING|MB_TOPMOST);


}


}


//获取ODBC中Excel驱动函数
CString GetExcelDriver()
{
char szBuf[2001];
    WORD cbBufMax = 2000;
    WORD cbBufOut;
    char *pszBuf = szBuf;
    CString sDriver="";


    // 获取已安装驱动的名称(涵数在odbcinst.h里)
    if (!SQLGetInstalledDrivers(szBuf, cbBufMax, &cbBufOut))
        return "";
    
    // 检索已安装的驱动是否有Excel...
    do
    {
        if (strstr(pszBuf, "Excel") != 0)
        {
            //发现 !
            sDriver = CString(pszBuf);
            break;
        }
        pszBuf = strchr(pszBuf, '\0') + 1;
    }
    while (pszBuf[1] != '\0');


    return sDriver;


}


方法2：使用Excel类型库接口的方式实现


首先包含头文件和初始化COM接口，具体方法见我的另一篇文章《自动控制Excel 并获知用户已将其关闭》


void ExportListToExcel(CListCtrl *pList, CString sExcelFile, CString sSheetName)
{
_Worksheet m_wsExcelSingle;
Worksheets m_wsExcels;
_Workbook m_wbExcelSingle;
Workbooks m_wbExcels;
_Application m_appExcel;
    Range m_rangeExcel;


COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);


if (!m_appExcel.CreateDispatch("Excel.Application",NULL)) 
{
MessageBox("创建Excel服务失败!","提示",MB_OK|MB_ICONWARNING);
return;
} 


m_appExcel.SetVisible(false); 
m_wbExcels.AttachDispatch(m_appExcel.GetWorkbooks(),true);


m_wbExcelSingle.AttachDispatch(m_wbExcels.Add(covOptional));


//得到Worksheets 
m_wsExcels.AttachDispatch(m_wbExcelSingle.GetWorksheets(),true);
//删除多余的表
m_wsExcelSingle.AttachDispatch(m_wsExcels.GetItem(COleVariant((short)3)));
m_wsExcelSingle.Delete();
m_wsExcelSingle.AttachDispatch(m_wsExcels.GetItem(COleVariant((short)2)));
m_wsExcelSingle.Delete();
//表改名
m_wsExcelSingle.AttachDispatch(m_wsExcels.GetItem(COleVariant((short)1)));
m_wsExcelSingle.SetName(sSheetName);
m_rangeExcel.AttachDispatch(m_wsExcelSingle.GetUsedRange(), TRUE);


if (pList->GetItemCount ()>0)   
{ 
int nItemCount,nColumnCount;


nColumnCount = pList->GetHeaderCtrl()->GetItemCount();
nItemCount = pList->GetItemCount();
int i;
LVCOLUMN columnData;
CString columnName;
int columnNum = 0;
CString strH;
CString strV;


columnData.mask = LVCF_TEXT;
columnData.cchTextMax =100;
columnData.pszText = columnName.GetBuffer (100);
//写列表头
for(i=0;pList->GetColumn(i,&columnData);i++)
{
   m_rangeExcel.SetItem( _variant_t( (long)(1) ), _variant_t( (long)(i+1) ),COleVariant(columnData.pszText) );
}
columnName.ReleaseBuffer ();


// 向Excel中写数据
for (i = 0; i < nItemCount; i++ )             
{
   for ( int j = 0; j < nColumnCount; j++ )
   {
    m_rangeExcel.SetItem( _variant_t( (long)(i+2) ), 
     _variant_t( (long)(j+1) ),
     COleVariant(pList->GetItemText(i,j)) );
   }
}


//此方法对于不同的Excel版本参数个数可能不能，具体参看MSDN
m_wbExcelSingle.SaveAs( COleVariant( sExcelFile ),
   _variant_t(vtMissing),
   _variant_t(vtMissing),
   _variant_t(vtMissing),
   _variant_t(vtMissing),
   _variant_t(vtMissing),
   0,
   _variant_t(vtMissing),
   _variant_t(vtMissing),
   _variant_t(vtMissing),
   _variant_t(vtMissing));


}
else
{
//没有数据
MessageBox("没有数据，不能导出!","提示",MB_OK|MB_ICONWARNING|MB_TOPMOST);


}




m_wbExcelSingle.Close( covOptional, COleVariant( sExcelFile ), covOptional );
m_wbExcels.Close();
m_rangeExcel.ReleaseDispatch(); 
m_wsExcelSingle.ReleaseDispatch(); 
m_wsExcels.ReleaseDispatch(); 
m_wbExcelSingle.ReleaseDispatch(); 
m_wbExcels.ReleaseDispatch(); 
m_appExcel.ReleaseDispatch(); 
m_appExcel.Quit();


}