利用ODBC把数据库数据导出为Excel文件

Step1：取得Excel驱动程序，验证电脑是否安装了Excel驱动程序。

代码如下：

CString CReportCharge::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;
}

step2：取得导出文件的存放路径和名称

CFileDialog dlgFileOpen(FALSE,NULL,NULL,OFN_OVERWRITEPROMPT | OFN_NOCHANGEDIR | OFN_EXPLORER,"Excel 表格文件(*.xls)|*.xls|");
    dlgFileOpen.m_ofn.lpstrTitle = "导出数据(世贸商城会员管理系统-客户端)";

 int structsize=0;
 DWORD dwVersion,dwWindowsMajorVersion,dwWindowsMinorVersion;
 //检测目前的操作系统，GetVersion具体用法详见MSDN
 dwVersion = GetVersion();
 dwWindowsMajorVersion = (DWORD)(LOBYTE(LOWORD(dwVersion)));
 dwWindowsMinorVersion = (DWORD)(HIBYTE(LOWORD(dwVersion)));
 // 如果运行的操作系统是Windows NT/2000
 if (dwVersion < 0x80000000) 
  structsize =88;//显示新的文件对话框
 else
  //运行的操作系统Windows 95/98 
  structsize =76;//显示老的文件对话框
 
 dlgFileOpen.m_ofn.lStructSize=structsize;
 TCHAR lpstrFilename[MAX_PATH] = "";
 dlgFileOpen.m_ofn.lpstrFile=lpstrFilename;
 if(dlgFileOpen.DoModal()==IDOK)
 {
  CString filename;
  filename.Format("%s",lpstrFilename);
  if(filename.Right(4)!=".xls")
  {
   filename+=".xls";
  }
  m_fileName = filename;
  return true;
 }
 else
 {
  return false;
 }

Step3：开始从列表框取得数据，插入Excel文件中。

CString sDriver1 = GetExcelDriver();
    if (sDriver1.IsEmpty())
    {
        // 没有发现Excel驱动
        if(MessageBox("系统检测到您的计算机上到没有安装Excel表格驱动！/n这会造成您导出的Excel文件无法读出！/n/n确定要导出吗？","提示",MB_OKCANCEL|MB_ICONINFORMATION) != IDOK)
        return;
    }
  CDatabase database;
  CString sDriver = "MICROSOFT EXCEL DRIVER (*.XLS)"; // Excel安装驱动
  CString sExcelFile,sPath;
  CString sSql;
   
  //获取主程序所在路径,存在sPath中
  GetModuleFileName(NULL,sPath.GetBufferSetLength (MAX_PATH+1),MAX_PATH);
  sPath.ReleaseBuffer ();
  int nPos;
  nPos=sPath.ReverseFind ('//');
  sPath=sPath.Left (nPos);
  if(!GetFileName())
  {
   return;
  }
  sExcelFile = m_fileName;
    TRY
  {
    // 创建进行存取的字符串
    sSql.Format("DRIVER={%s};DSN='';FIRSTROWHASNAMES=1;READONLY=FALSE;CREATE_DB=%s;DBQ=%s",sDriver, sExcelFile, sExcelFile);

    // 创建数据库 (既Excel表格文件)

    if( database.OpenEx(sSql,CDatabase::noOdbcDialog) )
    {

sSql = "CREATE TABLE 会员交费明细报表 (序号 TEXT,会员类别 TEXT,会员卡号 TEXT,会员姓名 TEXT,交费日期 TEXT,交费金额 TEXT,票据号 TEXT,操作员 TEXT)";
  CString s1,s2,s3,s4,s5,s6,s7,s8;
  database.ExecuteSQL(sSql);
  for(int i=0; i<m_list.GetItemCount(); i++)
  {
   // 插入数值
   s1 = m_list.GetItemText(i,0);
            s2 = m_list.GetItemText(i,1);
   s3 = m_list.GetItemText(i,2);
   s4 = m_list.GetItemText(i,3);
   s5 = m_list.GetItemText(i,4);
   s6 = m_list.GetItemText(i,5);
   s7 = m_list.GetItemText(i,6);
            s8 = m_list.GetItemText(i,7);
  
   sSql = "INSERT INTO 会员交费明细报表 (序号,会员类别,会员卡号,会员姓名,交费日期,交费金额,票据号,操作员) VALUES ('"+s1+"','"+s2+"','"+s3+"','"+s4+"','"+s5+"','"+s6+"','"+s7+"','"+s8+"')";
   database.ExecuteSQL(sSql);
  }     
 }

    // 关闭数据库
    database.Close();
 MessageBox("导出成功！","提示",MB_ICONINFORMATION);
  }
  CATCH_ALL(e)
  {
   MessageBox("导出错误，该文件已经存在! 请重试！","错误",MB_ICONERROR);
   TRACE1("Excel驱动没有安装: %s",sDriver);
  }
  END_CATCH_ALL;

本文所介绍的方法简单、方便，不足之处在于不能够设置Excel文件中的列宽。