如何在 Excel 中一次性將多個工作簿或工作表轉換為 PDF 文件？

當您希望分享數據的同時防止修改時，將 Excel 文件轉換為 PDF 是一項常見的任務。雖然 Excel 的「另存為」功能可以讓您將單個工作簿轉換為 PDF，但對於多個文件來說可能會非常耗時。本指南探討了各種方法，包括使用 VBA 程式碼和 Kutools for Excel，以快速一次性將多個工作簿或工作表轉換為 PDF 文件。

• 使用「另存為」功能逐一將多個工作簿轉換為 PDF 文件
• 使用 VBA 程式碼一次性將多個工作簿轉換為 PDF 文件
• 使用強大的功能將多個工作簿轉換為 PDF 文件
• 使用 VBA 程式碼將工作簿中的多個工作表轉換為單獨的 PDF 文件
• 使用便捷的功能將工作簿中的多個工作表轉換為單獨的 PDF 文件

使用「另存為」功能逐一將多個工作簿轉換為 PDF 文件

通常情況下，Excel 中的「另存為」功能可以幫助您將整個工作簿保存為 PDF 文件，請按照以下步驟操作：

1. 打開要轉換為 PDF 格式的工作簿。

2. 點擊 「文件」>「另存為」，在「另存為」對話框中，指定一個保存新文件的文件夾，然後從「保存類型」下拉列表中選擇PDF，然後點擊「選項」按鈕，參見截圖：

3. 接著，在彈出的「選項」對話框中，勾選「所有的表」，參見截圖：

4. 然後點擊「確定」>「保存」，這個完整的工作簿就已經保存為 PDF 文件格式了。

使用 VBA 程式碼一次性將多個工作簿轉換為 PDF 文件

如果有數百個 Excel 文件需要轉換，上述方法會顯得麻煩。這裡我將介紹一種 VBA 程式碼，用於一次性將多個工作簿轉換為 PDF 文件，請按照以下步驟操作：

1. 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 視窗。

2. 點擊 「插入」>「模組」，並將以下程式碼粘貼到模組視窗中。

VBA 程式碼：一次性將多個工作簿轉換為 PDF 文件

Sub ExcelSaveAsPDF()
'Updateby Extendoffice
    Dim strPath As String
    Dim xStrFile1, xStrFile2 As String
    Dim xWbk As Workbook
    Dim xSFD, xRFD As FileDialog
    Dim xSPath As String
    Dim xRPath, xWBName As String
    Dim xBol As Boolean
    Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
    With xSFD
    .Title = "Please select the folder contains the Excel files you want to convert:"
    .InitialFileName = "C:\"
    End With
    If xSFD.Show <> -1 Then Exit Sub
    xSPath = xSFD.SelectedItems.Item(1)
    Set xRFD = Application.FileDialog(msoFileDialogFolderPicker)
    With xRFD
    .Title = "Please select a destination folder to save the converted files:"
    .InitialFileName = "C:\"
    End With
    If xRFD.Show <> -1 Then Exit Sub
    xRPath = xRFD.SelectedItems.Item(1) & "\"
    strPath = xSPath & "\"
    xStrFile1 = Dir(strPath & "*.*")
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Do While xStrFile1 <> ""
        xBol = False
        If Right(xStrFile1, 3) = "xls" Then
            Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
            xbwname = Replace(xStrFile1, ".xls", "_pdf")
            xBol = True
        ElseIf Right(xStrFile1, 4) = "xlsx" Then
            Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
            xbwname = Replace(xStrFile1, ".xlsx", "_pdf")
            xBol = True
        ElseIf Right(xStrFile1, 4) = "xlsm" Then
            Set xWbk = Workbooks.Open(Filename:=strPath & xStrFile1)
            xbwname = Replace(xStrFile1, ".xlsm", "_pdf")
            xBol = True
        End If
        If xBol Then
            xWbk.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xRPath & xbwname & ".pdf"
            xWbk.Close SaveChanges:=False
       End If
        xStrFile1 = Dir
    Loop
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

3. 按下 F5 鍵運行程式碼，此時會顯示一個窗口，請選擇包含要轉換的工作簿的文件夾，參見截圖：

4. 點擊「確定」，另一個窗口會彈出，請選擇要輸出新 PDF 文件的文件夾路徑，參見截圖：

5. 點擊「確定」，完成轉換後，您可以前往指定的文件夾查看轉換結果，參見截圖：

使用強大的功能將多個工作簿轉換為 PDF 文件

如果您有 Kutools for Excel，利用其「批量轉換」工具，您可以快速一次性將多個工作簿轉換為 PDF 文件。

1. 點擊「Kutools Plus」>「工作簿」>「批量轉換」，參見截圖：

2. 會彈出一個提示框，提醒您關閉要轉換的工作簿。

3. 點擊「確定」，然後在「文件格式轉換器 」對話框中，指定以下選項：

• 在「轉換類型」下拉列表中，選擇「Excel 到 PDF」；
• 點擊「添加」按鈕選擇要轉換的 Excel 文件。您可以根據需要從電腦或 OneDrive 中選擇工作簿。

4插入要轉換的工作簿後，仍在 文件格式轉換器 對話框中，請點擊 按鈕選擇一個文件夾路徑來輸出轉換後的文件，然後在對話框底部指定一些需要的操作，參見截圖：

5. 然後點擊「確定」開始轉換。所有指定的 Excel 文件轉換為 PDF 後，前往指定的文件夾查看結果。參見以下截圖：

使用 VBA 程式碼將工作簿中的多個工作表轉換為單獨的 PDF 文件

在某些情況下，您可能希望將工作簿中的每個工作表轉換為單獨的 PDF 文件。如果您的工作簿包含許多工作表，以下 VBA 程式碼可以幫助您同時將每個工作表保存為單獨的 PDF 文件。

1. 打開要轉換的工作簿，然後按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 視窗。

2. 點擊 「插入」>「模組」，並將以下程式碼粘貼到模組視窗中。

VBA 程式碼：將工作簿中的多個工作表轉換為單獨的 PDF 文件

Sub SplitEachWorksheet()
'Updateby Extendoffice
Dim xSPath As String
Dim xSFD As FileDialog
Dim xWSs As Sheets
Dim xWb As Workbook
Dim xWbs As Workbooks
Dim xNWb As Workbook
Dim xInt, xI As Integer
Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
With xSFD
.title = "Please select a folder to save the converted files:"
.InitialFileName = "C:\"
End With
If xSFD.Show <> -1 Then Exit Sub
xSPath = xSFD.SelectedItems.Item(1)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xWb = Application.ActiveWorkbook
Set xWbs = Application.Workbooks
Set xWSs = xWb.Sheets
Set xNWb = xWbs.Add
xInt = xWSs.Count
For xI = 1 To xInt
On Error GoTo EBreak
Set xWs = xWSs.Item(xI)
If xWs.Visible Then
xWSs(xWs.Name).Copy
Application.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xSPath & "\" & xWs.Name & ".pdf"
Application.ActiveWorkbook.Close False
End If
EBreak:
Next
xWb.Activate
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. 按下 F5 鍵運行程式碼，此時會彈出一個窗口；請選擇保存轉換後的 PDF 文件的文件夾路徑。參見截圖：

4. 點擊「確定」按鈕，當前工作簿中的所有工作表都將被轉換為單獨的 PDF 文件：

使用便捷的功能將工作簿中的多個工作表轉換為單獨的 PDF 文件

Kutools for Excel 還支持一個有用的功能——分割工作簿，使用此功能，您可以根據需要將工作簿中的多個工作表保存為單獨的 Excel 文件、Txt 文件、CSV 文件和 PDF 文件。

1. 打開要將每個工作表保存為單獨 PDF 文件的工作簿，然後點擊「Kutool Plus」>「工作簿」>「分割工作簿」，參見截圖：

2. 在「分割工作簿」對話框中，勾選要保存的工作表，然後從「指定保存格式」下拉列表中選擇 PDF (*.pdf) ，然後點擊「分割」按鈕，在「選擇文件夾」窗口中，指定一個文件夾來存放轉換後的文件，參見截圖：

3. 然後，當前工作簿中所有選定的工作表都已分別保存為 PDF 文件，參見截圖：

更多相關文章：