如何在 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 檔案、文本文檔、CSV 檔案及 PDF 文件。

1. 開啟您要將各工作表另存為獨立 PDF 文件的活頁簿，然後按一下 Kutools Plus > 活頁簿 > 分割工作簿，請參閱螢幕截圖：

2. 在分割工作簿對話方塊中，勾選您要儲存的工作表，從指定保存格式下拉清單中選擇 PDF (*.pdf)格式，再按一下分割按鈕；接著在選擇資料夾視窗中，指定存放轉換後檔案的資料夾位置，請參閱螢幕截圖：

3. 接著，目前工作簿中所有選取的工作表均已分別儲存為 PDF 檔案，請參閱螢幕截圖：

更多相關文章：

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行   ｜  產生程式碼｜  建立自訂公式  ｜  分析資料並產生圖表｜  呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值   ｜  刪除空白行   ｜  合併列或儲存格而不遺失資料   ｜  不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup  ｜  多重數值 VLookup  ｜   跨多個工作表 VLookup   ｜   模糊查找……
	高級下拉列表：快速建立下拉式清單   ｜  相依式下拉式清單   ｜  多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦   ｜  設計視圖   ｜增強編輯欄   ｜ 工作簿與工作表管理員   ｜  資源庫（自動文字）｜  日期提取   ｜  合併工作表  ｜  加密／解密儲存格   ｜ 依清單傳送電子郵件   ｜  超級篩選   ｜   特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜   50+ 圖表 類型（甘特圖，……）｜   40+ 實用公式（基於生日計算年齡，……）｜   19 插入工具（插入二維碼，從路徑插入圖片，……）｜   12 轉換工具（金額轉大寫，匯率轉換，……）｜   7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多

在您的慣用語言中使用 Kutools—支援英文、西班牙文、德文、法文、中文及另外 40+ 種語言！

運用 Kutools for Excel 強化您的 Excel 技能，體驗前所未有的高效能！Kutools for Excel 提供超過 300 項進階功能，大幅提升生產力並節省寶貴時間。立即點擊，取得您最需要的功能……

Kutools for Excel 詳細資訊……免費下載……

---

Office Tab 為 Office 帶來分頁式介面，讓您的工作更輕鬆自在！

• 在 Word、Excel、PowerPoint 中啟用分頁式編輯與閱讀功能，以及 Access、Visio 與 Project。
• 在同視窗的新分頁中開啟並建立多份文件，而非另開新視窗。
• 每天為您提升 50% 的工作效率，並省下數百次滑鼠點擊！

Office Tab 詳細資訊……免費下載……

---

所有 Kutools 增益集，一個安裝程式

Kutools for Office 套件整合了 Excel、Word、Outlook 與 PowerPoint 的增益集，以及 Office Tab Pro，非常適合需要跨多個 Office 應用程式協作的團隊使用！

• 全能套件— 包含 Excel、Word、Outlook 與 PowerPoint 增益集，以及 Office Tab Pro
• 一個安裝程式，一個授權— 數分鐘內即可完成設定（支援 MSI）
• 協同運作更出色— 在多個 Office 應用程式間實現流暢的生產力體驗
• 30 天完整功能試用— 無需註冊，無需信用卡
• 超值之選— 比單獨購買各增益集更省費用

Kutools for Office 詳細資訊……免費下載……