CAA怎样中向excel中写数据

liuruixiao205

我想用程序新建一个excel同时往里面写数据，我找了一段vc的程序如下
    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);
  
  sExcelFile = sPath + "\\拱圈参数.xls";       // 要建立的Excel文件
  
  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 Exceldemo (Name TEXT,Age NUMBER)";
      database.ExecuteSQL(sSql);
  
      // 插入数值
      sSql = "INSERT INTO Exceldemo (Name,Age) VALUES ('徐景周',26)";
      database.ExecuteSQL(sSql);
  
      sSql = "INSERT INTO Exceldemo (Name,Age) VALUES ('徐志慧',22)";
      database.ExecuteSQL(sSql);
  
      sSql = "INSERT INTO Exceldemo (Name,Age) VALUES ('郭徽',27)";
      database.ExecuteSQL(sSql);
    }      
  
    // 关闭数据库
    database.Close();
  
  AfxMessageBox("Excel文件写入成功！");
  }
  CATCH_ALL(e)
  {
    TRACE1("Excel驱动没有安装: %s",sDriver);
  }
  END_CATCH_ALL;
  //CDialog::OnOK();

liuruixiao205

acoka

liuruixiao205

liuruixiao205

acoka

liuruixiao205

liuruixiao205

acoka

acoka