delphi中如何调用Excel来显示和打印报表?

Question

VCL-->server页-->TExcelApplication+TExcelWorkBook+TExcelWorkSheet
具体怎么用，看delphi自带的例程

Answer 1

去买“中国铁道出版社”的《DELPHI5。0程序设计--数据库应用时务篇》里面有很详细的例子，可以用的。

Answer 2

我们公司在做OA 时正在做此方面的编程, 很简单的, Excel本身有一个对象, 你创建一个Excel对象, 然后相应的属性就有此方面的内容.

Answer 3

你要做的我曾经做过。
我的实现方法是这样的：用Formula one6.1控件,它能打开excel97的文件。
先用excel做一个模板,当然打印格式也做好了.
再用程序控制写入数据并打印。

Answer 4

请你访问
http://go.163.com/~ssudi
那里有解决方案,还有源码呢!美观漂亮方便呀!

Answer 5

谢谢各位的回复！
目前我又遇到一个问题，请看我的源代码：
......
procedure TForm1.BtnCreateTableClick(Sender: TObject);
var
  sheet:variant;
  i,j:Integer;
  Template:OleVariant;
begin
  ExcelApplication1.Connect;
  ExcelApplication1.Visible[0]:=true;
  Template:=Emptyparam;
  ExcelApplication1.Workbooks.Add(Template,0);
  sheet:=ExcelApplication1.Workbooks[1].Worksheets[1];
  sheet.Name:='调度日报表';
  with Table1 do
  begin
    First;
    j:=1;
    While Not EOF do
    begin
      for i:=0 to Fieldcount-1 do
        sheet.cells[j,i+1]:=Fields[i].AsString;
        j:=j+1;
      Next;
    end;
end;
......
这段代码实现

Answer 6

谢谢各位的回复！
目前我又遇到一个问题，请看我的源代码：
......
procedure TForm1.BtnCreateTableClick(Sender: TObject);
var
  sheet:variant;
  i,j:Integer;
  Template:OleVariant;
begin
  ExcelApplication1.Connect;
  ExcelApplication1.Visible[0]:=true;
  Template:=Emptyparam;
  ExcelApplication1.Workbooks.Add(Template,0);
  sheet:=ExcelApplication1.Workbooks[1].Worksheets[1];
  sheet.Name:='调度日报表';
  with Table1 do
  begin
    First;
    j:=1;
    While Not EOF do
    begin
      for i:=0 to Fieldcount-1 do
        sheet.cells[j,i+1]:=Fields[i].AsString;
        j:=j+1;
      Next;
    end;
end;
......
这段代码实现DELPHI向Excel非模板worksheet中写入字段值
Template:=Emptyparam；
ExcelApplication1.Workbooks.Add(Template,0);
而现在我要向已经做好的（设置好打印格式的）Excel模板中写入数据，请问该如何做，Add()的参数如何选。