Excel VBAを使用して複数ページのデータを1つのPDFにまとめる方法

この記事では、Excel VBAを利用して、複数のExcelページを一つのPDFページにまとめて保存する方法について詳しく解説します。具体的なコード例とその解説、さらには応用例も含めて提供します。この技術は、報告書や資料の作成時に、エクセルの内容を効果的にまとめて提示する際に非常に役立ちます。

基本的な保存方法

ExcelのワークシートをPDFとして保存する際、通常は1シートごとに1ページのPDFが生成されます。しかし、特定のシートを一つのPDFページにまとめることもVBAを使えば可能です。

Sub SaveSheetsAsPDF()
    Dim ws As Worksheet
    Dim pdfName As String
    
    pdfName = ThisWorkbook.Path & "\MergedSheets.pdf"
    
    ThisWorkbook.Sheets(Array("Sheet1", "Sheet2")).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, Quality:=xlQualityStandard
End Sub

コードの詳細解説

– `ws As Worksheet` : ワークシートを操作するための変数を宣言します。
– `pdfName As String` : 保存するPDFのファイル名を格納する文字列変数を宣言します。
– `ThisWorkbook.Path` : 現在のブックの保存場所のパスを取得します。
– `Sheets(Array(“Sheet1”, “Sheet2”)).Select` : `Sheet1`と`Sheet2`を選択します。これを変更することで、任意のシートを選択できます。
– `ActiveSheet.ExportAsFixedFormat` : 選択したシートを指定の形式で保存します。ここではPDFとして保存しています。

応用例

応用例1：指定した範囲だけをPDFにする

複数のシートから特定の範囲だけをPDFに保存したい場合の方法です。

Sub SaveRangeAsPDF()
    Dim pdfName As String
    
    pdfName = ThisWorkbook.Path & "\SelectedRange.pdf"
    
    ThisWorkbook.Sheets("Sheet1").Range("A1:D10").ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, Quality:=xlQualityStandard
End Sub

応用例2：複数のワークブックのデータを1つのPDFにまとめる

異なるワークブックのデータを一つのPDFにまとめる方法です。

Sub MergeMultipleWorkbooksIntoPDF()
    Dim pdfName As String
    Dim wb As Workbook
    Dim ws As Worksheet
    
    ' PDFの保存名を設定
    pdfName = ThisWorkbook.Path & "\MergedWorkbooks.pdf"
    
    ' 元のワークブックを選択
    ThisWorkbook.Activate
    
    ' 各ワークブックのシートを現在のワークブックにコピー
    For Each wb In Application.Workbooks
        If wb.Name <> ThisWorkbook.Name Then
            For Each ws In wb.Sheets
                ws.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
            Next ws
        End If
    Next wb
    
    ' 全てのシートを選択
    ThisWorkbook.Sheets.Select
    
    ' 選択したシートをPDFとして保存
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, Quality:=xlQualityStandard
End Sub

応用例3：保存前にページ設定を変更する

PDF保存前にページ設定を変更して、見た目を調整する方法です。

Sub SaveWithPageSetup()
    Dim pdfName As String
    
    pdfName = ThisWorkbook.Path & "\FormattedPDF.pdf"
    
    With ThisWorkbook.Sheets("Sheet1").PageSetup
        .Orientation = xlLandscape
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    
    ThisWorkbook.Sheets("Sheet1").ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, Quality:=xlQualityStandard
End Sub

まとめ

VBAを利用して、エクセルのデータを柔軟にPDFに保存する方法を学びました。基本的な保存方法から、特定の範囲のみの保存、複数ワークブックのデータのまとめ保存、ページ設定の変更まで、さまざまな応用例を通じて、実際の業務で役立つテクニックを習得することができました。