这是以前的版本过低怎么改啊! 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;
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;
一是升级控件。
二是通过高版本EXCEL读入,再保存(高版本格式)。实际使用中,高版本的EXCEL,是可以打开低版本的文件。向下兼容的。