您的位置:首页 > 编程语言 > Delphi

delphi 把表格控件的内容转出到Excel

2017-11-16 09:31 357 查看
delphi 把表格控件的内容转出到Excel需要使用ExcelApplication控件

范例如下

Var I,K,m:Integer;
ExcelID: Variant ;
begin
ExcelApplication1.Connect;
ExcelID :=CreateOleObject('Excel.Application') ;
ExcelID.Visible :=False ;
ExcelID.Caption :='应用程序调用 Microsoft Excel' ;
ExcelID.WorkBooks.Open('C:\我的报表模板.xlsx' );

With dbgrdh1.DataSource.DataSet  Do
begin
DisableControls;
First;
K:=0 ;
while not eof do
begin
m:=0;
for i:=0 to Fields.Count-1 do

begin

//这里把Excel表格的内容设置为delphi表格的内容,如:ExcelID.cells[K+4,i+1-m].value :=FieldByName(Fields[I].FieldName).Text;

end;
K:=K+1 ;
next;
end;
EnableControls;
end;

ExcelID.ActiveWorkBook.SaveAs(Excel_file.Text);  //这个参数是文件保存的路径
ExcelID.WorkBooks.Close;
ExcelID.Quit;
ExcelApplication1.Disconnect;
MessageDlg('转出成功!',mtinformation,[mbok],0);
end;
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息