|
#2
吹水佬2021-05-28 08:44
|
单个XLS文件内容加到DBF，可用以下代码：
CREATE DBF CURRENT_Class (座号 C(10),姓名 C(8),成绩 F(4,2))
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
SELECT CURRENT_Class
APPEND FROM 0326.TXT DELIMITED WITH TAB
但是有多个XLS要加到同一表中，这样的操作就麻烦些，还易漏或重复加入，如果将同一目录的的多个XLS加到同一表，代码上如何实现 ？
