导入文件出错
学生的体温文件放在c:\class中,有多个,统一为CSV格式,用adir()把它们的信息存在数组,将指定的文件导入到新的表中出错!以下是代码:SET DEFAULT TO C:\class
GNDBCNUMBER = ADIR(GADATABASE, '*.csv') && 创建一个数组
? GNDBCNUMBER
? GADATABASE(2,1)
M_FILE=ALLTRIM(GADATABASE(2,1))
? M_FILE
CLOSE DATABASES
OEXCEL = CREATEOBJECT("EXCEL.APPLICATION")
WITH OEXCEL
.WORKBOOKS.OPEN(M_FILE) &&出错的地方
.DISPLAYALERTS = .F.
.ACTIVEWORKBOOK.SAVEAS(SYS(5) + SYS(2003) + "\0326.TXT", -4158) && 保存为以制表符分隔的文本文件
.ACTIVEWORKBOOK.CLOSE
.DISPLAYALERTS = .T.
.QUIT
ENDWITH
RELEASE OEXCEL
CREATE CURSOR slot_1 (学号 C(10),性别 C(10),体温 N(6,2),日期 d) &&导入学生体温数据
APPEND FROM 0326.TXT DELIMITED WITH TAB
ERASE 0326.TXT &&引入资料