部分金蝶软件需要的表格其实并不是标准的EXCEL表格,所以如果按EXCEL的方式生成,就无法在金蝶中进行导入。
直接上代码
var
WXLogFile: TextFile;
WXLogFileName: string;
begin
WXLogFileName := 'd:\jd.XLS';
Assignfile(WXLogFile, WXLogFileName);
rewrite(WXLogFile);
Closefile(WXLogFile);
Assignfile(WXLogFile, WXLogFileName);
Append(WXLogFile);
Writeln(WXLogFile, '日期' + #9 + '消费类别' + #9 + '消费金额' + #9 + '客户' + #9 + '方式' + #9);
Writeln(WXLogFile, '2021/09/11' + #9 + '现金' + #9 + '11167.7' + #9 + '' + #9 + '' + #9);
Writeln(WXLogFile, '2021/09/11' + #9 + '工商行收银' + #9 + '921.9' + #9 + '' + #9 + '' + #9);
Writeln(WXLogFile, '2021/09/11' + #9 + '会员卡' + #9 + '35' + #9 + '13517' + #9 + '现金卡' + #9);
Writeln(WXLogFile, '2021/09/11' + #9 + '会员卡' + #9 + '288' + #9 + '70260' + #9 + '现金卡' + #9);
CloseFile(WXLogFile);