「また新しい技術を覚えないといけないのか」と身構えてしまう気持ちも分かります。クラウド移行が進む職場でExcel業務を抱えていると、なおさら不安になりますよね。

でも安心してください。Office Scriptsは、プログラミングの知識がなくても「操作の記録」機能で今日から試せます。TypeScriptのコードを一行も書かずに自動化を体験できるのです。

この記事では、Office ScriptsとVBAの違いを比較表で整理します。さらに、コードゼロで始める「操作の記録」の手順を7ステップで解説します。読み終えるころには、自分の仕事にどちらが向いているか判断できるようになりますよ。

Office Scripts（Officeスクリプト）とは？

Office Scriptsは、Microsoftが提供するExcel向けのクラウド対応自動化ツールです。Web版のExcelをはじめ、複数の環境で繰り返し作業を自動化できます。

従来のVBAがExcelデスクトップアプリ内で完結していたのに対し、Office Scriptsはクラウドを前提に設計されています。ここが大きな考え方の違いです。

公式情報によると、Office ScriptsはExcel for the web・Excel for Windows（Version 2210以降）・Excel for Macで動作します。記述言語はTypeScriptです（出典: Microsoft Support「Introduction to Office Scripts in Excel」）。

TypeScriptと聞くと身構えるかもしれません。後ほど紹介する「操作の記録」を使えば、コードを書かずにスクリプトを作れます。まずは肩の力を抜いて読み進めてみてくださいね。

VBAと何が違うのか：一言で言うと「クラウド対応の自動化ツール」

VBAとOffice Scriptsの違いを一言でまとめると、「動く場所」が決定的に異なります。VBAはあなたのパソコンの中で動くツールです。一方、Office Scriptsはクラウド上で動くツールです。

VBAで作ったマクロは、Excelファイル（.xlsm）の中に保存されます。そのファイルを開いたパソコンでしか動きません。手元で完結する分、シンプルで分かりやすい仕組みです。

これに対しOffice Scriptsのスクリプトは、ブックの中ではなくOneDriveやSharePointに保存されます。つまりスクリプトとファイルが切り離されているのです（出典: Microsoft Learn「Differences between Office Scripts and VBA macros」）。

この違いがあるため、Office Scriptsはブラウザだけで動くWeb版Excelでも使えます。逆にVBAはWeb版Excelでは動作しません。「クラウドで共有しながら自動化したい」という今の働き方に、Office Scriptsはぴったり寄り添う設計なのですね。

VBAとマクロそのものの関係をおさらいしたい方は、Excel VBAとマクロの違い｜関係性と活用例を初心者向けに解説もあわせて読むと理解が深まりますよ。

使えるExcelの種類と必要なプラン（Microsoft 365）

ここで重要な注意点があります。Office Scriptsは、誰でも無条件に使えるわけではありません。利用には対応したMicrosoft 365のライセンスが必要です。

公式ドキュメントによると、利用できるのは法人向け・教育向けのプランです。具体的な対象は、Office 365 Business、Business Premium、ProPlus、A3、A5、Enterprise E1、E3、E5、F3などです。あわせてOneDrive for Businessも必須です（出典: Microsoft Learn「Platform limits and requirements with Office Scripts」）。

つまり、会社や学校で配られているMicrosoft 365のアカウントなら使える可能性が高いです。一方、個人で契約しているMicrosoft 365 Personalなどでは事情が異なります。

個人向けプラン（Personal/Family）でのOffice Scripts提供は、2026年5月時点でプレビュー段階です。利用にはMicrosoft 365 Insiderプログラムへの参加が必要とされています（出典: Microsoft Learn「Platform limits and requirements with Office Scripts」）。

ですから個人ライセンスの方は、まだ正式には使えない可能性があります。「自分のExcelでは見当たらない」という場合、ライセンスの種類が原因かもしれません。まずは自分のアカウントが法人・教育向けかどうかを確認してみてくださいね。

VBAとOffice Scriptsの違いを比較

ここからは、VBAとOffice Scriptsの違いをより具体的に見ていきます。「結局どこが違うのか」を一覧で押さえると、判断がぐっとラクになります。

両者は似ているようで、得意分野がはっきり分かれています。どちらが優れているという話ではありません。用途によって向き不向きがあるだけなのです。

まずは項目ごとの違いを表で整理します。そのあとで、どんなケースにどちらが向いているかを掘り下げていきますね。

動作環境・言語・保存場所の違い（比較表）

VBAとOffice Scriptsの主な違いを、表にまとめました。気になる項目から見比べてみてください。

この表から、いくつかの特徴が読み取れます。Office Scriptsはクラウドと共有に強く、VBAは手元のパソコンでの細かい制御に強い、という構図です。

特に注目したいのが「アクセス範囲」の行です。VBAはExcelと同じ権限でパソコン全体を操作できます。ファイルを別の場所にコピーしたり、他のアプリを操作したりも可能です。

一方Office Scriptsは、原則として開いているワークブックの中だけを操作します。デスクトップへのアクセスはできません（出典: Microsoft Learn「Differences between Office Scripts and VBA macros」）。一見すると制限に思えますが、これはクラウドで安全に動かすための設計でもあるのですよ。

VBAが向いているケース／Office Scriptsが向いているケース（判断フローチャート）

「結局、自分はどちらを使えばいいの」という疑問に答えるため、判断の流れを整理しました。下のフローチャートを順番にたどってみてください。

【自動化ツールの選び方フローチャート】

Q1. その自動化は誰がどこで使う？
 ├─ 自分のパソコンだけで完結する
 │    │
 │    Q2. パソコン内の他ファイルや他アプリも操作したい？
 │     ├─ はい → ★VBA を継続・採用
 │     └─ いいえ
 │          │
 │          Q3. Web版Excelやブラウザでも動かしたい？
 │           ├─ はい → ★Office Scripts を検討
 │           └─ いいえ → ★VBA でも Office Scripts でもOK
 │
 └─ チームでクラウド共有しながら使う
      │
      Q4. 決まった時間やメール受信で自動実行したい？
       ├─ はい → ★Office Scripts ＋ Power Automate
       └─ いいえ → ★Office Scripts を検討

このフローの考え方はシンプルです。「手元のパソコンで完結し、他のアプリも操作したい」ならVBAが向いています。長年VBAで業務を回しているなら、無理に乗り換える必要はありません。

逆に「チームで共有したい」「ブラウザでも動かしたい」「定時に自動実行したい」ならOffice Scriptsが向いています。特に決まった時間に自動実行したい場合は、Power Automateとの連携が効果を発揮します。

VBAは「動かすパソコンが決まっている個人作業」に強いツールです。VBAで実際にどんな自動化ができるかは、ExcelのVBAで仕事を自動化する方法｜実務シーン別に解説で具体例を確認できます。あわせて読むと、両者のイメージがくっきりしますよ。

なお、両方とも「コードを書かずに記録だけで作る」入口を持っています。VBA側の入口である「マクロの記録」については、Excelのマクロの記録の使い方｜ボタン操作だけで自動化する方法で詳しく解説しています。Office Scriptsの「操作の記録」と見比べると、考え方の共通点が見えてきますね。

コードゼロで始める「操作の記録」7ステップ

ここからが、この記事のいちばんお伝えしたい部分です。Office Scriptsは「操作の記録（Action Recorder）」を使えば、コードを一行も書かずにスクリプトを作れます。

仕組みはVBAの「マクロの記録」とよく似ています。あなたがExcelで行った操作を裏側で記録し、自動的にTypeScriptのコードに変換してくれるのです（出典: Microsoft Support「Record your actions as Office Scripts」）。

ですから「TypeScriptが書けないと無理」と諦める必要はまったくありません。まずは記録して、再生する。それだけで自動化の第一歩を踏み出せます。

これから7つのステップに分けて、画面の流れに沿って解説していきますね。

「自動化」タブの開き方（Web版Excelでの確認手順）

まずは操作を記録するための「自動化」タブを開きます。これがOffice Scriptsの入口になります。

ブラウザでWeb版Excelを開き、自動化したいブックを表示してください。上部のリボンを見ると、「ホーム」や「挿入」と並んで「自動化」というタブがあります。これをクリックします。

もし「自動化」タブが見当たらない場合は、ライセンスや管理者設定が原因の可能性があります。前章で触れたとおり、法人・教育向けのMicrosoft 365でないと表示されないことがあります。

またWeb版Excelで使うには、ブラウザのサードパーティCookieを有効にしておく必要があります（出典: Microsoft Learn「Platform limits and requirements with Office Scripts」）。タブが出ない場合は、これらの設定も一度見直してみてくださいね。

記録開始→操作→停止→スクリプト確認の流れ

「自動化」タブを開けたら、いよいよ記録を始めます。ここからの4ステップが操作の記録の中心部分です。

まずステップ2として、「自動化」タブの中にある「操作を記録」（記録から作成）をクリックします。すると画面の右側にタスクペインが開きます。ここに、これから行う操作が一覧で記録されていきます。

次にステップ3として、自動化したい操作を普段どおりに実行します。たとえばセルに文字を入力したり、見出しに色を付けたり、表をテーブルに変換したりといった操作です。行った操作はリアルタイムでタスクペインに表示されていきます。

操作が終わったら、ステップ4として「停止」ボタンをクリックします。これで記録は終了です。緊張せず、普段のExcel操作をするだけで大丈夫ですよ。

そしてステップ5として、生成されたスクリプトを確認します。タスクペインには、あなたの操作がTypeScriptのコードに変換されて表示されています。たとえば、こんなイメージのコードが自動で作られます。

function main(workbook: ExcelScript.Workbook) {
  // 選択中のシートを取得
  let sheet = workbook.getActiveWorksheet();
  // A1セルに「売上集計」と入力
  sheet.getRange("A1").setValue("売上集計");
  // A1セルの文字を太字にする
  sheet.getRange("A1").getFormat().getFont().setBold(true);
}

このコードは、自分で書く必要はまったくありません。「ふーん、こういう形になるんだ」と眺めるだけで十分です。内容を理解できなくても、記録さえできていれば問題ありませんよ。

なお、操作の記録には2つのモードがあります。特定のセルアドレスを固定して記録する「絶対モード」と、開始セルからの相対位置で記録する「相対モード」です（出典: Microsoft Support「Record your actions as Office Scripts」）。最初は絶対モードのままで問題ありません。慣れてきたら使い分けてみてください。

保存したスクリプトを再実行する方法

最後の2ステップで、作ったスクリプトを保存して再利用します。ここまで来れば、もう自動化はあなたのものです。

ステップ6として、スクリプトに分かりやすい名前を付けて保存します。デフォルトでは「Script 1」「Script 2」という名前が付いています。タスクペインの「名前の変更」から、「売上集計フォーマット」など内容が分かる名前に変えておきましょう。スクリプトはOneDriveに自動保存されます。

ステップ7として、「実行」ボタンを押して動作を確認します。記録したとおりの操作が、一瞬で再現されれば成功です。手作業なら何分もかかる処理が、ワンクリックで終わるようになります。

一度保存したスクリプトは、以降いつでも「自動化」タブから呼び出して実行できます。毎朝の定型処理や、月末の集計フォーマット整えなど、繰り返す作業に向いています。

ここまでの流れを整理すると、(1)自動化タブを開く、(2)記録を開始、(3)操作する、(4)停止する、(5)スクリプトを確認、(6)名前を付けて保存、(7)実行で確認、という7ステップでした。コードを書かずにここまでできるのは、うれしいポイントですよね。

Office Scriptsを使う前に知っておきたい注意点

便利なOffice Scriptsですが、万能ではありません。VBAでできていたことが、Office Scriptsではできない場合もあります。

事前に「できないこと」を知っておくと、導入してから「あれ、動かない」と戸惑わずに済みます。ここでは主な制限事項と、逆に可能性が広がるポイントを紹介します。

落ち込む必要はありません。制限を理解した上で使えば、Office Scriptsは十分に頼れる相棒になりますよ。

使えない操作・制限事項

まず押さえておきたいのが、Office Scriptsはワークブックの中しか操作できないという点です。VBAのようにパソコン内の他のファイルを開いたり、別アプリを動かしたりはできません（出典: Microsoft Learn「Differences between Office Scripts and VBA macros」）。

次に、イベント駆動に対応していない点も覚えておきましょう。VBAでは「セルが変更されたら自動で動く」といった仕掛けが作れます。一方Office Scriptsは、手動実行かPower Automateフロー経由でしか起動できません（出典: Microsoft Learn「Differences between Office Scripts and VBA macros」）。

データ量にも上限があります。Web版Excelでは、リクエスト・レスポンスは5MB以内です。扱える範囲は500万セル以内とされています（出典: Microsoft Learn「Platform limits and requirements with Office Scripts」）。通常の事務作業なら十分な余裕ですが、巨大なデータを扱う場合は意識しておきましょう。

利用環境にも注意が必要です。TeamsでOffice Scriptsを使う場合、対応するのはブラウザ版のTeamsだけです。Windows・Mac・スマホアプリ版のTeamsでは使えません（出典: Microsoft Learn「Platform limits and requirements with Office Scripts」）。これらは制約ではありますが、知っていれば慌てずに対処できますね。

Power Automateとの連携で広がる可能性

ここまで制限の話が続きましたが、Office Scriptsには大きな武器があります。それがPower Automateとの連携です。これはVBAには真似のできない強みです。

Power Automateと組み合わせると、スクリプトを決まった時間に自動実行できます。たとえば「毎朝9時に売上ファイルを自動で集計する」といった運用が可能になります。メール受信などのイベントをきっかけに動かすこともできます（出典: Microsoft Learn「Differences between Office Scripts and VBA macros」）。

つまり、手元のパソコンを開いていなくてもクラウド上で処理が走るのです。VBAは誰かがファイルを開いてマクロを実行しないと動きませんでした。この差は、定型業務の自動化において非常に大きいです。

ただし連携にもルールがあります。Power Automate経由の実行は、1ユーザーあたり1日1,600回までです。同期操作のタイムアウトは120秒という制限もあります（出典: Microsoft Learn「Platform limits and requirements with Office Scripts」）。また、スクリプト内から外部APIを呼び出す処理は失敗します。最初のうちはこれらの上限に達することはまずないので、まずは気軽に試してみてくださいね。

VBAかOffice Scriptsか：結局どちらを選ぶべきか

ここまで読んで、両者の違いはだいぶ見えてきたのではないでしょうか。最後に「自分はどう動けばいいか」を立場別に整理します。

大切なのは、どちらか一方が絶対の正解ではないという点です。今の働き方とこれからの方向性によって、最適な答えは変わります。

あなたの状況に近いほうを読んで、次の一歩を決める参考にしてくださいね。

今VBAを使っている人向けの整理

すでにVBAで業務を回している方は、慌てて乗り換える必要はありません。デスクトップで完結する自動化なら、VBAは今も現役で通用するツールです。

特に、パソコン内の複数ファイルをまたいだ処理や、他アプリとの連携が必要な業務はVBAの独壇場です。これらはOffice Scriptsには真似できません。今の資産を捨てる必要はないのです。

検討すべきタイミングは、業務がクラウド共有に移行したときです。「ファイルをチームで共同編集するようになった」「Web版Excelで作業する場面が増えた」。こうした変化があれば、その業務だけOffice Scriptsへの移行を検討する価値があります。

つまりVBAとOffice Scriptsは「全面的に乗り換える」ものではありません。業務の性質ごとに使い分ければよいのです。VBAの理解をさらに深めたい方は、Excel VBA学習ロードマップ｜初心者が挫折しない勉強の順番を解説も参考になりますよ。

これから自動化を始める人へのおすすめ

これから自動化を学び始める方には、まず自分の環境を確認することをおすすめします。法人・教育向けのMicrosoft 365を使っているなら、Office Scriptsの「操作の記録」から始めるのが手軽です。

理由は、クラウド前提の今の働き方と相性がよいからです。ブラウザで動き、チームで共有でき、Power Automateで自動実行までできます。これから長く使うことを考えれば、将来性のある選択肢といえます。

一方、個人向けライセンスを使っている場合や、デスクトップ完結の作業が中心の場合はVBAから入るのも良い選択です。VBAは追加ライセンス不要で、すぐに始められます。学習情報も豊富です。VBAでの最初の一歩は、Excel VBAマクロ入門｜初めてのマクロを作る手順とよく使うコード10選が分かりやすいですよ。

迷ったら、まずは手を動かしてみるのがいちばんです。Office Scriptsの「操作の記録」なら、コードを書かずに数分で自動化を体験できます。「自分にもできた」という小さな成功体験が、次へのやる気につながります。

まとめ

ここまで、Office ScriptsとVBAの違いを比較し、「操作の記録」の7ステップを解説してきました。最後に要点を振り返りましょう。

• Office Scriptsはクラウド対応の自動化ツールで、Web版Excelでも動く
• VBAは手元のパソコンで完結し、他アプリ操作にも強い
• 利用には法人・教育向けMicrosoft 365が必要（個人プランは2026年5月時点でプレビュー段階）
• 「操作の記録」を使えばTypeScriptのコードを書かずに自動化できる
• クラウド共有や定時自動実行が必要ならOffice Scripts、デスクトップ完結ならVBAが向いている

新しいツールと聞くと身構えてしまいますが、Office Scriptsは思ったよりずっと手軽です。まずは「自動化」タブを開いて、簡単な操作を記録するところから試してみてください。

VBAとOffice Scriptsは、どちらが正解という関係ではありません。あなたの仕事のスタイルに合わせて、上手に使い分けていきましょう。この記事が、その判断のお役に立てたならうれしいですよ。

この作業は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でマクロ自動化を始めるための完全ガイドも参考にしてください。