この記事では、Excel VBAを利用して、複数のExcelページを一つのPDFページにまとめて保存する方法について詳しく解説します。具体的なコード例とその解説、さらには応用例も含めて提供します。この技術は、報告書や資料の作成時に、エクセルの内容を効果的にまとめて提示する際に非常に役立ちます。
Excel VBAの基本
Excel VBA（Visual Basic for Applications）は、Microsoft Excelに組み込まれたプログラミング言語です。これを用いると、単純作業の自動化だけでなく、高度なデータ分析やレポート作成も可能になります。
そもそも、どこにVBAコードを書いて、どう実行すれば良いのか分からない場合は、以下の記事をご参照ください。
基本的な保存方法
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に保存する方法を学びました。基本的な保存方法から、特定の範囲のみの保存、複数ワークブックのデータのまとめ保存、ページ設定の変更まで、さまざまな応用例を通じて、実際の業務で役立つテクニックを習得することができました。
VBAも良いけどパワークエリも良い
VBAの解説をしてきましたが、VBAは正直煩雑でメンテナンス性が悪いです。最近はモダンExcelと呼ばれるパワークエリやパワーピボットへのシフトが進んできています。本サイトでもパワークエリの特集をしており、サンプルデータを含む全11回の学習コンテンツでパワークエリを習得することができます。
クリックするとパワークエリの全11講座が表示されます。
-
【初心者向け】パワークエリ入門：ETLツールを使ってエクセルデータを簡単に整形・統合しよう！(1/11)
-
【実践ガイド】パワークエリでデータ収集：Excel、CSV、PDF、Webデータを簡単に取り込む方法をマスターしよう！(2/11)
-
【総力特集】パワークエリで列操作をマスター：選択、変更、移動、削除、結合、分割の詳細解説＆実践テクニック！(3/11)
-
【徹底解説】パワークエリで行操作をマスター！フィルター・保持・削除テクニックと練習用エクセルで実践学習(4/11)
-
パワークエリでデータクレンジング: 文字列結合、0埋め、テキスト関数をマスター(5/11)
-
パワークエリで四捨五入、切り捨て、切り上げをマスターする方法（6/11）
-
パワークエリで効率的なデータグループ化を実現する方法(7/11)
-
パワークエリで時間と日付の計算をマスター！便利な関数を使って効率アップ(8/11)
-
パワークエリで条件別集計をマスターする方法(9/11)
-
Excelパワークエリでクロス集計表とデータベース形式を瞬時に変換する方法(10/11)
-
Excelパワークエリ入門: 効率的なデータ整理をマスターしよう！(11/11)
パワーピボットの記事はありません。興味がある場合は、書籍で学んでみてください
コメント