用IMPORT FROM 命令导入外部数据
我想导入的文件先作一个判断是不是xls,如果是导入，否则退出。
代码如下：
cfilename=GETFILE('XLS', '','', 0, '选择一个要转化的EXCEL表')  &&获取有路径完整的文件名
cfile1=JUSTSTEM(cfilename ) &&获取不含扩展名的文件名
cpath=JUSTPATH(cfilename )  &&取路径
cfile2=JUSTEXT(cfilename) &&取扩展名
if cfile2='xls'
cd (cpath)&&&进入路径
IMPORT FROM &cfile1 TYPE XL5
else
quit
endif
为什么没有结果？

在import命令之前先挂起程序，看是否执行到此处。

也可以在if之前挂起程序来检查。

if cfile2='xls'
这句会有问题,改成:
if lower(cfile2)='xls'

-----------------------------
可以简化:
cfilename=GETFILE('XLS', '','', 0, '选择一个要转化的EXCEL表')  &&获取有路径完整的文件名
if lower(JUSTEXT(cfilename))='xls'
IMPORT FROM (cfilename) TYPE XL5
else
quit &&不解楼主为何在此用这QUIT？
endif


[ 本帖最后由 kiff 于 2013-3-28 19:09 编辑 ]

谢了，还有这个函数，原来如此，