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をお持ちの場合、そのFormat Converterユーティリティを使用して、複数のワークブックを一度にPDFファイルに迅速に変換できます。

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

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

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

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

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

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ファイルとして保存したいワークブックを開き、Kutool Plus > Workbook > Split Workbook をクリックします。スクリーンショットを参照してください。

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

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

関連する記事：