请问一个问题
我建了一个表单。上面有一个命令按钮“导出到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, "信息提示 ")