Delphi7 导出文件Excel版本过低，不能兼容其他软件。。。。。。

2018-08-01 04:44:05 1.1k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

delphi7 下的Excel导出 unit Unit3; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComObj, StdCtrls; const L_ARR_CHAR:array[0..77]of string=('A','B','C','D','E','F 阅读详情

这是以前的版本过低怎么改啊！

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;

...全文