Foxtable(狐表)用户栏目专家坐堂 → 关于用VBA将EXCEL转换成PDF格式的方法


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

主题:关于用VBA将EXCEL转换成PDF格式的方法

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


加好友 发短信
等级:五尾狐 帖子:1028 积分:7211 威望:0 精华:0 注册:2008/9/1 22:34:00
关于用VBA将EXCEL转换成PDF格式的方法  发帖心情 Post By:2013/11/14 10:17:00 [显示全部帖子]

在VBA中有个ExportAsFixedFormat的方法,但说明书中没写到,请问如果要用这个方法应该如何用呢?

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


加好友 发短信
等级:五尾狐 帖子:1028 积分:7211 威望:0 精华:0 注册:2008/9/1 22:34:00
  发帖心情 Post By:2013/11/14 10:33:00 [显示全部帖子]

我用以下的代码,系统会提示语法错,请问是什么问题呢?

 

Wb.ExportAsFixedFormat Type:=xlTypePDF FileName:="D:\我的文档\桌面\75CS60.pdf" Quality:=xlQualityStandard DisplayFileAfterPublish:=True


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


加好友 发短信
等级:五尾狐 帖子:1028 积分:7211 威望:0 精华:0 注册:2008/9/1 22:34:00
  发帖心情 Post By:2013/11/14 10:50:00 [显示全部帖子]

我这样写,也不行,为什么?

Wb.ExportAsFixedFormat("xlTypePDF","D:\我的文档\桌面\75CS60.pdf","xlQualityStandard",True)

 

好像是xlTypePDF这个类型的问题,不知如何定义

[此贴子已经被作者于2013-11-14 10:57:17编辑过]

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


加好友 发短信
等级:五尾狐 帖子:1028 积分:7211 威望:0 精华:0 注册:2008/9/1 22:34:00
  发帖心情 Post By:2013/11/14 11:07:00 [显示全部帖子]

以下是引用Bin在2013-11-14 11:00:00的发言:
http://bbs.csdn.net/topics/390111871

看了,但也不知道应该如何定义,请指教。


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


加好友 发短信
等级:五尾狐 帖子:1028 积分:7211 威望:0 精华:0 注册:2008/9/1 22:34:00
  发帖心情 Post By:2013/11/14 11:13:00 [显示全部帖子]

以下是引用Bin在2013-11-14 11:08:00的发言:
照搬 这有代码转换器 http://www.developerfusion.com/tools/convert/csharp-to-vb/

转不了啊!


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


加好友 发短信
等级:五尾狐 帖子:1028 积分:7211 威望:0 精华:0 注册:2008/9/1 22:34:00
  发帖心情 Post By:2013/11/14 11:36:00 [显示全部帖子]

以下是引用Bin在2013-11-14 11:25:00的发言:
点击转换等待转换成功即可,另外参数是全部都要传递的.

不明白,但我用我的方法解决了,谢谢!


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


加好友 发短信
等级:五尾狐 帖子:1028 积分:7211 威望:0 精华:0 注册:2008/9/1 22:34:00
  发帖心情 Post By:2013/11/14 11:50:00 [显示全部帖子]

以下是引用狐狸爸爸在2013-11-14 11:47:00的发言:

 

呵呵,不好的习惯,解决了应该分享,帮助是相互的。

主要的代码如下,这样看来,输出PDF格式就很容易的事了:

 

Dim pdf = MSExcel.XlFixedFormatType.xlTypePDF
Dim pdfq = MSExcel.XlFixedFormatQuality.xlQualityStandard
Wb.ExportAsFixedFormat(pdf,"D:\我的文档\桌面\75CS60.pdf",pdfq,True,True,,,True)
App.Quit


 回到顶部