iCAx开思工具箱

标题: 求在ug中实现excel的创建方法 [打印本页]

作者: fisherhua 时间: 2011-10-28 14:45
标题: 求在ug中实现excel的创建方法

小弟最近遇到一个问题，就是需要在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;

作者: yyazhi 时间: 2011-11-5 18:06
ddddddddddddddddd

作者: mch0116 时间: 2011-11-6 21:54
坐等高手支招:yan:

作者: fisherhua 时间: 2011-11-7 13:59

mch0116 发表于 2011-11-6 21:54
坐等高手支招

坐等高手支招！

欢迎光临 iCAx开思工具箱 (https://t.icax.org/)