Delphi7 导出文件Excel版本过低,不能兼容其他软件。。。。。。
这是以前的版本过低怎么改啊!
LocalFileName:='';
with TSaveDialog.Create(Nil) do
begin
DefaultExt:='.XLS';
FileName:='收费接口文件'+FormatDateTime('yyyymmdd', Now())+'.XLS';
Filter:='EXCEL 文件|*.XLS';
InitialDir:=ExtractFileDir(Application.ExeName);
Title:='保存收费接口文件';
if Execute() then
begin
LocalFileName:=FileName;
end;
Free;