选择打开文件出错的问题,请老师们帮忙。
我在一个表单中,用了一个文本框输入文件名,然后用一个按扭调用WORD或EXCEL根据输入的文件名后缀来打开文件,按扭的Click原码如下。wjm=RIGHT(ALLTRIM(thisform.text1.Value),3) &&取表单中TEXT1控件的的内容从右边起的3个字符,来判断是什么文件。
IF wjm="doc" &&如果取到的这3个字符是"doc"说明是WORD文档
EFILENAME=ALLTRIM(thisform.text1.Value) &&那么就将文件名赋给变量efilename
EOLE=CREATEOBJECT("Word.application") &&调用word
EOLE.Documents.OPEN("&EFILENAME") &&打开指定变量中的文件名的WORD文档
EOLE.VISIBLE=.T.
ELSE &&否则的话就为excel文档,就运行EXCEL来打开
EFILENAME=thisform.text1.value
EOLE=CREATEOBJECT("Excel.application")
EOLE.Workbooks.OPEN("&EFILENAME")
EOLE.VISIBLE=.T.
ENDIF
问题是,当我按下这个按扭后,它总是不判断WORD文档,而是直接就去运行EXCEL来打开,这样的话,如果打开的是EXCEL文档倒是没问题,而如果是WORD文档,它就报错,然后退出程序了,很是郁闷,到底是哪里错了啊,我是个才学的小菜鸟,有哪位老师指点我一下吗?谢谢了。