Question

Delphi7 保存 Excel 文件的版本问题

2007 版本后 Excel 用 xlsx 扩展名
如果用 myWorkBook.SaveAs( c:\aaa.xls) 方法，虽然可以保存成 xls 文件，但打开文件的时候会有警告。
如果保存为 xlsx 结尾就没问题。

Delphi 中可不可以通过某些方法 保存成 xls, 之后打开不会有文件格式，损坏之类的警告

Answer 1

定义一个常量名为xlNormal = -4143，把myWorkBook.SaveAs( c:\aaa.xls)更改为，如下：

procedure ****
const xlNormal = -4143;
begin
....
myWorkBook.ActiveWorkbook.SaveAs(‘c:\aaa.xls’,xlNormal,'', '',False,False); //xlNormal在EXCEL中代表一般的文件格式
......
end;