Excel VBAで複数のシートをタブごとに別のPDFで保存する方法

ExcelのVBAを使用すると、効率的に複数のシートをタブごとに別のPDFとして保存することが可能です。この記事ではその手法を詳細に解説し、さらなる応用例も紹介します。

基本的なコードの紹介

Excelの複数のシートをタブごとに別のPDFで保存するためのVBAコードを以下に示します。

Sub SaveSheetsAsPDF()
    Dim ws As Worksheet
    Dim savePath As String
    Dim pdfName As String

    '保存先のパスを指定
    savePath = "C:\Your\Desired\Directory\"

    '各シートをPDFとして保存
    For Each ws In ThisWorkbook.Worksheets
        pdfName = savePath & ws.Name & ".pdf"
        ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName
    Next ws

End Sub

コードの詳細解説

– `Dim ws As Worksheet`: 各シートを参照するための変数を定義します。
– `Dim savePath As String`: PDFの保存先のパスを定義するための変数です。
– `Dim pdfName As String`: 各シートから生成されるPDFの名前を保持するための変数です。
– `For Each ws In ThisWorkbook.Worksheets`: Workbook内の全てのシートに対してループを実行します。
– `pdfName = savePath & ws.Name & “.pdf”`: 保存先のパスとシート名を組み合わせて、各PDFの完全なパスを生成します。
– `ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName`: シートをPDF形式で保存します。

応用例

1. 特定のシートのみをPDFとして保存

特定のシートのみをPDFとして保存したい場合、シート名での条件分岐を追加できます。

Sub SaveSpecificSheetsAsPDF()
    Dim ws As Worksheet
    Dim savePath As String
    Dim pdfName As String

    savePath = "C:\Your\Desired\Directory\"

    For Each ws In ThisWorkbook.Worksheets
        'シート名"Sheet1"と"Sheet2"のみをPDFとして保存
        If ws.Name = "Sheet1" Or ws.Name = "Sheet2" Then
            pdfName = savePath & ws.Name & ".pdf"
            ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName
        End If
    Next ws

End Sub

2. シートの内容に応じてファイル名を変更

シートの特定のセルの内容をファイル名に含めることができます。

Sub SaveSheetsWithCellContentAsPDF()
    Dim ws As Worksheet
    Dim savePath As String
    Dim pdfName As String
    Dim cellContent As String

    savePath = "C:\Your\Desired\Directory\"

    For Each ws In ThisWorkbook.Worksheets
        cellContent = ws.Range("A1").Value
        pdfName = savePath & ws.Name & "-" & cellContent & ".pdf"
        ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName
    Next ws

End Sub

3. PDFの品質を変更して保存

ExportAsFixedFormatメソッドのQualityパラメータを使用して、PDFの品質を指定して保存することができます。

Sub SaveSheetsWithQualityAsPDF()
    Dim ws As Worksheet
    Dim savePath As String
    Dim pdfName As String

    savePath = "C:\Your\Desired\Directory\"

    For Each ws In ThisWorkbook.Worksheets
        pdfName = savePath & ws.Name & ".pdf"
        ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, Quality:=xlQualityStandard
    Next ws

End Sub

まとめ

ExcelのVBAを用いると、複数のシートを個別のPDFとして簡単に保存することができます。上記の基本的なコードを参考に、独自の要件に合わせてカスタマイズして利用してみてください。