有关delphi操作Excel的问题

Question

就是给2张表，表一和表二，然后用delphi生成表三那样的报表(excel)，有多少条数据就生成多少张报表。
（X是给出的数据，Y是要自动生成的数据）
我只会做access数据库的增删改查，Excel不会，有大神能告诉我怎么做吗，或者有什么类似的案例吗？谢谢了。表一：
客户名称   收货地址     联系人  ............
XXX公司        XX            XX表二：
客户名称    6月欠款金额   7欠款金额   8月欠款金额
XXX公司         XXX                 XXX                  XXX表三：
YY先生你好：
              您共计欠款YYY元收货地址：YYY
联系人：YYY

Answer 1

Delphi操作Excel的简单例子，也可以用Delphi自带的控件，在Servers页，原理是一样的：uses Comobj;
procedure TForm1.Button1Click(Sender: TObject);
var
     exlApp,WorkBook1,Sheet1:Variant;
     j:integer;
begin
     try
          exlApp:=CreateOleObject('Excel.Application');
          WorkBook1:=CreateOleObject('Excel.Sheet');
     except
          MessageBox(handle,'调用错误，没有正确安装Microsoft Excel！','提示',MB_OK+MB_ICONInformation);
          Exit;
     end;
     exlApp.Visible:=True;
     WorkBook1:=exlApp.WorkBooks.Add; //添加工作区
     Sheet1:=WorkBook1.WorkSheets[1]; //获取第一个工作簿
     for j:=1 to 5 do
     begin
          sheet1.columns[j].numberformatlocal:='@'; //设置列为文本格式
          sheet1.Cells[1,j].Interior.Color:=$00D9FFCE; //设置单元格背景为浅绿色
          sheet1.Cells[1,j].Borders[9].LineStyle:=1;   //设置边框线
          sheet1.columns[j].columnwidth:=20; //设置列宽度
          sheet1.cells[1,j]:='单元格值';
     end;
end;

Answer 2

你这个是创建Excel表格，好像不能把excel导入到delphi啊。

Answer 3

你这个是创建Excel表格，好像不能把excel导入到delphi啊。

Answer 4

你这个是创建Excel表格，好像不能把excel导入到delphi啊。
操作Excel肯定要读写Excel文件，这是其中一种方式，调用Excel程序的接口。可以隐藏界面 exlApp.Visible:=False;读取两个Excel，写入另外一个，然后退出。数据量大的话最好借助数据库。
     WorkBook1.SaveAs('filename.xls');
     WorkBook1.Close;
     exlApp.Quit;
     exlApp:=Unassigned;

Answer 5

建议使用XLSReadWriteII4，能读能写EXCEL。