Question

EXCEL VBA 将工作薄内所有工作表存为一个PDF文件

另存的PDF文件名同工作薄文件名，存在位置同工作薄位置

Answer 1

可以通过录制宏得到一段代码，稍加修改后即可使用，如下图示：

---

代码：

Option Explicit

Sub EtoPDFs()

'

'另存为PDF

'   '全选工作表

    Sheets.Select 

   '另存为PDF文件‘ThisWorkbook.Name’部分因为不知道你的工作簿后缀是什么，否则可以通过mid或者left函数修改保存的名字

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

        ThisWorkbook.Path & "\" & ThisWorkbook.Name & ".pdf", Quality _

        :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _

        OpenAfterPublish:=True    

End Sub

追问

工作薄后缀名是：xlsm

追答

那就把代码中的另存为部分更改为：
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5) & ".pdf", Quality _
:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
其实也就是利用Excel自带的另存为PDF功能转存为PDF文件

Answer 2

Sub test1()
Dim a
a = Split(ThisWorkbook.Name, ".")(0)
ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & a
End Sub
"a=”就是计算工作簿名称，可以自己定义，这个就是取使用这个代码的工作簿的名称

Answer 3

选择另存为-保存类型选择PDF，在下面的【选项】里选择 发布 整个工作簿，即可。

Answer 4

可以，我能写！