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

                                                        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();

}