Foxtable(狐表)用户栏目专家坐堂 → EXCEL转PDF的问题


  共有8019人关注过本帖树形打印复制链接

主题:EXCEL转PDF的问题

帅哥哟,离线,有人找我吗?
rjh4078
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3373 积分:24889 威望:0 精华:0 注册:2012/3/26 21:47:00
EXCEL转PDF的问题  发帖心情 Post By:2014/4/11 12:27:00 [只看该作者]

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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/4/11 14:46:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/4/11 14:49:00 [只看该作者]

 我测试代码正常,我的office2010完整版的。

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178530 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/4/11 14:50:00 [只看该作者]

是不是你安装的不是完整版的OFFICE,所以缺少这个功能或者组件

 回到顶部
帅哥哟,离线,有人找我吗?
rjh4078
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3373 积分:24889 威望:0 精华:0 注册:2012/3/26 21:47:00
  发帖心情 Post By:2014/4/11 20:40:00 [只看该作者]

谢谢2位 2007的得装个Saveaspdf插件

 回到顶部