(1)用DBGridEh控件可以很容易实现导出Excel
下面是用DBGird导出Excel的代码,
procedure TModel_use2.exportClick(Sender: TObject);
var
idx,i:integer;
begin
idx:=1;
i:=1;
ExcelApplication1.Connect;
ExcelApplication1.Workbooks.Add(NULL,0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Sheets[1] as _worksheet);
while i <= Table1.FieldCount do
begin
ExcelWorksheet1.Cells.Item[idx,i]:=Table1.Fields[i-1].FieldName;
i:=i+1;
end;
table1.first;
while not table1.eof do
begin
idx:=idx+1;
i:=1;
while i <= Table1.FieldCount do
begin
ExcelWorksheet1.Cells.Item[idx,i]:=Table1.Fields.Fields[i-1].AsString;
i:=i+1;
end;
table1.next;
end;
ExcelApplication1.Disconnect;
ExcelApplication1.Quit;
end;