Excel VBAでシートをPDFとして保存する方法

Microsoft Excelは、ビジネスや学術の分野で広く使われているスプレッドシートソフトウェアです。VBA (Visual Basic for Applications) はExcelのマクロプログラミング言語として機能し、高度な作業を自動化するためのスクリプトを記述することができます。この記事では、ExcelのシートをPDFとして保存するVBAの処理方法について詳しく説明します。初心者から中級者まで、Excel VBAを使用してPDFの保存を行う方法を学ぶことができます。

基本のコード

まず、ExcelのシートをPDFとして保存する基本的なVBAコードを見てみましょう。

Sub SaveSheetAsPDF()
    Dim ws As Worksheet
    Dim pdfPath As String

    ' 対象となるワークシートを設定
    Set ws = ThisWorkbook.Sheets("Sheet1")

    ' PDFを保存するパスを設定
    pdfPath = ThisWorkbook.Path & "\Sheet1.pdf"

    ' シートをPDFとして保存
    ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath
End Sub

このコードは、ワークブック内の”Sheet1″という名前のシートをPDFとして同じディレクトリに”Sheet1.pdf”という名前で保存します。

コードの解説

1. `Dim ws As Worksheet`と`Dim pdfPath As String`で必要な変数を宣言しています。
2. `Set ws = ThisWorkbook.Sheets(“Sheet1”)`で”Sheet1″というシートを変数`ws`に代入しています。
3. `pdfPath = ThisWorkbook.Path & “\Sheet1.pdf”`でPDFの保存先のパスを指定しています。`ThisWorkbook.Path`は現在のワークブックのパスを返す関数です。
4. 最後に`ws.ExportAsFixedFormat`メソッドを使用して、指定したパスにPDFとして保存しています。

応用例

応用1：複数のシートを一つのPDFとして保存

Sub SaveMultipleSheetsAsPDF()
    Dim pdfPath As String

    ' PDFを保存するパスを設定
    pdfPath = ThisWorkbook.Path & "\MultipleSheets.pdf"

    ' 複数のシートを一つのPDFとして保存
    ThisWorkbook.Sheets(Array("Sheet1", "Sheet2")).ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath
End Sub

応用2：特定の範囲をPDFとして保存

Sub SaveRangeAsPDF()
    Dim rng As Range
    Dim pdfPath As String

    ' 対象となる範囲を設定
    Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1:C10")

    ' PDFを保存するパスを設定
    pdfPath = ThisWorkbook.Path & "\RangeAsPDF.pdf"

    ' 範囲をPDFとして保存
    rng.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath
End Sub

応用3：保存時にパスワードを設定

この例では、PDFを保存する際にパスワードを設定します。これにより、パスワードなしでのPDFの開封を防ぐことができます。

Sub SaveSheetWithPassword()
    Dim ws As Worksheet
    Dim pdfPath As String

    ' 対象となるワークシートを設定
    Set ws = ThisWorkbook.Sheets("Sheet1")

    ' PDFを保存するパスを設定
    pdfPath = ThisWorkbook.Path & "\ProtectedSheet.pdf"

    ' パスワードを設定してPDFとして保存
    ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfPath, OpenAfterPublish:=False, Password:="password123"
End Sub

まとめ

Excel VBAを使用すると、シートや範囲をPDFとして簡単に保存することができます。基本的な保存方法から、複数のシートを統合した保存や特定の範囲のみを保存する方法、さらにはPDFにパスワードを設定する方法まで、様々な応用例を紹介しました。これらのコードを参考に、自身のニーズに合わせてカスタマイズしてみてください。