Question

VFP中出现的奇妙问题

use 表zapuse 表APPEND FROM GETFILE('XLS', '','', 0, '选择一个EXCEL文件') TYPE XL5 &&或XL8 use 表DELETE FOR RECNO()=1PACKbrow红字的出入导致VFP就直接关闭了，这是为啥呢？
问题出在追加那句代码，图中有显示，请大神帮忙

Answer 1

你加那么多的“use 表”干吗？也会出错吧？只要use一次就好了，另外appe的时候最好先
wj= GETFILE('XLS', '','', 0, '选择一个EXCEL文件')

将选择的文件路径赋值给一个变量，也好判断是否是xls文件，最好再加一个容错处理，

use 表
wj=GETFILE('XLS', '','', 0, '选择一个EXCEL文件')APPEND FROM TYPE XL5 &&或XL8
IF !file(wj) or JUSTEXT(wj)<>'XLS'
MESSAGEBOX('所选的文件不存在或非excel文件！',16,'警告',5000)
RETURN
ENDIF
cg=.t.
on error cg=.f.
APPEND FROM &wj
if !cg
messagebox("操作失败！",48,'提示')
retu
endif
DELETE FOR RECNO()=1
PACK
brow

追问

wj=GETFILE('XLS', '','', 0, '选择一个EXCEL文件')APPEND FROM TYPE XL5 &&或XL8

语法有错的，加use 表，是在打开和修改都得用的，你再帮我想想办法，我能用的办法都用了
，没用

追答

错了，这是两行
wj=GETFILE('XLS', '','', 0, '选择一个EXCEL文件')
APPEND FROM &wj TYPE XL5 &&或XL8
===================================
use 表
wj=GETFILE('XLS', '','', 0, '选择一个EXCEL文件')
IF !file(wj) or JUSTEXT(wj)'XLS'
MESSAGEBOX('所选的文件不存在或非excel文件！',16,'警告',5000)
RETURN
ENDIF
cg=.t.
on error cg=.f.
APPEND FROM &wj TYPE XL5
if !cg
messagebox("操作失败！",48,'提示')
retu
endif
DELETE FOR RECNO()=1
PACK
brow

Answer 2

1. 试试新建一个xls文档，把原来xls文档里面的内容复制过来，注意不要用整列和整行选择，把有数据的矩形区域复制过来就行了，再保存为excel95格式，然后再执行程序选新建的文件试试，有时候excel文档里有些特殊字符，会导致它出错。

2. 在foxpro里用导入向导试一试可否成功，如果也出错，那肯定是excel文件有问题。
   

Answer 3

有可能是你的 XL5 文件有问题，你在 Excel 中把这个 XL5 文件另存为 XL8 试一试，或者在你的 VFP 程序中选择另外一个 Excel 文件，看看。

遇到问题要懂得用“排除法”，尝试不同的条件，这样可以迅速找出问题所在。

追问

我就是改成了xl8都不能用，直接就是关闭程序