【Excel VBA】- 如何批量轉換工作表為PDF？

我的Excel VBA 教程-《VBA基礎進階篇視頻教程》共43集，絕對的案例教學。目前已經在職業領官方Office教程視頻網站發布以及淘寶教育發布，目前首發促銷99元七折促銷中（原價129元），詳情請點擊閱讀原文，歡迎學習~。

硬廣打完了，接下來進入正題。

上周六，群里有位小夥伴諮詢使用什麼方法或軟體可以把Excel里的每個工作表根據名稱分別轉換為PDF，而不是把所有工作表合併為一個PDF。具體截圖如下：

如果只是需要把工作錶轉換為PDF，那使用Acrobat軟體即可達到要求，具體方法如下：

如果每個工作錶轉換為PDF後都是1頁，那也可以通過Acrobat這款強大的軟體進行頁面拆分，具體方法如下：

但如果希望一步到位，直接從Excel把每一個工作表保存為相應工作表名稱的PDF，那該如何操作呢？知道Microsoft Print to PDF的小夥伴就知道了，可以使用VBA代碼調用微軟自帶的虛擬印表機，把工作表批量列印為PDF，那究竟該如何去操作呢？

代碼如下（代碼很簡短）：

Sub BatchConvertWorkSheetToPDF()

For Each sh In Worksheets

If sh.Name <> "封面" Then

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

ActiveWorkbook.Path & "" & sh.Name & ".pdf", Quality:=xlQualityStandard, _

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

False

End If

Next

End Sub

如果Office 另存為能夠選擇保存為PDF格式的，都可以使用如上代碼進行轉換。

接下來我們一起演示一下效果：

是不是很容易即可達到轉換的效果？其實轉換的核心代碼不用記憶，直接通過錄製宏生成後加以修改即可。如有疑問，歡迎加QQ群（615356012）交流。Written by Steven in 20170327^_^

微信公眾號：SaveUTime

SUT學習交流群：615356012，入群審核人：Steven

關注公眾號，提高效率，節約您的時間！