提示我没有 足够内存

谢谢 ibmlang_002  问题 解决了

你的数组是如何定义的？ml
如果事先不知道有多少个文件，如何定义数组？

adir()函数会自动建立或扩充数组。

excel= GETFILE('XLS', 'File Name', 'OK',0, 'Open an Excel file...')
USE dbf
APPEND from （excel） TYPE XLS

请问yang286,第一行代码是表示获取一个EXCEL文件吗?第二行EXCEL为什么要加(  )呢 ?为什么不直接用"appen from ? type xls."不简洁吗?
以下代码是我想把一个文件夹中几个EXCEL文件自动导入一个表中.但遗憾的不成功!请高手指点.
ncount=1
gndbcnumber = adir(ml,'F:\xscjglxt\初中\*.xls') && 创建数组
USE xx
for ncount = 1 to gndbcnumber && 依据数据库的个数循环
selectfile1=ml(ncount,1)
selectfile="F:\xscjglxt\初中\"+selectfile1
appen from selectfile type xls
endfor
wait("成绩导入成功")window nowait
USE

[ 本帖最后由 TZTJ 于 2009-11-12 22:54 编辑 ]

APPEND from （excel） TYPE XLS
(excel) 是你所选定要导入的excel file
做一个browse button 放在click
excel= GETFILE('XLS', 'File Name', 'OK',0, 'Open an Excel file...')
然后做一个OK button 放在click
USE dbf
APPEND from （excel） TYPE XLS