VB点击按钮，生成PDF

zhaozh2h · 发表于 2018-9-18 10:25

liulang0808 发表于 2018-9-17 20:08
楼主不是自己录制了代码吗
这个代码在哪里啊？

Sub 宏28()
      ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
      "/Users/zhaozehua/Desktop/dsadsadsa.pdf", Quality:=xlQualityMinimum, _
      IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
      False
End Sub

liulang0808 · 发表于 2018-9-18 10:27

本帖最后由 liulang0808 于 2018-9-18 10:28 编辑

Sub 宏28()
      ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
      thisworkbook.path & "\dsadsadsa.pdf", Quality:=xlQualityMinimum, _
      IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
      False
End Sub

zhaozh2h · 发表于 2018-9-18 10:33

liulang0808 发表于 2018-9-18 10:27
Sub 宏28()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
thisworkb ...

假如我想保存的pdf是这个工作表的名称，要怎么弄

liulang0808 · 发表于 2018-9-18 10:39

Sub 宏28()
      ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
      thisworkbook.path & "\" & activesheet.name & ".pdf", Quality:=xlQualityMinimum, _
      IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
      False
End Sub

zhaozh2h · 发表于 2018-9-18 11:55

liulang0808 发表于 2018-9-18 10:39
Sub 宏28()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
thisworkb ...

出错了，没办法运行

liulang0808 · 发表于 2018-9-18 12:47

zhaozh2h 发表于 2018-9-18 11:55
出错了，没办法运行

如果不使用表名的时候，没有报错
而使用了表名就报错，那么查查这个表名是否符合文件名命名规范吧

		自动登录	找回密码
密码			免费注册

[求助] VB点击按钮，生成PDF

评分