begin
SaveDialog1.DefaultExt:='xls';
SaveDialog1.Filter:='Excel文件(*.xls)|*.xls';
if SaveDialog1.Execute then
begin
f1main.write(SaveDialog1.FileName,f1fileexcel5);
Application.MessageBox('保存到Excel成功!', '', MB_OK +
MB_ICONINFORMATION);
end;
end;
delphi 将F1Book生成的报表保存到Excel
最新推荐文章于 2023-04-22 09:17:52 发布