用Delphi控制Excel的难题

Question

在DELPHI中
如何在创建一个文档时,以自定义的模板形式新建一个EXCEL文档
请各位能人伸一下援手,重分相送.

Answer 1

类似的代码：http://www.delphibox.com/article.asp?articleid=16

Answer 2

谢谢了,不过我要的是,能不能直接用代码控制,让Excel在新建的时候自动套用自定义的模板

Answer 3

winexec('copy E:\Excel\01.xls  E:\temp.xls',sw_normal);

Answer 4

//*****************EXCEL相关操作********************************************//
      Try
        XLApp:=CreateOleObject('Excel.Application');            //打开EXCEL
      Except
        self.WriteLog('Excel 没有安装，请先安装');
        exit;
      End;
      Try
        XLApp.Workbooks.Open(ConMoBan);
      Except
        self.WriteLog('打开模板文件时出错，请检查'+ConMoBan+'.xls 文件是否存在!');
        exit;
      End;
  //***
 XLApp.ActiveWorkbook.SaveAs(NewPath+'\'+FileName);

Answer 5

TO  ksaiy(消失在人海)：那种方法我知道，是做一个资源文件吧，然后在新建文档的时候从资源文件里读出格式数据，这种方法就是不灵活，要是我有多个模板呢，那不是要做多个资源文件，而且我每多一个模板就要再编辑一个资源文件，这样不是很不灵活。
我要的是，能不能像在EXCEL中操作：文件->新建->常用->模板名  一样，用Delphi来实现

Answer 6

文件->新建->常用->模板名
那你录制宏就可以了。然后把代码加到delphi中.

Answer 7

录制宏啊。然后修改以后写到Delphi中：    Workbooks.Add Template:= _
        "D:\Program Files\Microsoft Office\Templates\2052\REPORT1.XLT"

Answer 8

谁能把Workbooks.Add Template:= _
        "D:\Program Files\Microsoft Office\Templates\2052\REPORT1.XLT"
这句VBA代码转化为Delphi代码

Answer 9

跟 ksaiy(消失在人海)有同感。对就那样。那种方法最牛了。任何东东都能取出来。

Answer 10

好吧。帮你装一下：
ExcelApp.WorkBooks.Add(Template:='D:\Program Files\Microsoft Office\Templates\2052\REPORT1.XLT');你录制以后按照我给你的代码转就可以了。