这是我做的临时调试的界面，其中导出的代码（高人指点的）：
if empty(thisform.text1.value)
=messagebox("表名不能为空，请重新输入！",48+0+0,"警告")
thisform.text1.setfocus -----*这点是我加的
STORE .F. TO YESNO
IF FILE(THISFORM.TEXT1.VALUE)
IF MESSAGEBOX("您需要导出的文件已存在，是否坚持导出?",36,"导出消息")=6
STORE .T. TO YESNO
ENDIF
ELSE
STORE .T. TO YESNO
ENDIF
IF YESNO
COPY TO(THISFORM.TEXT1.VALUE) TYPE XLS
ENDIF
endif

导入的代码：
IF FILE(THISFORM.TEXT1.VALUE)
APPEND FROM (THISFORM.TEXT1.VALUE) TYPE XLS
ELSE
MESSAGEBOX("您需要导入的文件不存在，不能导入文件",0,"导入消息")
ENDIF

但是运行还有好几个问题，谁能帮我调试看看！！先谢谢Tiger5392对我的指点!!!