Office2016教程：Excel VBA如何批量轉換工作表為PDF？

5 人贊了文章

推薦免費課程：Microsoft Office 2016 全套安裝包＋教學視頻

推薦付費課程：220節Microsoft Office超清視頻精華課程+素材

如果只是需要把工作錶轉換為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格式的，都可以使用如上代碼進行轉換。

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

是不是很容易即可達到轉換的效果？其實轉換的核心代碼不用記憶，直接通過錄製宏生成後加以修改即可。

來源：淘學網（www.taoxue.net）