Access VBAで「日報PDF自動保存」をマスターする：脱・手作業の第一歩
こんにちは。Accessという広大な海を渡るあなたの航海術をサポートするアーキテクトです。
「レポートを印刷するたびに、ファイル名を打ち込み、フォルダを作って保存する」。そんな事務作業に時間を奪われていませんか？Access VBAの真の力は、こうした「誰でもできる単純作業」を、一瞬で、かつミスなく完遂することにあります。
今回は、Accessの`DoCmd.OutputTo`コマンドを使い、「フォルダが無ければ作成し、現在の日時をファイル名に自動付与してPDFを保存する」という、現場で最も重宝される自動化ロジックを解説します。
—
1. なぜ「自動化」が重要なのか？（オブジェクトの哲学）
手作業でPDFを保存していると、必ず「ファイル名の揺れ」や「保存先の迷子」が起きます。VBAで制御するということは、「保存先のパス」と「ファイル名の命名規則」というルールをプログラムに定義するということです。
人間は忘れますが、コードは裏切りません。まずは、この「自動化の型」を体に覚えさせましょう。
—
2. 実践コード：PDF自動出力のテンプレート
以下のコードを標準モジュールにコピーしてみてください。これが、AccessからPDFを吐き出す際の「最強のひな形」です。
Option Compare Database
Option Explicit
‘ レポートを日時付きPDFで保存するプロシージャ
Public Sub ExportReportToPDF()
Dim strFolderPath As String
Dim strFileName As String
Dim strFilePath As String
‘ 1. 保存先フォルダのパス（各自の環境に合わせて変更してください）
strFolderPath = CurrentProject.Path & “\Reports\”
‘ 2. フォルダの存在確認（無ければ自動作成する）
If Dir(strFolderPath, vbDirectory) = “” Then
MkDir strFolderPath
End If
‘ 3. ファイル名の定義（現在時刻を付与して重複を防ぐ）
‘ フォーマット: レポート名_20231027_143005.pdf
strFileName = “売上レポート_” & Format(Now(), “yyyymmdd_hhnnss”) & “.pdf”
strFilePath = strFolderPath & strFileName
‘ 4. PDF出力実行
‘ acOutputReport: レポートを指定
‘ “rpt売上”: 出力対象のレポート名
‘ acFormatPDF: PDF形式を指定
DoCmd.OutputTo acOutputReport, “rpt売上”, acFormatPDF, strFilePath
MsgBox “保存完了しました：” & vbCrLf & strFilePath, vbInformation
End Sub
—
3. コードの「急所」を理解する
このコードがなぜ優れているのか、3つのポイントに絞って解説します。
① `CurrentProject.Path` の魔法
`C:\Users\Name\Desktop\…` と直接パスを書くのはNGです。PCが変われば動かなくなるからです。`CurrentProject.Path` を使うことで、「このAccessファイルがある場所」を起点に保存先を相対的に指定できます。これぞ可搬性の高いコードの第一歩です。
② `Dir`関数と`MkDir`による「防御的プログラミング」
「フォルダがないからエラーで止まった」という経験はありませんか？`Dir`でフォルダを探し、なければ`MkDir`で作成する。この「環境を整える」プロセスをコード内に組み込むのが、プロの自動化です。
③ `Format(Now(), “yyyymmdd_hhnnss”)`
ファイル名に時刻を入れる際、`:`（コロン）を使ってはいけません（Windowsのファイル名制限に引っかかります）。そのため、`yyyymmdd_hhnnss`という形式で、数字だけで日時を表現するのが定石です。
—
4. 初学者が陥りやすい「罠」
- ファイルが既に開いている:
PDFリーダーで該当ファイルを開いたまま再出力しようとすると、Accessはエラーを吐きます。「保存する前に同名ファイルがないか確認する」ロジックが必要になることもありますが、まずは今回のように「秒単位までファイル名を変える」ことで衝突を避けるのが最も簡単で確実な回避策です。
- レポート名の間違い:
`DoCmd.OutputTo` の第2引数は、ナビゲーションウィンドウに表示されている正確なレポート名が必要です。全角半角のスペースにも注意してください。
—
さあ、次のステップへ
このコードをボタン一つで実行できるように、フォームにボタンを配置し、クリック時イベントに `Call ExportReportToPDF` と書くだけで、あなたのデスクワークは劇的に変わります。
Access VBAは、最初の一歩が一番高い壁ですが、そこさえ越えれば「自分の手元で動く小さな執事」を何人も雇うようなものです。
まずはこのコードを、あなたの環境で動かしてみてください。分からないことがあれば、またいつでも聞きに来てくださいね。あなたの自動化の旅を、心から応援しています。
