数据导入后异常
从考勤机下载的数据格式为XLS,放在程序指定目录后,用程序导入后,发现日期数据与XLS明显不同,又找不出什么原因,表的相关字段类型都换过了,不知道哪出错了。[code]
2021-04-05 11:02

2021-04-05 11:21
2021-04-05 11:32
2021-04-05 12:52
2021-04-05 12:52
2021-04-05 13:59
程序代码: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编辑过]

2021-04-05 15:44
2021-04-05 17:14

2021-04-05 17:21

2021-04-05 17:28