数据导入后异常
从考勤机下载的数据格式为XLS,放在程序指定目录后,用程序导入后,发现日期数据与XLS明显不同,又找不出什么原因,表的相关字段类型都换过了,不知道哪出错了。[code]
class.rar
(66.83 KB)
CLOSE DATABASES oExcel = CreateObject("Excel.Application") WITH oExcel .WorkBooks.Open(SYS(5) + SYS(2003) + "\0326.xls") .DisplayAlerts = .F. .ActiveWorkbook.Saveas(SYS(5) + SYS(2003) + "\0326.Txt", -4158) && 保存为 以制表符分隔的文本文件 .ActiveWorkbook.Close .DisplayAlerts = .T. .Quit ENDWITH RELEASE oExcel USE cj ZAP APPEND FROM 0326.TXT DELIMITED WITH TAB BROWSE ERASE 0326.txt
[此贴子已经被作者于2021-4-5 15:49编辑过]