以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  excle报表保存为PDF后,无法打开  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=51383)

--  作者:dengzhihao
--  发布时间:2014/5/25 23:32:00
--  excle报表保存为PDF后,无法打开
Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Dim
 tmp As String = ProjectPath & "Attachments\\资料卡.xls"
Dim
 rpt As String = ProjectPath & "Reports\\资料卡.pdf"
Dim
 Book As New XLS.Book(tmp)
Book
.Build() 
Book
.SaveToPDF(rpt) \'保存为pdf文件
wbr
.AddRess = rpt




这段代码经过多次测试后,在win8。1下,可以保存,但无法自动打开。
测试过很多次,执行代码后,发现后台自动打开excle后,就无法继续调用了,用“任务管理器”关闭excle后,显示:远程过程调用失败。 (异常来自 HRESULT:0x800706BE)
用“任务管理器”关闭excle后,在不关闭“任务管理器”下,再重复执行一边上面的代码后,居然可以了。
奇就奇在,关闭“任务管理器”后,再重复执行又不行了!


--  作者:dengzhihao
--  发布时间:2014/5/25 23:33:00
--  
在win8.1下是用excle2013的
--  作者:有点甜
--  发布时间:2014/5/26 9:22:00
--  
 没有遇到过类似情况,应该是自己电脑的问题,卸载重装office和pdf软件。