【教學】Excel 如何使用VBA將每個工作表單獨存成不同的PDF？

excel 工作表分開儲存pdf

Step1 在功能列「開發人員」中程式碼選擇「Visual Basic」

Step 2 輸入以下程式碼，在PDF儲存路徑修改，完成後按下執行

Sub SaveWorksheetsAsPDF()
    Dim ws As Worksheet
    Dim savePath As String
    
    ' 設定儲存PDF文件的文件夾路徑
    savePath = "C:\Users\jafn\Desktop\PDF" ' 替換成您想要保存的文件夾路徑
    
    ' 檢查文件夾是否存在，如果不存在，則創建它
    If Dir(savePath, vbDirectory) = "" Then
        MkDir savePath
    End If
    
    ' 循環處理每個工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 創建工作表名稱為文件名
        ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            savePath & "\" & ws.Name & ".pdf", Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    Next ws
End Sub

Step 3 即可將每個工作表匯出儲存成不同PDF