求在ug中实现excel的创建方法

fisherhua · 发表于 2011-10-28 14:45:04

马上注册，结交更多同行朋友，交流，分享，学习。

您需要登录才可以下载或查看，没有帐号？注册

x

本帖最后由 fisherhua 于 2011-10-28 15:00 编辑

小弟最近遇到一个问题，就是需要在ug中调用MFC（DLL）实现excel的创建，但是经过多次对代码的修改和调试，只能实现一些简单的功能，不能对表格添加边框，也不能修改单元格的格式和文字对齐方式。急求大侠指点啊！！！

代码如下：
CDatabase Database;
  CString sDriver = "MICROSOFT EXCEL DRIVER (*.XLS)"; // Excel安装驱动
  CString sExcelFile = "d:\\yangzi\\lingjianku\\BFPD4\\扬子中央空调BFPD4型.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 (序号 NUMBER,零件名称 TEXT,图幅 CHAR,数量 NUMBER)";
   Database.ExecuteSQL(sSql);
   // 插入数值
   sSql = "INSERT INTO demo (序号,零件名称,图幅,数量) VALUES (1,'直角三通','A4',1)";
   Database.ExecuteSQL(sSql);
   sSql = "INSERT INTO demo (序号,零件名称,图幅,数量) VALUES (2,'中间条','A4',2)";
   Database.ExecuteSQL(sSql);
   sSql = "INSERT INTO demo (序号,零件名称,图幅,数量) VALUES (3,'铝合金型材1','A4',4)";
   Database.ExecuteSQL(sSql);
sSql = "INSERT INTO demo (序号,零件名称,图幅,数量) VALUES (3,'铝合金型材2','A4',4)";
   Database.ExecuteSQL(sSql);
}
// 关闭数据库
Database.Close();
  }
  CATCH_ALL(e)
  {
TRACE1("Excel驱动没有安装: %s",sDriver);
  }
  END_CATCH_ALL;