こんにちは。Excel VBAの現場で20年以上、数多くの自動化プロジェクトを支援してきた講師の佐藤です。
日々の業務で「ファイル名を付けて保存」という操作を行う際、毎回ダイアログボックスが表示され、目的のフォルダまで何度もクリックして移動していませんか？「保存先はいつも決まっているのに、なぜ毎回フォルダを掘らなければならないのか」とストレスを感じている方も多いはずです。
今回は、VBAを使って「保存先フォルダを動的に指定し、かつユーザーに分かりやすい形でファイル保存を行う」ためのプロフェッショナルなテクニックを解説します。
なぜ「GetSaveAsFilename」だけでは不十分なのか？
VBAで保存ダイアログを出す際、多くの方が最初にたどり着くのが `Application.GetSaveAsFilename` メソッドです。しかし、このメソッドには大きな弱点があります。それは、「初期フォルダを指定する際に、現在のカレントディレクトリを `ChDir` などで変更しなければならない」という点です。
`ChDir` を使用すると、意図せずExcel全体が参照するカレントパスが変わってしまい、他のマクロやファイル読み込み処理に悪影響を及ぼすリスクがあります。また、`GetSaveAsFilename` は「保存の実行」までを自動で行うわけではなく、あくまで「パスを取得する」だけです。
そこで、よりモダンで柔軟な `FileDialog` オブジェクトを活用する方法を推奨します。
FileDialogオブジェクトを使った保存処理の基本
`FileDialog` オブジェクト（`msoFileDialogSaveAs`）を使用すると、OS標準の保存ダイアログを呼び出しつつ、初期フォルダを安全かつ正確に指定できます。
以下のコードをご覧ください。
Sub SaveAsWithSpecificFolder()
Dim fd As FileDialog
Dim targetPath As String
‘ 保存先の親フォルダを指定
targetPath = “C:\Users\YourName\Documents\Reports\”
‘ FileDialogオブジェクトの生成
Set fd = Application.FileDialog(msoFileDialogSaveAs)
With fd
.InitialFileName = targetPath & “売上報告書_” & Format(Date, “yyyymmdd”) & “.xlsx”
.Title = “保存先を選択してください”
‘ ダイアログを表示
If .Show = -1 Then
‘ 保存を実行
.Execute
MsgBox “保存が完了しました。”
Else
MsgBox “キャンセルされました。”
End If
End With
End Sub
このコードのポイント：なぜこれが「プロ仕様」なのか
上記のコードには、ベテランならではのこだわりが3点あります。
1. **初期ファイル名の動的生成**
`InitialFileName` プロパティにパスだけでなくファイル名まで含めることで、ユーザーがダイアログを開いた瞬間に、保存名が既に入力された状態を作れます。これにより、誤字や命名規則の逸脱を防げます。
2. **`.Execute` メソッドの活用**
`GetSaveAsFilename` と異なり、`FileDialog` の `.Execute` を使うことで、Excelの標準的な保存プロセスをそのまま実行できます。これにより、上書き確認やファイル形式のチェックなどの標準機能をそのまま享受できます。
3. **カレントディレクトリを汚さない**
`ChDir` を一切使用していません。VBAのコードが他の処理と干渉しにくいため、大規模なシステムの一部として組み込んでも非常に安定して動作します。
フォルダが存在しない場合の「予防策」を実装する
実務では、指定したフォルダが何らかの理由で削除されていたり、ネットワークドライブが切断されていたりすることがあります。プロのコードには「エラーハンドリング」が不可欠です。
フォルダの存在を確認し、なければ自動で作成する処理を加えましょう。
Sub SaveAsWithFolderCheck()
Dim folderPath As String
folderPath = “C:\Reports\” & Format(Date, “yyyy”) & “\”
‘ フォルダの存在確認と作成
If Dir(folderPath, vbDirectory) = “” Then
On Error Resume Next
MkDir folderPath
If Err.Number <> 0 Then
MsgBox “フォルダを作成できませんでした。パスを確認してください。”
Exit Sub
End If
On Error GoTo 0
End If
‘ (以下、先ほどのFileDialog処理へ続く)
End Sub
このように、`Dir` 関数でフォルダの存在をチェックし、`MkDir` で作成するロジックを挟むだけで、ユーザーからの「エラーが出ました」という問い合わせを劇的に減らすことができます。
ユーザー体験（UX）を向上させるためのヒント
最後に、さらに一歩進んだアドバイスです。
保存先フォルダをハードコーディング（コードに直接記述）するのではなく、別の設定シートを作成し、そこに保存先パスを記述しておく運用をお勧めします。
* **設定シートを作成する**: 「A1セルに保存先パス」と決めておき、`Sheets(“Config”).Range(“A1”).Value` でパスを取得します。
* **環境依存を排除する**: ユーザーごとにPCの環境（ユーザー名など）が異なる場合、`Environ(“USERPROFILE”)` を活用してパスを生成しましょう。
例：`folderPath = Environ(“USERPROFILE”) & “\Desktop\Reports\”`
これにより、PCを買い替えた際や、他部署のメンバーがこのツールを使う際にも、コードを一切書き換えることなくそのまま利用可能になります。
まとめ：VBAで「選ばれるツール」を作るために
「保存先フォルダを変更する」という単純な作業一つとっても、`FileDialog` を使い、エラーハンドリングを行い、設定を外部化することで、ツールとしての信頼性は飛躍的に向上します。
VBAは単なる自動化ツールではありません。誰が使っても同じ結果を出し、かつストレスを感じさせない「業務システム」へと昇華させることが、私たちエンジニアの役割です。
ぜひ、今回のコードを自身の業務ツールに組み込んでみてください。ダイアログが開いた瞬間の「使いやすさ」に、周囲のメンバーもきっと驚くはずです。
それでは、また次回の記事でお会いしましょう。ハッピーコーディング！
