导入文件出错 - 编程论坛

学生的体温文件放在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                                                                &&引入资料