16,747
社区成员
发帖
与我相关
我的任务
分享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;
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;
...全文
请发表友善的回复…
发表回复
fjutxd 2018-11-23
- 打赏
- 举报
TXLSReadWriteII5 这个挺好用的
xianhao456 2018-09-20
- 打赏
- 举报
下一个TMS advstringgrid advstringgridIO控件 你说这个问题轻松解决
lyhoo163 2018-09-08
- 打赏
- 举报
建议使用TXLSReadWriteII5，它支持高版本的EXCEL。
秋天之落叶 2018-09-07
- 打赏
- 举报
试着把驱动换成高版本的：AccessDatabaseEngine2007或者2010，区分32位和64位。
lizjf 2018-09-07
- 打赏
- 举报
把XLS换为XLSX
xishipachong 2018-08-06
- 打赏
- 举报
试试把XLS换成XLSX
jinhx 2018-08-03
- 打赏
- 举报
这过程除了文件名外也和excel没关系呀
hongss 2018-08-03
- 打赏
- 举报
没有Excel导出过程啊
lyhoo163 2018-08-01
- 打赏
- 举报
二种办法：
一是升级控件。
二是通过高版本EXCEL读入，再保存（高版本格式）。
实际使用中，高版本的EXCEL，是可以打开低版本的文件。向下兼容的。
一是升级控件。
二是通过高版本EXCEL读入，再保存（高版本格式）。
实际使用中，高版本的EXCEL，是可以打开低版本的文件。向下兼容的。
a_nobody___ 2018-08-01
- 打赏
- 举报
快快有人看到吧
