• 1社ずつテンプレートをコピーする
• 取引先名と金額を打ち替える
• PDFに書き出す
• メールに添付する

取引先が10社・20社と増えるほど、この単純作業に半日とられてしまいますよね。転記ミスや添付忘れも怖いところです。

実はこの一連の流れ、Google Apps Script（GAS）を使えばボタン1つで丸ごと自動化できます。スプレッドシートの請求データをテンプレートに差し込み、PDF化して、Driveに保存して、Gmailで送付するまでを全部やってくれます。

この記事では、コピペでそのまま動く完成コードと、つまずきやすいポイントの対処法まで、実務で使える形でまとめました。

GASで請求書PDFを自動生成する仕組みとは？｜全体の流れを把握する

最初に、これから作るものの全体像をつかんでおきましょう。やっていることはシンプルで、次の5ステップを GAS が順番に実行するだけです。

1. 請求データ（取引先・品目・金額）が並んだ「データシート」を1行ずつ読み込む
2. レイアウトを整えた「テンプレートシート」にその値を差し込む
3. テンプレートシートをPDFに変換する
4. PDFをGoogle Driveの指定フォルダに保存する
5. 取引先のメールアドレス宛にPDFを添付してGmailで送信する

ちょっとむずかしく見えますが、やっていることはシンプルです。「スプレッドシートを差し込み印刷して、PDFにして、メールで送る」という、ふだん手作業でやっていることをそのままコードにしただけなんです。

NOTE: GASは追加費用ゼロで使えます
GAS（Google Apps Script）はGoogleが提供する無料のスクリプト環境で、JavaScriptに似た言語で書きます。Googleアカウントさえあれば、インストール不要でブラウザ上のエディタからすぐに使えます。基本操作に不安がある方はGAS入門記事を先に読んでおくと、この記事がスムーズに理解できますよ。

必要な前提条件

実装を始める前に、次のものを準備しておいてください。

• Googleアカウント（無料のもので問題ありません）
• 編集権限のあるGoogleスプレッドシート1つ
• 請求書PDFを保存するGoogle Driveのフォルダ1つ
• 取引先のメールアドレスが分かっていること（自動送信する場合）

特別な有料サービスやプラグインは一切不要です。すべてGoogle標準の機能だけで完結します。

スプレッドシートを準備する｜データシートとテンプレシートを作る

GASを書く前に、土台となるスプレッドシートを整えます。1つのスプレッドシートの中に「データシート」と「テンプレートシート」という2枚のシートを用意するのがポイントです。

データシートの作り方

まず1枚目に、請求データを並べる「データ」という名前のシートを作ります。1行目を見出しにして、2行目以降に取引先ごとのデータを1行ずつ入れていきましょう。

金額の列は、カンマ区切りの文字列ではなく数値のまま入れておきましょう。あとでコード側で toLocaleString() を使ってカンマ表示に整えるので、ここでは生の数値にしておくのがポイントです。

テンプレートシートの作り方

次に2枚目に、請求書のレイアウトを整えた「テンプレート」という名前のシートを作ります。ここは実際の請求書として見栄えするように、セルの結合や罫線、フォントサイズを調整してデザインします。

差し込みたい場所には、あとでGASが置き換えるための目印（プレースホルダー）を入れておきます。たとえば次のように書いておきます。

• 宛名のセル: {{取引先名}} 御中
• 品目のセル: {{品目}}
• 金額のセル: {{金額}}
• 発行日のセル: {{発行日}}

このように {{ }} で囲んだ文字列を目印にしておけば、GASが「この目印を見つけたら、データシートの値に置き換える」という処理をしてくれますよ。Word差し込み印刷の差し込みフィールドと同じ発想ですね。

NOTE: 印刷範囲を意識してレイアウトする
テンプレートシートはそのままPDFになります。A4縦1枚にきれいに収まるよう、列幅と行の高さを調整しておきましょう。余計な列や行が広がっていると、PDFに余白として写り込んでしまいます。

請求書PDFを自動生成するGASコード【コピペOK】

それでは本体のコードです。スプレッドシートのメニューから「拡張機能」→「Apps Script」を開き、エディタに次のコードを貼り付けてください。

function createInvoicePdf() {
  // --- 設定（ここだけ自分の環境に合わせて変更）---
  const DATA_SHEET_NAME = 'データ';        // データシートの名前
  const TEMPLATE_SHEET_NAME = 'テンプレート'; // テンプレシートの名前
  const SAVE_FOLDER_ID = 'ここにDriveフォルダのIDを貼る'; // PDF保存先フォルダ
  const SEND_MAIL = false; // true にするとメール送信も実行する

  const ss = SpreadsheetApp.getActiveSpreadsheet();
  const dataSheet = ss.getSheetByName(DATA_SHEET_NAME);
  const templateSheet = ss.getSheetByName(TEMPLATE_SHEET_NAME);
  const saveFolder = DriveApp.getFolderById(SAVE_FOLDER_ID);

  // データシートを2行目から最終行まで読み込む
  const lastRow = dataSheet.getLastRow();
  const data = dataSheet.getRange(2, 1, lastRow - 1, 4).getValues();

  // 発行日（今日の日付）を「2026年6月8日」形式で作る
  const today = new Date();
  const issueDate = Utilities.formatDate(today, 'JST', 'yyyy年M月d日');

  // 1行ずつ処理する
  data.forEach(function(row) {
    const clientName = row[0]; // 取引先名
    const email = row[1];      // メールアドレス
    const item = row[2];       // 品目
    const amount = row[3];     // 金額

    if (!clientName) return; // 取引先名が空の行はスキップ

    // テンプレートに差し込む
    fillTemplate(templateSheet, {
      '{{取引先名}}': clientName,
      '{{品目}}': item,
      '{{金額}}': '¥' + Number(amount).toLocaleString(),
      '{{発行日}}': issueDate
    });

    // 差し込み結果を確実に反映させる
    SpreadsheetApp.flush();

    // テンプレシートをPDFに変換する
    const fileName = issueDate.replace(/[年月]/g, '-').replace('日', '')
      + '_' + clientName + '_請求書.pdf';
    const pdfBlob = exportSheetAsPdf(ss, templateSheet, fileName);

    // Driveに保存する
    const pdfFile = saveFolder.createFile(pdfBlob);

    // メール送信する（SEND_MAIL が true のときだけ）
    if (SEND_MAIL && email) {
      sendInvoiceMail(email, clientName, pdfFile.getBlob());
    }

    Logger.log(clientName + ' のPDFを作成しました: ' + pdfFile.getUrl());
  });
}

このコードは「設定」の部分だけ自分の環境に合わせれば、あとはそのまま動きます。それぞれの値を順番に説明します。

• DATA_SHEET_NAME: 請求データを入れたシートの名前
• TEMPLATE_SHEET_NAME: 請求書レイアウトのシートの名前
• SAVE_FOLDER_ID: PDFを保存したいDriveフォルダのID（次の項目で取得方法を説明します）
• SEND_MAIL: 最初は false のままにして、PDF生成だけテストしてから true に切り替えるのが安全です

差し込みとPDF変換の関数を追加する

上のコードから呼び出している補助関数を、同じファイルの下に続けて貼り付けます。

// テンプレートのプレースホルダーを実際の値に置き換える
function fillTemplate(sheet, replaceMap) {
  const range = sheet.getDataRange();
  const values = range.getValues();

  for (let r = 0; r < values.length; r++) {
    for (let c = 0; c < values[r].length; c++) {
      let cell = values[r][c];
      if (typeof cell === 'string') {
        for (const key in replaceMap) {
          if (cell.indexOf(key) !== -1) {
            cell = cell.split(key).join(replaceMap[key]);
          }
        }
        values[r][c] = cell;
      }
    }
  }
  range.setValues(values);
}

ここで注意したいのは、fillTemplate でテンプレートシートの値を直接書き換えている点です。1社目の差し込みで {{取引先名}} が実際の名前に変わってしまうと、2社目では目印が見つからなくなってしまいます。

これを防ぐ仕組みは、このあと「うまくいかないときの対処法」で解説していきましょう。

PDF変換のURLパラメータを使いこなす｜余白・向き・範囲を制御する

GASでスプレッドシートをPDF化するときは、Googleのエクスポート用URLにアクセスして変換します。このURLにパラメータを付けることで、用紙の向きや余白、印刷範囲を細かく指定できるのがポイントです。

// 指定したシートだけをPDFに変換する
function exportSheetAsPdf(ss, sheet, fileName) {
  const ssId = ss.getId();
  const gid = sheet.getSheetId();

  // エクスポート用URLとパラメータ
  const url = 'https://docs.google.com/spreadsheets/d/' + ssId
    + '/export?'
    + 'format=pdf'        // PDF形式で出力
    + '&gid=' + gid       // 対象シートのID
    + '&portrait=true'    // 縦向き（横向きは false）
    + '&size=A4'          // 用紙サイズ
    + '&fitw=true'        // 幅をページに合わせる
    + '&gridlines=false'  // 枠線（グリッド線）を非表示
    + '&sheetnames=false' // シート名を非表示
    + '&printtitle=false' // ファイル名を非表示
    + '&top_margin=0.5'   // 上余白（インチ）
    + '&bottom_margin=0.5'
    + '&left_margin=0.5'
    + '&right_margin=0.5';

  // 認証トークンを付けてアクセスする
  const token = ScriptApp.getOAuthToken();
  const response = UrlFetchApp.fetch(url, {
    headers: { 'Authorization': 'Bearer ' + token }
  });

  // PDFのデータ（Blob）にファイル名を付けて返す
  return response.getBlob().setName(fileName);
}

主要なURLパラメータの意味を整理しておきます。請求書の見た目を調整したいときは、ここを書き換えてください。

• format=pdf: 出力形式。PDFのほかに xlsx や csv も指定できます
• gid: PDF化したいシートのID。sheet.getSheetId() で取得します
• portrait: true で縦向き、false で横向き
• gridlines: false にすると、セルの枠線（グリッド線）が消えてすっきりします
• fitw: true にすると、列がページ幅に収まるよう自動調整されます
• top_margin などの余白: インチ単位で指定します（0.5でだいたい1.3cm程度）

NOTE: gid はシートのURLで確認できる
シートのIDは、対象シートを開いたときのURL末尾 #gid=0 の数字部分です。コードでは getSheetId() を使って自動取得するので手入力は不要ですが、仕組みを知っておくと応用が利きます。

ファイル名を動的に付ける｜日付と取引先名で自動命名する

請求書PDFは、あとから探しやすいファイル名にしておくことが大切です。本体コードでは、次のようにファイル名を組み立てていました。

const fileName = issueDate.replace(/[年月]/g, '-').replace('日', '')
  + '_' + clientName + '_請求書.pdf';

これで「2026-6-8_株式会社サンプル_請求書.pdf」のような名前が自動で付きます。日付が先頭にあると、フォルダ内で日付順に並ぶので管理がラクになりますよ。

請求書番号を入れたい場合は、データシートに「請求番号」の列を追加して、次のように組み込むと便利です。

// 例: INV-2026-001 のような請求番号を先頭に付ける
const invoiceNo = row[4]; // データシートの5列目に請求番号があると仮定
const fileName = invoiceNo + '_' + clientName + '_請求書.pdf';

ファイル名に使えない記号（/ や : など）が取引先名に含まれる場合は、replace() で除去しておくと安全です。

const safeName = clientName.replace(/[\/:*?"<>|]/g, '');

Drive保存とGmail送信を組み込む｜送付まで全自動にする

ここまでで「PDFを作ってDriveに保存する」までができました。最後に、そのPDFをGmailで取引先に送る関数を追加します。

// 請求書PDFをメールに添付して送信する
function sendInvoiceMail(email, clientName, pdfBlob) {
  const subject = clientName + ' 御中｜請求書のご送付';
  const body = clientName + ' 御中nn'
    + 'いつもお世話になっております。n'
    + '今月分の請求書をお送りいたします。n'
    + '添付のPDFをご確認のうえ、お手続きをお願いいたします。nn'
    + '何卒よろしくお願い申し上げます。';

  GmailApp.sendEmail(email, subject, body, {
    attachments: [pdfBlob],
    name: '請求担当'
  });
}

GmailApp.sendEmail() の attachments オプションにPDFのBlobを渡すだけで、添付ファイル付きメールが送れます。差出人の表示名は name で変えられるので、会社名や担当部署を入れておくと親切です。

メール本文を取引先ごとに個別化したり、HTMLメールで送りたい場合は、スプレッドシートからGmailを一括送信する方法で差し込みメールのテクニックを詳しく解説しているので、あわせて読んでみてください。

実行ボタンを付けて誰でも使えるようにする

毎月使うものなので、スプレッドシートにカスタムメニューを追加して、ワンクリックで実行できるようにしておきましょう。

// スプレッドシートを開いたときにメニューを追加する
function onOpen() {
  SpreadsheetApp.getUi()
    .createMenu('請求書ツール')
    .addItem('請求書PDFを作成', 'createInvoicePdf')
    .addToUi();
}

このコードを保存してスプレッドシートを開き直すと、メニューバーに「請求書ツール」という項目が増えます。あとはそこから「請求書PDFを作成」を選ぶだけで、全自動で処理が走ります。

うまくいかないときの対処法｜よくあるトラブルと解決策

実装中につまずきやすいポイントと、その解決策をまとめました。エラーが出ても落ち着いて確認してください。

2社目から差し込みがされない・プレースホルダーが残る

一番ハマりやすいのがこれです。前述のとおり、fillTemplate がテンプレートシートを直接書き換えるため、1社目の処理で {{取引先名}} が消えてしまうのが原因です。

解決策は、毎回テンプレートシートを元の状態に戻すことです。テンプレートを別シートとして複製してから差し込み、PDF化後に削除する方法が確実です。本体コードの差し込み部分を次のように書き換えてください。

data.forEach(function(row) {
  // ...（変数の取り出しは同じ）...

  // テンプレートをコピーして作業用シートを作る
  const workSheet = templateSheet.copyTo(ss).setName('_work');

  fillTemplate(workSheet, {
    '{{取引先名}}': clientName,
    '{{品目}}': item,
    '{{金額}}': '¥' + Number(amount).toLocaleString(),
    '{{発行日}}': issueDate
  });
  SpreadsheetApp.flush();

  // 作業用シートをPDF化
  const pdfBlob = exportSheetAsPdf(ss, workSheet, fileName);
  saveFolder.createFile(pdfBlob);

  // 作業用シートを削除して元に戻す
  ss.deleteSheet(workSheet);
});

これなら原本のテンプレートは触らないので、何社処理しても目印が消えません。

「承認が必要です」と表示されて実行できない

GASが初めてDriveやGmailにアクセスするときは、Googleの認可（承認）が必要です。実行時に出るダイアログで「権限を確認」→自分のアカウントを選択→「詳細」→「（プロジェクト名）に移動」→「許可」の順に進めば承認できます。これは初回だけの操作です。

PDFの一部が切れる・2ページに分かれてしまう

テンプレートシートの内容がA4の1枚に収まっていないのが原因です。次の点を確認してください。

• テンプレートシートの列幅を狭めて、横幅をA4内に収める
• 不要な列・行が広がっていないか確認する
• URLパラメータに fitw=true（幅をページに合わせる）を入れる
• それでも収まらなければ portrait=false で横向きにする

スクリプトの実行時間が長すぎてエラーになる

GASには1回あたり6分という実行時間の上限があります。取引先が数十社を超えて時間切れになる場合は、処理する行数を分割したり、Utilities.sleep() の不要な待機を入れていないか確認しましょう。

請求業務に複数のGAS自動化を組み合わせたい方は、GASで締め切りリマインダーを自動通知する方法も参考になります。

まとめ｜請求書発行を丸ごと自動化して毎月の手間を消す

GASを使えば、スプレッドシートの請求データから、PDF生成・Drive保存・メール送付までを全自動にできます。一度コードを組んでしまえば、翌月からはデータシートを更新してボタンを押すだけです。半日かかっていた請求業務が、文字どおり数分で終わるようになります。

最後に、実装のポイントを振り返っておきましょう。

• データシートとテンプレートシートを分けて作る
• テンプレートには {{取引先名}} などの目印を置く
• PDF変換はエクスポート用URLにパラメータを付けて制御する
• ファイル名は日付と取引先名で動的に命名する
• 2社目以降の差し込みは「テンプレートを複製してから差し込む」で解決する

まずは SEND_MAIL を false にしたまま、PDF生成だけテストしてみてください。狙いどおりのPDFができることを確認してから、メール送信を有効にするのが安全な進め方です。

GASをもっと活用したい方は、予約フォームとGoogleカレンダーを連携する方法など、ほかの自動化レシピもぜひ試してみてください。

この作業はVBAの ExportAsFixedFormat メソッドで丸ごと自動化できます。ボタン1つで保存先フォルダの作成、日付入りファイル名の生成、印刷範囲の制御まで自動でこなせます。

この記事では、ExportAsFixedFormat の基本構文から実用サンプルまでを順に解説します。具体的には、保存先フォルダの自動作成、ファイル名への日付付与、複数シート一括PDF化、印刷範囲の指定です。請求書や月次報告書の自動保存テンプレートも掲載しているので、明日からそのまま現場で使えます。

VBAでPDF出力するExportAsFixedFormatとは？

ExportAsFixedFormat は、ExcelのワークシートやブックをPDFまたはXPS形式で書き出すVBAメソッドです。Excel 2007以降のすべてのバージョンで標準搭載されており、追加のアドインやライブラリは不要です。

「ファイル」→「エクスポート」→「PDFの作成」と同じ動作を、コードから自動実行できると考えてください。手動操作とまったく同じレイアウト・印刷品質でPDFを生成できます。

ExportAsFixedFormatでできること

このメソッド1つで、PDF保存に関するほとんどの操作を自動化できます。

• 単一シートをPDF化して任意フォルダへ保存
• ブック全体（複数シート）を1つのPDFにまとめて保存
• 印刷範囲（PrintArea）で指定した部分だけをPDF化
• ファイル名にシート名・日付・取引先名などを自動で組み込む
• 保存先フォルダを動的に作成（年月別・部署別など）
• パスワード設定、ページ範囲指定、画質指定

手動でPDF保存する場合と違って、保存先・ファイル名・対象範囲がコードに固定化されます。そのため、毎回同じ品質でアウトプットでき、担当者が変わってもファイル名の表記ゆれが発生しません。

手動PDF保存との違い

手動とVBAでは、所要時間と再現性が決定的に違います。

10ファイル以上のPDF出力を月次で行う作業なら、初回1時間の自動化で年間60時間以上が浮きます。

ExportAsFixedFormatの基本構文

ExportAsFixedFormat メソッドは、ワークシートやブックなど、PDF化したいオブジェクトに対して呼び出します。

構文の基本形

最もシンプルな書き方は次のとおりです。

Worksheets("Sheet1").ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:="C:PDFsample.pdf"

Type:=xlTypePDF でPDF形式を指定し、Filename で保存先のフルパスを渡します。たったこれだけで、Sheet1がPDFとして指定パスに保存されます。

主要な引数一覧

ExportAsFixedFormat メソッドにはオプション引数が複数あります。実務でよく使うのは次の6つです。

IgnorePrintAreas は重要です。既定値の False だと印刷範囲（PrintArea）の設定が反映されます。True を指定するとシート全体がPDF化されます。

VBE（Visual Basic Editor）の起動とコードの準備

VBAコードを実行するには、まずVBEを開いて標準モジュールにコードを貼り付けます。

1. Excelを開いた状態で Alt + F11 キーを押す（VBEが起動）
2. リボン経由の場合は「開発」タブ→「Visual Basic」をクリック
3. 「開発」タブが表示されていない場合は、「ファイル」→「オプション」→「リボンのユーザー設定」で「開発」にチェック
4. VBE画面で「挿入」→「標準モジュール」をクリック
5. 開いたコードウィンドウに本記事のサンプルを貼り付けて F5 で実行

NOTE

ファイルは「Excel マクロ有効ブック（.xlsm）」または「Excel バイナリブック（.xlsb）」で保存してください。通常の .xlsx ではマクロが保存されません。

VBAで単一シートをPDF出力する基本コード

まずは1枚のシートをPDF化する最小構成のコードから始めます。

Sub Sample_ExportSinglePDF()
    '--- 保存先パスを指定 ---
    Dim sPath As String
    sPath = "C:PDFreport.pdf"

    '--- アクティブシートをPDF出力 ---
    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=sPath, _
        Quality:=xlQualityStandard, _
        OpenAfterPublish:=False

    MsgBox "PDF出力完了: " & sPath
End Sub

このコードを実行すると、現在表示中のシートが C:PDFreport.pdf として保存されます。OpenAfterPublish:=False にしておけば、PDFが自動で開くことがなく、バッチ処理向きの動作になります。

シート名で出力対象を指定する

特定のシートだけをPDF化したい場合は、ActiveSheet の代わりに Worksheets("シート名") で対象を明示します。

Sub Sample_ExportNamedSheet()
    '--- シート名で出力対象を指定 ---
    Dim sBefore As String
    Dim sAfter As String
    sBefore = "請求書ひな形"
    sAfter = "C:PDF請求書.pdf"

    Worksheets(sBefore).ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=sAfter

    MsgBox "出力: " & sBefore & " → " & sAfter
End Sub

Worksheets("請求書ひな形") のようにシートを明示すると、どのシートがアクティブでも常に同じシートをPDF化できます。複数シートを処理するブックでは、必ずこの形式で対象を指定してください。

ファイル名に日付を自動付与する

毎日・毎月の繰り返し処理では、ファイル名に日付を入れて履歴を残すのが定石です。同名ファイルの上書きを防げます。

Format関数で日付を文字列に変換する

Format 関数は、日付や数値を任意の書式の文字列に変換するVBA組み込み関数です。

Sub Sample_DatedFilename()
    '--- 日付付きファイル名を生成 ---
    Dim sToday As String
    Dim sPath As String
    sToday = Format(Date, "yyyymmdd")
    sPath = "C:PDF日報_" & sToday & ".pdf"

    '--- アクティブシートを日付付きファイル名で出力 ---
    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=sPath

    MsgBox "保存完了: " & sPath
End Sub

Format(Date, "yyyymmdd") は、今日の日付を 20260509 のような8桁文字列に変換します。これをファイル名に組み込むと、日報_20260509.pdf というファイルが生成されます。

日付フォーマットの主な書式

Format 関数の書式指定は、用途によって使い分けます。

同じ日に複数回PDFを出力する可能性があるなら、hhmmss（時刻）まで含めるとファイルがぶつかりません。Format(Now, "yyyymmdd_hhmmss") のように Now 関数を使います。

TIP

ファイル名にシート名を含めたい場合は、ActiveSheet.Name & "_" & sToday & ".pdf" のように連結します。シートを追加するたびに自動で命名されるため、保守性が高くなります。

保存先フォルダを自動作成する

「保存先フォルダが存在しないとエラーになる」のはVBA初心者がつまずきやすいポイントです。フォルダを動的に作成する処理を入れておくと、毎月新しいフォルダが必要になっても安全に運用できます。

MkDir関数でフォルダを作成する

VBAの MkDir 関数は、指定パスにフォルダを作成します。ただし、すでに存在するフォルダに MkDir を実行するとエラーになります。Dir 関数で存在チェックしてから作成するのが定石です。

Sub Sample_CreateFolderAndExport()
    '--- 保存先フォルダのパスを生成 ---
    Dim sFolder As String
    Dim sFile As String
    Dim sToday As String
    sToday = Format(Date, "yyyymm")
    sFolder = "C:PDF" & sToday
    sFile = sFolder & "日報_" & Format(Date, "yyyymmdd") & ".pdf"

    '--- フォルダが存在しなければ作成 ---
    If Dir(sFolder, vbDirectory) = "" Then
        MkDir sFolder
    End If

    '--- PDFを出力 ---
    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=sFile

    MsgBox "保存完了: " & sFile
End Sub

このコードでは、C:PDF202605 という年月別フォルダを自動作成し、その中に日付付きPDFを保存します。月が変わるたびに自動で新しいフォルダが作られるため、年間ファイル管理がスッキリします。

階層フォルダを一気に作成するMkDirRecursive

MkDir は1階層しか作れません。C:PDF20265 のような多階層をまとめて作りたい場合は、自作関数を1つ用意しておくと便利です。

Sub MkDirRecursive(ByVal sPath As String)
    '--- 階層フォルダを再帰的に作成 ---
    Dim sParent As String

    If Dir(sPath, vbDirectory) <> "" Then Exit Sub

    sParent = Left(sPath, InStrRev(sPath, "") - 1)
    If Len(sParent) > 0 Then
        MkDirRecursive sParent
    End If
    MkDir sPath
End Sub

Sub Sample_DeepFolder()
    '--- 階層フォルダ + PDF出力 ---
    Dim sFolder As String
    Dim sFile As String
    sFolder = "C:PDF" & Format(Date, "yyyy") & "" & Format(Date, "mm")
    sFile = sFolder & "日報.pdf"

    MkDirRecursive sFolder

    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=sFile
End Sub

MkDirRecursive を1度書いておくと、年/月/日の3階層構造でも安心してフォルダを生成できます。InStrRev で末尾の 位置を特定し、親フォルダから再帰的に作成する仕組みです。

複数シートを一括PDF出力する

請求書を取引先ごとに、月次報告を部署ごとに分けて保存する場合は、ループで複数シートを順番にPDF化します。

For Eachで全シートを個別PDF化する

ブック内のすべてのシートを、シート名でPDFファイルに分けて保存するコードです。

Sub Sample_ExportAllSheetsSeparately()
    '--- 全シートを個別PDFで出力 ---
    Dim ws As Worksheet
    Dim sFolder As String
    Dim sFile As String
    Dim sToday As String
    sToday = Format(Date, "yyyymmdd")
    sFolder = "C:PDF" & sToday

    '--- フォルダ作成 ---
    If Dir(sFolder, vbDirectory) = "" Then
        MkDir sFolder
    End If

    '--- 全シートをループ ---
    For Each ws In ThisWorkbook.Worksheets
        sFile = sFolder & "" & ws.Name & ".pdf"
        ws.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=sFile
    Next ws

    MsgBox "全シートのPDF出力完了"
End Sub

For Each ws In ThisWorkbook.Worksheets で、ブック内のすべてのワークシートを順に処理します。10シートあれば、10ファイルのPDFが一気に作られます。

For ループの基本構文はExcel VBAでFor文を使う方法を参照してください。コレクション処理に最適化された For Each はExcel VBAでFor Each Nextを使う方法で解説しています。

特定シートだけを1つのPDFにまとめる

複数シートを「1つのPDFファイル」としてまとめて出力するパターンもよく使います。役員報告用の資料一式などです。

Sub Sample_ExportSelectedSheetsAsOnePDF()
    '--- 指定シートを配列で選択して1つのPDFに ---
    Dim sFile As String
    sFile = "C:PDF月次報告_" & Format(Date, "yyyymm") & ".pdf"

    '--- 複数シートを選択 ---
    ThisWorkbook.Sheets(Array("売上", "コスト", "利益")).Select

    '--- 選択中のシートをまとめてPDF化 ---
    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=sFile

    '--- 選択を解除（先頭シートを単独選択） ---
    ThisWorkbook.Sheets(1).Select

    MsgBox "結合PDF出力完了: " & sFile
End Sub

Sheets(Array("売上", "コスト", "利益")).Select で複数シートを同時選択した状態にしておき、ActiveSheet.ExportAsFixedFormat を呼ぶと、選択中のシートがすべて1つのPDFにまとめられます。

NOTE

ブック全体をまとめたい場合は ThisWorkbook.ExportAsFixedFormat を使います。ActiveSheet ではなくブック自体に対してメソッドを呼ぶと、すべてのシートが1ファイルにまとまります。

シート名でフィルタしてPDF化する

「月次」で始まるシートだけPDF化したい、といった条件付き出力も可能です。

Sub Sample_ExportFilteredSheets()
    '--- 「月次」で始まるシートだけ個別PDFに ---
    Dim ws As Worksheet
    Dim sFolder As String
    sFolder = "C:PDF月次レポート_" & Format(Date, "yyyymm")

    If Dir(sFolder, vbDirectory) = "" Then
        MkDir sFolder
    End If

    For Each ws In ThisWorkbook.Worksheets
        '--- シート名先頭が「月次」のものだけ処理 ---
        If Left(ws.Name, 2) = "月次" Then
            ws.ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=sFolder & "" & ws.Name & ".pdf"
        End If
    Next ws
End Sub

If Left(ws.Name, 2) = "月次" Then の条件で、シート名の先頭2文字が「月次」のシートだけをPDF化します。命名規則を活用すると、ブックを開きっぱなしのまま対象だけ抽出して出力できます。

印刷範囲を指定してPDF化する

シート全体ではなく、特定のセル範囲だけをPDFにしたい場面もあります。請求書テンプレートの「明細部分のみ」や、ダッシュボードの「グラフ部分のみ」など、用途は多岐にわたります。

PrintAreaで印刷範囲を設定する

ワークシートの PageSetup.PrintArea プロパティに範囲文字列を代入すると、その範囲だけが印刷対象になります。

Sub Sample_ExportWithPrintArea()
    '--- 印刷範囲を設定してPDF化 ---
    Dim ws As Worksheet
    Set ws = Worksheets("請求書")

    '--- 印刷範囲を A1:F30 に固定 ---
    ws.PageSetup.PrintArea = "A1:F30"

    '--- 印刷範囲だけをPDF出力 ---
    ws.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:="C:PDF請求書.pdf", _
        IgnorePrintAreas:=False
End Sub

IgnorePrintAreas:=False（既定値）にしておくと、PrintArea の設定が反映されます。A1:F30 の範囲外にあるメモやコメント欄はPDFに含まれなくなります。

動的に印刷範囲を決める（最終行まで）

データが日々増えるシートでは、最終行まで自動で印刷範囲にしたいケースがあります。Cells(Rows.Count, 1).End(xlUp).Row で最終行を取得します。

Sub Sample_DynamicPrintArea()
    '--- 動的に印刷範囲を決めてPDF化 ---
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim sArea As String

    Set ws = Worksheets("売上一覧")
    lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
    sArea = "A1:F" & lastRow

    '--- 印刷範囲を動的に設定 ---
    ws.PageSetup.PrintArea = sArea

    ws.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:="C:PDF売上一覧_" & Format(Date, "yyyymmdd") & ".pdf"

    MsgBox "印刷範囲 " & sArea & " をPDF化しました"
End Sub

lastRow の取得方法はExcel VBAでLastRowを取得する方法で詳しく解説しています。データが10行のときも1000行のときも、自動でフィットした範囲のPDFが生成できます。

印刷範囲を無視してシート全体をPDF化する

逆に「シート全体を必ずPDF化したい」場合は、IgnorePrintAreas:=True を指定します。

Sub Sample_IgnorePrintArea()
    '--- 印刷範囲設定を無視してシート全体をPDF化 ---
    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:="C:PDF全体.pdf", _
        IgnorePrintAreas:=True
End Sub

既存ブックに古い PrintArea が残っていると、意図せず一部しかPDFにならないトラブルが起きます。事前に True で全体出力するか、PrintArea = "" でリセットするとトラブルを防げます。

実用サンプル: 請求書を取引先別にPDF自動保存

ここまで学んだ要素を組み合わせて、実務で使える請求書PDF自動保存マクロを作ります。

想定シナリオ

「取引先一覧」シートにA列：取引先名、B列：請求金額が入力されています。マクロを実行すると、「請求書ひな形」シートに各取引先の情報を流し込み、取引先名のPDFを C:請求書YYYYMM フォルダに自動保存します。

完成コード

Sub ExportInvoicesPerClient()
    '--- 請求書を取引先別にPDF自動保存 ---
    Dim wsList As Worksheet
    Dim wsTpl As Worksheet
    Dim sFolder As String
    Dim sFile As String
    Dim sClient As String
    Dim sAmount As String
    Dim lastRow As Long
    Dim i As Long

    Set wsList = Worksheets("取引先一覧")
    Set wsTpl = Worksheets("請求書ひな形")

    '--- 保存先フォルダを年月単位で作成 ---
    sFolder = "C:請求書" & Format(Date, "yyyymm")
    If Dir(sFolder, vbDirectory) = "" Then
        MkDir sFolder
    End If

    '--- 取引先一覧の最終行を取得 ---
    lastRow = wsList.Cells(Rows.Count, 1).End(xlUp).Row

    '--- 取引先ごとにループ ---
    For i = 2 To lastRow
        sClient = wsList.Cells(i, 1).Value
        sAmount = wsList.Cells(i, 2).Value

        '--- ひな形に情報を転記 ---
        wsTpl.Range("B2").Value = sClient
        wsTpl.Range("B5").Value = sAmount
        wsTpl.Range("B6").Value = Format(Date, "yyyy年m月d日")

        '--- 取引先名でPDF保存 ---
        sFile = sFolder & "" & sClient & "_請求書_" & _
                Format(Date, "yyyymm") & ".pdf"

        wsTpl.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=sFile, _
            IgnorePrintAreas:=False
    Next i

    MsgBox lastRow - 1 & "社分の請求書PDFを保存しました" & vbCrLf & sFolder
End Sub

このマクロを月初に1回実行するだけで、取引先10社分の請求書が C:請求書202605 フォルダ内に整理されて保存されます。手作業で30分かかっていた作業が、ボタン1つの数秒で終わります。

TIP

請求書テンプレートに通し番号を入れる場合は、wsTpl.Range("B1").Value = "INV-" & Format(Date, "yyyymm") & "-" & Format(i - 1, "000") のように連番も自動生成できます。

よくあるエラーと対処法

ExportAsFixedFormat を使うときに遭遇しやすいエラーを5つ紹介します。

実行時エラー’1004′: ドキュメントが保存されませんでした

最頻出のエラーです。原因は主に3つあります。

特に取引先名をファイル名に使う場合、株式会社○○/△△ のように / が含まれていると保存に失敗します。事前に Replace 関数でクリーニングしておくのが安全です。

sClient = Replace(sClient, "/", "_")
sClient = Replace(sClient, "", "_")

PDFが空白・1ページ目しか出ない

シート内のデータ範囲は広いのに、PDFが1ページしか生成されない場合は PrintArea が古い状態で残っていることが多いです。

'--- 印刷範囲をリセットしてから出力 ---
ws.PageSetup.PrintArea = ""
ws.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:="C:PDF全体.pdf", _
    IgnorePrintAreas:=True

PrintArea = "" で範囲をクリアし、IgnorePrintAreas:=True をセットで指定するとシート全体がPDF化されます。

文字が小さすぎてPDFが読めない

シート全体を1ページに収めようとすると、データ量が多い場合に文字が極端に小さくなります。PageSetup.Zoom プロパティと FitToPagesWide / FitToPagesTall を使って調整します。

With ws.PageSetup
    .Zoom = False
    .FitToPagesWide = 1   '横は1ページに収める
    .FitToPagesTall = False  '縦は自動（複数ページ可）
End With

横幅は1ページに収めつつ、縦は必要な分だけページを増やす設定です。長いリストでも文字が読める品質を保てます。

実行時エラー’9′: インデックスが有効範囲にありません

Worksheets("シート名") で指定したシートが存在しないときに発生します。シート名のタイポ・全角半角の混在・不要スペースが主な原因です。

'--- シート存在チェックを入れる ---
Dim ws As Worksheet
On Error Resume Next
Set ws = Worksheets("請求書ひな形")
On Error GoTo 0

If ws Is Nothing Then
    MsgBox "シート「請求書ひな形」が見つかりません"
    Exit Sub
End If

VBAのエラー処理パターン全般はVBAのエラーハンドリング完全ガイドで詳しく解説しています。

PDFの画質を変えたい

既定の xlQualityStandard で問題が出ることはまずありませんが、ファイルサイズを抑えたい場合は xlQualityMinimum を指定できます。

ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:="C:PDF軽量版.pdf", _
    Quality:=xlQualityMinimum

xlQualityMinimum だと画像が圧縮され、ファイルサイズが概ね半分程度になります。メール添付向けの軽量PDFを作りたい場合に便利です。

ExportAsFixedFormatと他の保存方法の使い分け

ExcelからPDFを生成する方法は ExportAsFixedFormat だけではありません。用途別の使い分けを整理しておきます。

VBAでPDF出力するなら、ExportAsFixedFormat が標準解と覚えておけば十分です。PrintOut はネットワークプリンタ経由の物理印刷が必要なケースだけで使います。

まとめ

VBAの ExportAsFixedFormat メソッドを使うと、ExcelシートのPDF出力作業を完全に自動化できます。

• 基本構文: 対象.ExportAsFixedFormat Type:=xlTypePDF, Filename:="パス"
• 日付付きファイル名: Format(Date, "yyyymmdd") でファイル名に日付を組み込む
• 保存先フォルダ自動作成: Dir + MkDir で年月別フォルダを動的に生成する
• 複数シート一括処理: For Each で個別PDF、Sheets(Array(...)).Select で結合PDF
• 印刷範囲指定: PageSetup.PrintArea + IgnorePrintAreas:=False で範囲制御
• エラー対処: フォルダ不在・同名ファイル開きっぱなし・PrintArea残留が頻出原因

請求書を10社分・月次報告書を5部門分PDF化する作業は、初回1時間の自動化投資で年間60時間以上が浮きます。本記事の請求書テンプレートをそのままコピペして、自社の取引先一覧に合わせて調整するところから始めてください。

VBAの基本構文を学び直したい方は、テーマ別にこちらの記事をご覧ください。

• 変数宣言の使い方はExcel VBAの変数の使い方
• 繰り返し処理の基本はExcel VBAでFor文を使う方法
• コレクション処理はExcel VBAでFor Each Nextを使う方法
• 最終行取得はExcel VBAでLastRowを取得する方法

エラーハンドリングを本格的に整備したい方はVBAのエラーハンドリング完全ガイドが役立ちます。VBA全体を体系的に学びたい方は、入門ハブ記事のExcel VBAでマクロ自動化を始めるための完全ガイドも参考にしてください。