以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  EXCEL转PDF的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=49053)

--  作者:rjh4078
--  发布时间:2014/4/11 12:27:00
--  EXCEL转PDF的问题

Dim Book As New XLS.Book(ProjectPath & "Attachments\\询价单.xls")
Dim fl As String = ProjectPath & "Reports\\询价单.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿

Dim flt1,flt2 As String
flt1 = fl
flt2 = ProjectPath & "Reports\\询价单.pdf"


If Not FileSys.FileExists(flt1) Then
    Messagebox.Show("文件不存在或已经被删除!","提示")
    Return
End If


Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(flt1)
wb.ExportAsFixedFormat(MSExcel.XlFixedFormatType.xlTypePDF, flt2)
App.Quit

 

 

执行上面代码的时候 出现如下报错

 

 

---------------------------
版本:2014.3.8.1
---------------------------
代码执行出错,错误信息:

 

System.ArgumentException: 值不在预期的范围内。

   在 Microsoft.Office.Interop.Excel.WorkbookClass.ExportAsFixedFormat(XlFixedFormatType Type, Object Filename, Object Quality, Object IncludeDocProperties, Object IgnorePrintAreas, Object From, Object To, Object OpenAfterPublish, Object FixedFormatExtClassPtr)

   在 UserCode.Test()
---------------------------
确定  
---------------------------

[此贴子已经被作者于2014-4-11 12:29:02编辑过]

--  作者:有点甜
--  发布时间:2014/4/11 14:46:00
--  

 估计得安装一个插件

 

http://www.google.com.hk/#newwindow=1&q=Microsoft+Save+as+PDF&safe=strict

 


--  作者:有点甜
--  发布时间:2014/4/11 14:49:00
--  
 我测试代码正常,我的office2010完整版的。
--  作者:Bin
--  发布时间:2014/4/11 14:50:00
--  
是不是你安装的不是完整版的OFFICE,所以缺少这个功能或者组件
--  作者:rjh4078
--  发布时间:2014/4/11 20:40:00
--  
谢谢2位 2007的得装个Saveaspdf插件