我建了一个表单。上面有一个命令按钮“导出到EXCEL”
这个命令按钮的代码如下：
nanswer=messagebox( '确定输出到EXCEL表格吗？ ',1, '提示窗 ')
do case
case nanswer=1
lcfile=PUTFILE( '另存为 ',a, 'xls ')
IF !EMPTY(lcfile)
selec xx
copy to &lcfile type xls
ELSE
MESSAGEBOX( '您取消了此操作 ',0, '提示窗 ')
RETURN
ENDIF
case nanswer=2
RETURN
endcase
但是运行的时候其他都很正常。惟独按这个按钮的时候他提示
命令中含有不能识别的短语或关键字
挂起后指在 copy to &lcfile type xls 这一行。
以前试过这个按钮，没有什么问题。
后来我增加了一些功能后不知道为什么会这样了。
请高手指教！！！！
------解决方案--------------------------------------------------------
lcfile=PUTFILE( '另存为 ',a, 'xls ')中的a加上引号
------解决方案--------------------------------------------------------
这段代码肯定好用，你参考一下吧。
IF !USED( '表名 ')
RETURN
ENDIF
SELECT 表名
lcExtName= 'XLS '
IF RECCOUNT( '表名 ')> 65535 &&如果是VFP9.0以下，此处改为16383
MESSAGEBOX( '当前记录数大于65535，EXCEL最多支持65535条记录。 '+SPACE(5)+CHR(10)+CHR(10)+ '所以程序将导出扩展名为 .CSV 的文件！ ',48, '信息提示 ')
lcExtName= 'CSV '
ENDIF
lcDelimFile = PUTFILE( ' ', 'Excel表名 ', lcExtName)
IF EMPTY(lcDelimFile)
RETURN
ENDIF
IF lcExtName= 'XLS '
lcExtName= 'XL5 '
ENDIF
COPY TO (lcDelimFile) TYPE &lcExtName
GO TOP
MESSAGEBOX( "导出完成！文件位置： "+CHR(10)+CHR(10)+(lcDelimFile)+SPACE(3),64, "信息提示 ")