[VBA]EXCEL分頁表批次轉PDF

office 2007以上已經內建匯出為PDF的功能，但如果在Excel上選取多分頁然後匯出的話，內部設定的頁碼會是總合而非一個頁簽一個編碼這樣，所以可以利用VBA處理這部分。

步驟

將以下方程式放入VBA後執行就可以，匯出的檔案名稱格式可以自行調整

xxxxxxxxxx
17
1
Sub 批次轉PDF()
2
​
3
Application.DisplayAlerts = False
4
Application.ScreenUpdating = False
5
​
6
i = Worksheets.Count
7
For i = 1 To Worksheets.Count
8
    If Sheets(i).Visible = xlHidden Then
9
    Else
10
        Sheets(i).Activate
11
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
12
        ActiveWorkbook.Path & "\" & i & "_" & ActiveSheet.Name & ".pdf", _
13
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
14
        IgnorePrintAreas:=False, OpenAfterPublish:=False
15
    End If
16
Next
17
End Sub

使用限制

1. office版本一定要在2007以上，2003執行會出錯。
2. 預設檔案名稱為`編號_工作頁名稱.pdf，預設位置同檔案位置。