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

fisherhua

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

mch0116

fisherhua