Excelで複数のワークブックまたはワークシートを一度にPDFファイルに変換する方法は？

Author Xiaoyang Last modified 2025-08-26

ExcelファイルをPDFに変換することは、データを共有しつつ改変を防ぎたいときによく行われる作業です。Excelの「名前を付けて保存」機能では単一のワークブックをPDFに変換できますが、複数のファイルに対しては時間がかかります。このガイドでは、VBAコードやKutools for Excelを使用して、複数のワークブックまたはワークシートを一度にPDFファイルに迅速に変換する方法を探ります。

「名前を付けて保存」機能を使って複数のワークブックを一つずつPDFファイルに変換する
VBAコードを使って複数のワークブックを一度にPDFファイルに変換する
強力な機能を使って複数のワークブックをPDFファイルに変換する
VBAコードを使ってワークブックから複数のワークシートを個別のPDFファイルに変換する
便利な機能を使ってワークブックから複数のワークシートを個別のPDFファイルに変換する

「名前を付けて保存」機能を使って複数のワークブックを一つずつPDFファイルに変換する

通常、Excelの「名前を付けて保存」機能を使うと、ワークブック全体をPDFファイルに保存できます。以下の手順で行ってください：

1. PDF形式に変換したいワークブックを開きます。

2. ファイル > 名前を付けて保存 をクリックし、「名前を付けて保存」ダイアログボックスで新しいファイルを保存するフォルダを指定し、「保存形式を指定」ドロップダウンリストからPDFを選択し、次に「オプション」ボタンをクリックします。スクリーンショットを参照してください。

A screenshot of the Save As dialog for converting Excel files to PDF one by one

3. 表示されたオプションダイアログボックスで「すべてのワークブック」をチェックします。スクリーンショットを参照してください。

A screenshot of the Options dialog for saving Excel files as PDFs

4.そして、OK > 保存をクリックすると、このワークブック全体がPDFファイル形式で保存されます。

ヒント: 複数のワークブックを変換する必要がある場合は、上記の手順を適用してワークブックを一つずつPDFファイルに保存してください。

VBAコードを使って複数のワークブックを一度にPDFファイルに変換する

変換が必要なExcelファイルが数百ある場合、上記の方法は面倒です。ここでは、複数のワークブックを一度にPDFファイルに変換するためのVBAコードについて説明します。以下の手順で行ってください：

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キーを押してこのコードを実行すると、ウィンドウが表示されます。変換したいワークブックを含むフォルダを選択してください。スクリーンショットを参照してください。

A screenshot showing folder selection for workbooks to convert to PDFs

4. OKをクリックすると、別のウィンドウが表示されます。新しいPDFファイルを出力したいフォルダパスを選択してください。スクリーンショットを参照してください。

A screenshot showing folder selection for outputting PDF files in Excel

5. OKをクリックし、変換が完了したら、指定したフォルダに移動して変換結果を確認できます。スクリーンショットを参照してください。

A screenshot of the original Excel files before conversion

A screenshot of the output folder containing converted PDF files

強力な機能を使って複数のワークブックをPDFファイルに変換する

Kutools for Excelをお持ちの場合、そのFormat Converterユーティリティを使用して、複数のワークブックを一度にPDFファイルに迅速に変換できます。

Kutools for Excelは、300以上の高度な機能を提供し、複雑なタスクを簡素化し、創造性と効率を向上させます。 AI機能と統合され、Kutoolsは正確にタスクを自動化し、データ管理を容易にします。Kutools for Excelの詳細情報...無料トライアル...

1. Kutools Plus > Workbook > Format Converter をクリックします。スクリーンショットを参照してください。

A screenshot of Kutools for Excel's Format Converter tool in Excel

2.変換したいワークブックを閉じるように促すプロンプトボックスが表示されます。

A screenshot of a reminder to close workbooks before conversion

3. OKをクリックし、FileFormat Converter ダイアログで次のオプションを指定します。

変換タイプのドロップダウンリストからExcel workbook to PDFを選択します。
追加ボタンをクリックして、変換したいExcelファイルを選択します。必要に応じて、コンピュータまたはOneDriveからワークブックを選択できます。

A screenshot of the File Format Converter dialog showing workbook selection options

4変換したいワークブックを挿入した後も、 File Format Converter ダイアログボックスで、ボタンをクリックして、変換されたファイルを出力するフォルダパスを選択し、ダイアログボックスの下部で必要な操作を指定します。スクリーンショットを参照してください。

A screenshot showing options to configure conversion settings

注釈：上記のダイアログボックスで：

フォルダを追加する際にサブフォルダを含める場合は、 Include subfolders when adding foldersボックスをチェックします。
変換後に元のファイルを削除したい場合は、 Delete source files after conversionボックスをチェックします。
元ファイルの変更時間を保持したい場合は、Keep modified date of original filesボックスをチェックします。
変換中にファイルのディレクトリ構造を保持するには、The directory structure of the file is preserved when convertedボックスをチェックします。

5.その後、OKをクリックして変換を開始します。指定したすべてのExcelファイルがPDFに変換されたら、指定したフォルダに移動して結果を確認します。以下のスクリーンショットを参照してください。

Kutools for Excel - 必要なツールを300以上搭載し、Excelの機能を大幅に強化します。永久に無料で利用できるAI機能もお楽しみください！今すぐ入手

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ファイルを保存するフォルダパスを選択してください。スクリーンショットを参照してください。

A screenshot of the folder selection window for saving converted PDFs

4. OKボタンをクリックすると、現在のワークブック内のすべてのワークシートが個別のPDFファイルに変換されます。

A screenshot showing separate PDF files created for each worksheet in a workbook

便利な機能を使ってワークブックから複数のワークシートを個別のPDFファイルに変換する

Kutools for Excelは、便利な機能「ブックの分割」もサポートしており、この機能を使用すると、ワークブック内の複数のワークシートを必要に応じて個別のExcelファイル、Txtファイル、CSVファイル、PDFファイルとして保存できます。

1. 各シートを個別のPDFファイルとして保存したいワークブックを開き、Kutool Plus > Workbook > Split Workbook をクリックします。スクリーンショットを参照してください。

A screenshot of the Split Workbook tool in the Kutools Plus tab in Excel

2. Split Workbookダイアログボックスで、保存したいシートをチェックし、「保存形式を指定」ドロップダウンリストからPDF (*.pdf) を選択し、「分割」ボタンをクリックし、「フォルダを選択」ウィンドウで変換されたファイルを置くフォルダを指定します。スクリーンショットを参照してください。

A screenshot of the Split Workbook dialog box

A screenshot of the Select Folder dialog for saving the individual PDF files for each worksheet

3.そして、現在のワークブック内のすべての選択されたワークシートが個別にPDFファイルとして保存されました。スクリーンショットを参照してください。

A screenshot showing separate PDF files created for each worksheet in a workbook

Kutools for Excel - 必要なツールを300以上搭載し、Excelの機能を大幅に強化します。永久に無料で利用できるAI機能もお楽しみください！今すぐ入手

最高のオフィス業務効率化ツール

🤖	Kutools AI Aide：データ分析を革新します。主な機能：Intelligent Execution｜コード生成｜カスタム数式の作成｜データの分析とグラフの生成｜Kutools Functionsの呼び出し……
	人気の機能：重複の検索・ハイライト・重複をマーキング｜空白行を削除｜データを失わずに列またはセルを統合｜丸める……
	スーパーLOOKUP：複数条件でのVLookup｜複数値でのVLookup｜複数シートの検索｜ファジーマッチ……
	高度なドロップダウンリスト：ドロップダウンリストを素早く作成｜連動ドロップダウンリスト｜複数選択ドロップダウンリスト……
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示/非表示の切替｜範囲＆列の比較……
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブック＆ワークシートの管理｜オートテキストライブラリ｜日付ピッカー｜データの統合｜セルの暗号化/復号化｜リストで電子メールを送信｜スーパーフィルター｜特殊フィルタ（太字/斜体/取り消し線などをフィルター）……
	トップ15ツールセット：12 種類のテキストツール（テキストの追加、特定の文字を削除など）｜50種類以上のグラフ（ガントチャートなど）｜40種類以上の便利な数式（誕生日に基づいて年齢を計算するなど）｜19 種類の挿入ツール（QRコードの挿入、パスから画像の挿入など）｜12 種類の変換ツール（単語に変換する、通貨変換など）｜7種の統合＆分割ツール（高度な行のマージ、セルの分割など）｜… その他多数