如何通过ODBC访问excel文件

通过OBDC，以下是代码  
  想要通过ODBC直接读、写Excel表格文件，首先，应确保ODBC中已安装有Excel表格文件的驱动"MICROSOFT   EXCEL   DRIVER   (*.XLS)"。然后，可根据下面步骤进行：  
  1. 在StdAfx.h文件中加入：  
  #include   <afxdb.h>    
  #include   <odbcinst.h>  
   
  2. 通过ODBC直接创建Excel文件(暂定文件名：Demo.xls)  
  //创建并写入Excel文件  
  void   CRWExcel::WriteToExcel()  
  {  
      CDatabase   database;  
      CString   sDriver   =   "MICROSOFT   EXCEL   DRIVER   (*.XLS)";   //   Excel安装驱动  
      CString   sExcelFile   =   "c://demo.xls";                                 //   要建立的Excel文件  
      CString   sSql;  
           
      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   demo   (Name   TEXT,Age   NUMBER)";  
              database.ExecuteSQL(sSql);  
   
              //   插入数值  
              sSql   =   "INSERT   INTO   demo   (Name,Age)   VALUES   ('徐景周',26)";  
              database.ExecuteSQL(sSql);  
   
              sSql   =   "INSERT   INTO   demo   (Name,Age)   VALUES   ('徐志慧',22)";  
              database.ExecuteSQL(sSql);  
   
              sSql   =   "INSERT   INTO   demo   (Name,Age)   VALUES   ('郭徽',27)";  
              database.ExecuteSQL(sSql);  
          }              
   
          //   关闭数据库  
          database.Close();  
      }  
      CATCH_ALL(e)  
      {  
          TRACE1("Excel驱动没有安装:   %s",sDriver);  
      }  
      END_CATCH_ALL;  
  }  
  3. 通过ODBC直接读取Excel文件(暂定文件名：Demo.xls)  
  //   读取Excel文件  
  void   CRWExcel::ReadFromExcel()    
  {  
          CDatabase   database;  
          CString   sSql;  
          CString   sItem1,   sItem2;  
          CString   sDriver;  
          CString   sDsn;  
          CString   sFile   =   "Demo.xls";   //   将被读取的Excel文件名  
                                                                             
          //   检索是否安装有Excel驱动   "Microsoft   Excel   Driver   (*.xls)"    
          sDriver   =   GetExcelDriver();  
          if   (sDriver.IsEmpty())  
          {  
                  //   没有发现Excel驱动  
                  AfxMessageBox("没有安装Excel驱动!");  
                  return;  
          }  
           
          //   创建进行存取的字符串  
          sDsn.Format("ODBC;DRIVER={%s};DSN='';DBQ=%s",   sDriver,   sFile);  
   
          TRY  
          {  
                  //   打开数据库(既Excel文件)  
                  database.Open(NULL,   false,   false,   sDsn);  
                   
                  CRecordset   recset(&database);  
   
                  //   设置读取的查询语句.  
                  sSql   =   "SELECT   Name,   Age   "                
                                "FROM   demo   "                                    
                                "ORDER   BY   Name   ";  
           
                  //   执行查询语句  
                  recset.Open(CRecordset::forwardOnly,   sSql,   CRecordset::readOnly);  
   
                  //   获取查询结果  
                  while   (!recset.IsEOF())  
                  {  
                          //读取Excel内部数值  
                          recset.GetFieldValue("Name   ",   sItem1);  
                          recset.GetFieldValue("Age",   sItem2);  
   
                          //   移到下一行  
                          recset.MoveNext();  
                  }  
   
                  //   关闭数据库  
                  database.Close();  
                                                             
          }  
          CATCH(CDBException,   e)  
          {  
                  //   数据库操作产生异常时...  
                  AfxMessageBox("数据库错误:   "   +   e->m_strError);  
          }  
          END_CATCH;  
  }  
   
   
  //   获取ODBC中Excel驱动  
  CString   CRWExcel::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;  
  }