用TDBGridEhExportAsXls对象,导出excel,但是出来的是excel 2003格式的,由于现在数量超出了excel 2003的行数范围,
求如何可以保存出来的是EXCEL 2007格式。附原导出excel 2003格式代码:var
ff:TDBGridEhExportAsXls;
filename:string;
begin
if savedialog1.Execute then
begin
filename:=savedialog1.FileName;
if filename='' then exit;
try
ff:=TDBGridEhExportAsXLS.Create;
ff.DBGridEh:=DBGridEh1;
filename:=filename+'.xls';
ff.ExportToFile(filename,true);
finally
ff.free;
end;
end;
end;
求如何可以保存出来的是EXCEL 2007格式。附原导出excel 2003格式代码:var
ff:TDBGridEhExportAsXls;
filename:string;
begin
if savedialog1.Execute then
begin
filename:=savedialog1.FileName;
if filename='' then exit;
try
ff:=TDBGridEhExportAsXLS.Create;
ff.DBGridEh:=DBGridEh1;
filename:=filename+'.xls';
ff.ExportToFile(filename,true);
finally
ff.free;
end;
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货