以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  Excel文件SaveToPDF出错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=62779)

--  作者:刘海屋
--  发布时间:2015/1/7 21:09:00
--  Excel文件SaveToPDF出错

完全照抄《指南》,将一个.xls的文件Save成PDF,但被告诉“出错”,如下:

 


图片点击可在新窗口打开查看此主题相关图片如下:捕获错误.jpg
图片点击可在新窗口打开查看

 

现将试验程序一并送来,请帮助看看问题在何处。谢谢

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:exceltopdf.zip


--  作者:刘海屋
--  发布时间:2015/1/7 21:13:00
--  

顺便说一下,我的OFFICE is 2010版本

 


--  作者:有点甜
--  发布时间:2015/1/7 21:14:00
--  

SaveToPDF 必须是MS Office 2007 以上才有效,MS Office 2003不支持


--  作者:刘海屋
--  发布时间:2015/1/7 22:30:00
--  

刚才采用atmetmicoo在2014-11-26 的方案可以转成PDF。不过,如果Office版本低的用户如2003-2007Office的,如何

能保证他们也能将Excel转换成PDF?

 

《指南》是否需要进一步的完善这一部分?

谢谢


--  作者:有点甜
--  发布时间:2015/1/7 22:48:00
--  

 excel的转换,是需要平台支持的。

 

Dim ExcelToPDF As String = Args(0)    \'Args(0) = 窗口名
Dim wbr As WinForm.WebBrowser = Forms(Args(0)).Controls("WebBrowser1")

Dim tm As String = ProjectPath & "Attachments\\v_2VW BREST CARAVELLE 2014.xls"
Dim fl As String = ProjectPath & "Reports\\v_2VW BREST CARAVELLE 2014.pdf"
Dim Book As New XLS.Book(tm)
try
    Book.SaveToPDF(fl) \'保存为PDF文件
    wbr.address = fl
catch ex As exception
    msgbox("出错了")
End try


--  作者:刘海屋
--  发布时间:2015/1/8 21:52:00
--  

我把您修改的程序部分拿来测试运行了,结果是“出错了”。

 


--  作者:有点甜
--  发布时间:2015/1/8 22:06:00
--  
 出错说明你没有 MS Office 2007 以上