【マクロ・VBAダウンロード】エクセルで作った請求書を自動的にPDF化

エクセルで作った請求書を自動的にPDF化する方法を紹介します

またエクセルファイルもダウンロードできますので、よかったら使ってください

マクロ・VBAファイルはこちらです→001_請求書_VBA.xlsm

この記事のソースコードでできること↓

エクセルファイルのSheetをPDF化させる
いくつかSheetがある中の「請求書」だけPDF化させる

PDF化するだけなら、「名前付き保存」で拡張子を変えればすぐにできます

しかし、業務をするうえでいくつもの請求書を作成する必要があったり

作成した請求書をメールで送るとき、そのたびにPDF化して

メールを起動し、メールを送るなど時間が掛かり大変ですよね？

これらのことを自動で行うソースコードを紹介していきますが

まず第一歩として請求書をPDF化させることをまとめます

※マクロを入れる場合、EXCELファイルをマクロ形式にしてください

その後、Alt+F11でマクロの画面に移り変わるので、Alt+I+Mを押して

表示した画面にコピペしてください

下の記事にマクロの取り込み方法をまとめたのでよかったら参考にしてください

Sub PDF()

Dim ws As Worksheet 'Sheetをループさせるための変数

Dim wb As Workbook: Set wb = ThisWorkbook 'このBookのことを言っている変数

For Each ws In wb.Sheets 'Book内のSheetをループで回す
    
    If ws.Name <> "商品T" And ws.Name <> "mail形式" And ws.Name <> "顧客リスト" Then '請求書のみ読み取るための条件
        
        ws.Select Replace:=False 'Ctrl+クリックの状態
    
    End If

Next

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                    Filename:=★★★保存先+ファイル名を入れる★★★, _
                                    Quality:=xlQualityStandard, _
                                    IncludeDocProperties:=True, _
                                    IgnorePrintAreas:=False, _
                                    OpenAfterPublish:=True

End Sub

１８行目の「Filename:=★★★保存先+ファイル名を入れる★★★」部分で

「Filename:=」先には自分のPCの保存先とファイル名を入れてください

例　Filename:=”C:\Users\USER\OneDrive\デスクトップ\請求書\請求書.pdf”

「”」ダブルコーテーションの入れ忘れに注意してください

マクロ・VBAファイルはこちらです→001_請求書_VBA.xlsm