导出CListCtrl控件数据到Excel文件

//////////////////////////////////////////////////////////////////////////////
//名称：GetExcelDriver
//功能：获取ODBC中Excel驱动
//作者：徐景周([e-mail])
//组织：未来工作室(Future Studio)
//日期：2002.9.1
/////////////////////////////////////////////////////////////////////////////
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;
}

///////////////////////////////////////////////////////////////////////////////
// BOOL MakeSurePathExists( CString &Path,bool FilenameIncluded)
// 参数：
//   Path     路径
//   FilenameIncluded 路径是否包含文件名
// 返回值:
//   文件是否存在
// 说明:
//   判断Path文件(FilenameIncluded=true)是否存在,存在返回TURE，不存在返回FALSE
//   自动创建目录
//
///////////////////////////////////////////////////////////////////////////////
BOOL MakeSurePathExists( CString &Path,
       bool FilenameIncluded)
{
int Pos=0;
while((Pos=Path.Find('//',Pos+1))!=-1)
   CreateDirectory(Path.Left(Pos),NULL);
if(!FilenameIncluded)
   CreateDirectory(Path,NULL);
// return ((!FilenameIncluded)?!_access(Path,0):
// !_access(Path.Left(Path.ReverseFind('//')),0));

return !_access(Path,0);
}

//获得默认的文件名
BOOL GetDefaultXlsFileName(CString& sExcelFile)
{
///默认文件名：yyyymmddhhmmss.xls
CString timeStr;
CTime day;
day=CTime::GetCurrentTime();
int filenameday,filenamemonth,filenameyear,filehour,filemin,filesec;
filenameday=day.GetDay();//dd
filenamemonth=day.GetMonth();//mm月份
filenameyear=day.GetYear();//yyyy
filehour=day.GetHour();//hh
filemin=day.GetMinute();//mm分钟
filesec=day.GetSecond();//ss
timeStr.Format("%04d%02d%02d%02d%02d%02d",filenameyear,filenamemonth,filenameday,filehour,filemin,filesec);

sExcelFile =   timeStr + ".xls";
// prompt the user (with all document templates)
CFileDialog dlgFile(FALSE,".xls",sExcelFile);
CString title;
CString strFilter;

title = "导出";
strFilter = "Excel文件(*.xls)";
strFilter += (TCHAR)'/0';    // next string please
strFilter += _T("*.xls");
strFilter += (TCHAR)'/0';    // last string
dlgFile.m_ofn.nMaxCustFilter++;
dlgFile.m_ofn.nFilterIndex = 1;
// append the "*.*" all files filter
CString allFilter;
VERIFY(allFilter.LoadString(AFX_IDS_ALLFILTER));
strFilter += allFilter;
strFilter += (TCHAR)'/0';    // next string please
strFilter += _T("*.*");
strFilter += (TCHAR)'/0';    // last string
dlgFile.m_ofn.nMaxCustFilter++;

dlgFile.m_ofn.lpstrFilter = strFilter;
dlgFile.m_ofn.lpstrTitle = title;

if (dlgFile.DoModal()==IDCANCEL)
   return FALSE; // open cancelled
sExcelFile.ReleaseBuffer();
if (MakeSurePathExists(sExcelFile,true)) {
   if(!DeleteFile(sExcelFile)) {     // delete the file
    AfxMessageBox("覆盖文件时出错！");
    return FALSE;
   }
}
return TRUE;
}

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