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。次に、OK＞保存をクリックすると、このワークブック全体が 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キーを押してこのコードを実行すると、変換したいワークブックを含むウィンドウが表示されます（下記スクリーンショット参照）。

4。OKをクリックすると、別のウィンドウが表示されるので、新しい PDF ファイルの出力先フォルダのパスを指定してください（下記スクリーンショット参照）。

5。OKをクリックすると、変換が完了し、指定したフォルダーが開いて変換結果を確認できます（下記スクリーンショット参照）。

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

お使いのKutools for Excelに一括変換ユーティリティが搭載されていれば、複数のワークブックを一度に素早く PDF ファイルに変換できます。

1。KUTOOLS PLUS＞ワークブック＞一括変換をクリックします（下記スクリーンショット参照）。

2。変換したいワークブックを閉じるよう促すメッセージボックスが表示されます。

3。OKをクリックすると、「ファイル形式コンバーター」ダイアログが開くので、以下のオプションを指定します。

• 変換タイプのドロップダウンリストから、Excel を PDF に変換を選択してください。
• 追加ボタンをクリックして、変換したいExcel ファイルを選択してください。コンピューターまたは OneDrive からワークブックを自由に選べます。

4。変換したいワークブックを追加した後、「一括変換」ダイアログボックス内で、ボタンをクリックして変換後のファイルの出力先フォルダーを1 つ選択し、ダイアログボックス下部で必要な操作を指定してください（下記スクリーンショット参照）。

5。次に、OKをクリックして変換を開始します。指定されたすべての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。「OK」ボタンをクリックすると、現在のブックに含まれるすべてのワークシートが個別の PDF ファイルに変換されます。

便利な機能でワークブック内の複数のワークシートを個別の PDF ファイルに変換

Kutools for Excelには、次のような便利な機能も搭載されています。ブックの分割この機能を使えば、ワークブック内の複数のワークシートを必要に応じて、個別のExcel ファイル、TXT ファイル、CSV ファイル、または PDF ファイルとして保存できます。

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

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

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

関連記事：

最高の Office 業務効率化ツール

🤖	KUTOOLS AI アシスタント：次に基づいてデータ分析を革新します：インテリジェント実行   ｜  コード生成｜  カスタム数式作成  ｜  データ分析とチャート生成｜  拡張機能呼び出し…
	人気の機能：検索・ハイライト、または重複をマーキング   ｜  空白行を削除する   ｜  データを失うことなく列の結合またはセルを   ｜  数式を使用しない四捨五入...
	スーパー LOOKUP：複数条件 VLookup  ｜  複数値 VLookup  ｜   複数シート間 VLookup   ｜   ファジーマッチ....
	高度なドロップダウンリスト：ドロップダウンリストをすばやく作成   ｜  連動型ドロップダウンリスト   ｜  複数選択可能なドロップダウンリスト....
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示状態を切り替え｜範囲および列の比較...
	注目の機能：グリッドフォーカス   ｜  デザインビュー   ｜強化された数式バー   ｜ ワークブックとシートマネージャー   ｜  リソースライブラリ（オートテキスト）｜  日付ピッカー   ｜  ワークシートの統合  ｜  暗号化／セルの復号化   ｜ リストからメール送信   ｜  スーパーフィルター   ｜   特殊フィルタ（太字のフォントを持つセルをフィルタリング／斜体／取り消し線。。。） 。。。
	トップ15 ツールセット：12 テキストツール（テキストの追加、特定の文字を削除、...）｜   50+チャートタイプ（ガントチャート、...）｜   40+実用的関数（誕生日に基づいて年齢を計算します、...）｜   19 挿入ツール（QR コードを挿入、パスから画像を挿入、...）｜   12 変換ツール（単語に変換する、為替レートの変換、...）｜   7 結合と分割ツール（高度な行のマージ、セルの分割、...）｜さらに多数

Kutools はお好みの言語でご利用いただけます。英語、スペイン語、ドイツ語、フランス語、中国語、および40+の他の言語をサポートしています！

Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。

Kutools for Excel の詳細はこちら。。。無料ダウンロード。。。

---

Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします

• Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
• 複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
• 日々の生産性を50％も向上させ、毎日数百回ものマウスクリックを削減します！

Office Tab の詳細はこちら。。。無料ダウンロード。。。

---

すべてのKutools アドインが、たった1 つのインストーラーで完結。

Kutools for Officeスイートには、Excel ・Word ・Outlook ・PowerPoint 用のアドインと Office Tab Pro が含まれており、複数の Office アプリを横断して作業するチームに最適です。

• オールインワンスイート— Excel、Word、Outlook、PowerPoint 用アドイン＋Office Tab Pro
• インストーラー1 つ、ライセンス1 つ— 数分でセットアップ可能（MSI 対応）
• 連携してさらにパワーアップ— Office アプリ全体で生産性が向上
• 30 日間のフル機能トライアル— 登録不要、クレジットカード不要
• 最高のお得感— 個別アドイン購入よりお得

Kutools for Office の詳細はこちら。。。無料ダウンロード。。。