以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]请问这组代码出错在哪里？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=48185)
--  作者：zhuzhi
--  发布时间：2014/3/24 17:22:00
--  [求助]请问这组代码出错在哪里？
有一个窗口，上面有下拉组合框ComboBox3，有一个按钮，在按钮的click事件上做了下面的代码：
If e.Form.Controls("ComboBox3").Value = "离职"
Dim Book As New XLS.Book(ProjectPath & "Attachments\\离职手续表.xls")
Dim fl As String = ProjectPath & "退学离校\\手续.xls"
End If
想要实现：窗口上的下拉组合框 ComboBox3值为离职时，点击按钮，自动套用EXCEL报表模板离职手续表，打印预览该报表。结果报错如下：

图片点击可在新窗口打开查看此主题相关图片如下：打印报表出错.jpg
图片点击可在新窗口打开查看

烦请老师们帮我！非常感谢！
--  作者：Bin
--  发布时间：2014/3/24 17:25:00
--  
文件正在打开,或者没有访问读写权限. 或者路径不对.  或者文件不是正常的Excel格式文件.
--  作者：狐狸爸爸
--  发布时间：2014/3/24 17:32:00
--  

判断一下文件是否存在：

 

messagebox.show(filesys.FileExists(ProjectPath & "Attachments\\离职手续表.xls"))