如何将一个数据库的内容转换为Excel表格？

Question

使用SERVER中的EXCEL控件，（WORD控件我用来
把数据库中的数据导了出来，效果不错；）
EXCEL控件肯定也行。。自己试吧

Answer 1

这个问题我自己已经搞定了，没用其他控件，请教datapump的用法。

Answer 2

用Excel数据库驱动，像用Paradox数据表一样使用好了。

Answer 3

使用SERVER中的EXCEL控件,用Connect方法连接到ExeclCom对象上，用Application.workbooks.Add加入新的表，再使用Application.cells.items[行,列]:=值既可。别忘了调用Quit释放连接。
在97上没问题的，在2000中I dont kown.:-)

Answer 4

procedure TForm3.Button2Click(Sender: TObject);
var MSExcel:Variant;
i,j:Integer;
begin
SaveDialog1.Filter:='*.XLS¦*.XLS';
SaveDialog1.DefaultExt:='XLS';
if SaveDialog1.Execute then
begin
  MSExcel:=CreateOLEObject('Excel.Application');
  MSExcel.WorkBooks.Add;
  MSExcel.Visible:=False;
  Table1.Open;
  j:=Table1.RecordCount;
  Table1.First;
  for i:=1 to j do
  begin
    MSExcel.Cells[i,1].Value:=Table1.FieldByName('CODE').AsString;
    MSExcel.Cells[i,2].Value:=Table1.FieldByName('COLOR').AsString;
    Table1.Next;
  end;
  MSExcel.ActiveWorkBook.SaveAs(SaveDialog1.FileName);  //存为文件
  MSExcel.ActiveWorkBook.Saved:=True;
  MSExcel.Quit;
end;
end;