VBAファイル保存のやり方まとめ｜フォルダパス・ファイル名の指定方法とエラー回避術

マクロでデータ処理をバッチリ仕上げて、あとは保存するだけ… のはずが、保存先が見つからない！

名前をつけ間違えた！なんか上書きされてる！？

そんな”保存のトラブル”に心あたりがある方、私も何度もやらかしました…

VBAでファイルを保存するには、ファイル名のつけ方やフォルダパスの指定方法をちゃんと押さえておくことが大事。

そして、エラーが出てもあわてず処理できるようにしておけば、心にゆとりも生まれます。

この記事では、初心者の方でも迷わず使えるように、VBAでのファイル保存の基本から応用、よくあるエラー対策までをやさしくまとめてみました。

「保存処理ってなんか難しそう…」と感じていた方も、読み終わる頃には「これならできそう！」と思っていただけるはずです！

保存の基本！SaveとSaveAsの違いとは？
ファイル名・フォルダパスの指定方法をマスターしよう
日付・ユーザー名・番号付き！ファイル名を自由にカスタマイズ
保存先のフォルダがないときの対策
保存時によくあるエラーとその回避テクニック
保存後のフローを整えて、安心の自動化へ
まとめ
1. 「保存」は、マクロの“出口”であり“信頼を築く場所”

保存の基本！SaveとSaveAsの違いとは？

「保存って、Saveボタン押せばいいだけじゃないの？」

と思ったそこのあなた、実はVBAの世界ではSaveとSaveAsの違いをしっかり理解しておかないと、思わぬトラブルにつながることがあるんです…！

というわけで、まずは“保存”の基本をおさらいしましょう！

Saveとは？｜今開いているファイルを「上書き保存」する

ThisWorkbook.Save

この一行で、今開いているファイルにそのまま上書き保存されます。

名前も場所も変わりません。編集内容をそのまま「保存！」って感じですね。

よく使う場面：

特別なファイル名をつける必要がない
編集した内容を既存ファイルにそのまま反映させたいとき

注意ポイント：

元のファイルをうっかり上書きしてしまう可能性あり
「保存前に確認して！」とユーザーに伝えたい場合は別途処理が必要

SaveAsとは？｜新しい名前で保存する

ThisWorkbook.SaveAs "C:\Users\user\Documents\データ.xlsx"

こちらは、ファイル名や保存場所を指定して、新しく保存する方法です。

Excelでいう「名前を付けて保存」と同じイメージですね。

よく使う場面：

元のファイルを残しておきたいとき（バックアップやテンプレート保存）
日付入りやバージョン管理用に別ファイルを作りたいとき
処理後の結果を「保存専用」で残したいとき

注意ポイント：

フォルダやファイル名の指定ミスでエラーが起きることがある
上書きされて困るファイルは事前に名前を分けておくのがおすすめ！

SaveとSaveAsの違いを図でざっくり理解！

機能	動作	ファイル名・保存先の変更	よく使うシーン
Save	現在のファイルに上書き保存	変更なし	既存ファイルの内容をそのまま保存したい
SaveAs	新しい名前・場所でファイルを保存	変更できる	処理結果を別ファイルとして保存したい

初心者さんに向けたアドバイス

とりあえず保存するならSave、
別名で保存したいならSaveAs！

この使い分けを意識するだけで、誤保存やデータの上書き事故をぐっと減らせます。

とくに「テンプレートを元に処理→別名で保存したい」という場合は、必ずSaveAsで新しく保存しておくのが安心です。

ここからは、実際にSaveAsで使えるファイル名や保存先パスの指定方法を、サンプルコードと一緒に解説していきます。

「保存できたけど、どこに行ったの…？」というお悩みもスッキリ解消していきましょう！

ファイル名・フォルダパスの指定方法をマスターしよう

VBAでファイルを保存しようとしたとき、こんな経験ありませんか？

ファイルは保存できたけど、どこに保存されたかわからない…
保存先のフォルダを変えたいけど、どう書けばいいの？
ファイル名をコード内で指定できるって本当…？

この章では、そんな疑問をスッキリ解決すべく、VBAにおけるファイルパスとファイル名の指定方法について、基本からやさしく解説していきます！

「フルパス」ってどういう意味？

まずおさえておきたいのが、VBAでファイルを保存するには「フルパス」で指定するということ。

フルパスとは、「フォルダの場所」＋「ファイル名」のことです。

例：

C:\Users\taro\Documents\売上レポート.xlsx

C:\Users\taro\Documents\ → フォルダパス
売上レポート.xlsx → ファイル名

合わせて「フルパス」になります！

フォルダパスを変数で指定してみよう！

保存先を固定にせず、変数にしておくと柔軟性アップ＆使いまわしが楽になります。

Dim folderPath As String
folderPath = "C:\Users\taro\Documents\" '←最後の\を忘れずに！

ファイル名も変数で指定してみよう！

Dim fileName As String
fileName = "売上レポート.xlsx"

パスとファイル名を合体させて保存！

ThisWorkbook.SaveAs Filename:=folderPath & fileName

& で文字列をつなぐことで、保存先＋ファイル名を1本のフルパスにできます。

現在のブックと同じフォルダに保存したいときは？

ThisWorkbook.Path を使えば、今開いているブックの保存先パスを取得できます！

Dim filePath As String
filePath = ThisWorkbook.Path & "\処理済み_" & Format(Date, "yyyymmdd") & ".xlsx"
ThisWorkbook.SaveAs Filename:=filePath

このようにすれば「今のファイルの隣に、今日の日付つきのファイル名で保存」できます。

パスの取り扱いでつまずきがちなポイント

ミス例	よくある原因	対策ポイント
“C:\Users\taro\Documents” ← 最後に \ がない	パスとファイル名が正しく連結されず、エラーに	\ をつける or PathSeparator で対応
“\server\share\folder”	ネットワーク上のパスでアクセス権が必要な場合あり	実行環境でアクセス可能か要確認
FileName = “レポート”	拡張子 .xlsx がついていない	ファイルの種類に応じて .xlsm .csv など追加！

ここまで理解できたら、「動的にファイル名を作って保存」にチャレンジしてみましょう！

日付や名前を組み合わせれば、「処理済み20240701経理部」みたいなファイル名も簡単につけられますよ。

日付・ユーザー名・番号付き！ファイル名を自由にカスタマイズ

ファイル名を毎回手入力してると、

「あれ、このファイル保存したの、昨日？一昨日？」

「ver2？ver3？どれが最新かわからん…」

…なんてこと、ありませんか？

VBAでは、日付や担当者名などを自動で組み込んだファイル名を作ることができます！

この章では、業務でありがちなパターン別に、便利でスマートなファイル名の作り方を紹介していきます

① 日付を追加して、保存時期がすぐわかるファイル名に！

例：「売上データ_20250701.xlsx」みたいな形式

Dim fileName As String
fileName = "売上データ_" & Format(Date, "yyyymmdd") & ".xlsx"

Format(Date, “yyyymmdd”) は今日の日付を「20250701」形式で出す関数です。日付の形式は “yyyy-mm-dd” や “yyyy年m月d日” にも変更できます！

② 担当者名や部署名を入れて、誰のデータかわかるように！

Dim userName As String
userName = "Tanaka"

Dim fileName As String
fileName = "見積データ_" & userName & "_" & Format(Date, "yyyymmdd") & ".xlsx"

結果：見積データ_Tanaka_20250701.xlsx こんな感じで、誰が処理したデータかがひと目でわかる名前にできます！

③ 番号（連番）をつけて、バージョン管理もしやすく！

ファイルを繰り返し出力する場面では、連番をつけておくと安心です。

Dim versionNum As Integer
versionNum = 3 ' ←この値をVBA内でカウントアップしていくことも可能！

Dim fileName As String
fileName = "報告書_ver" & versionNum & ".xlsx"

応用すれば、「同じ日に何パターンも出力する必要がある場合」にも対応できます！

パターンを組み合わせて最強ファイル名に！

Dim fileName As String
fileName = "請求書_" & "営業部_" & "Yamada_" & Format(Date, "yyyy-mm-dd") & "_ver2.xlsx"

結果：請求書_営業部_Yamada_2025-07-01_ver2.xlsx

このように、部門・担当者・日付・バージョンなど、業務に合ったパーツを組み合わせて、ファイル名を「意味のある管理しやすい形」にできます。

ファイル名につけてはいけない文字に注意！

Windowsでは、以下の記号をファイル名に使えません

\/ : * ? ” < > |

もし不意につけてしまうと、保存時にエラーになってしまうので注意してくださいね。

' NG例（コロンが入ってる）
fileName = "報告書_07:00提出.xlsx" ' ← コロンでエラー！

' OK例（コロンを全角または削除）
fileName = "報告書_0700提出.xlsx"

ファイル名を変数にしておくと再利用もしやすい！

作ったファイル名は、他の処理（保存、ログ出力、メール添付など）にも使えるので、

ThisWorkbook.SaveAs "C:\保存先\" & fileName

という風に、変数として扱えるようにしておくと便利です。

せっかくファイル名がいい感じにできたのに、「保存先のフォルダがない…」なんて落とし穴も。

次の章では、保存先の存在確認や、自動でフォルダを作るテクニックをご紹介します！

保存先のフォルダがないときの対策

せっかくファイル名を自動生成できても、保存しようとしたフォルダが存在しないと一発アウトです。

よくあるエラー「パスが見つかりません（エラー53）」は、まさにこのケース。

でも大丈夫。VBAには「フォルダがあるか確認して、なければ作る」という処理を簡単に書く方法があります。

この章では、保存先フォルダの存在チェックと自動作成のテクニックをご紹介します！

そもそも、存在しないフォルダに保存するとどうなる？

ThisWorkbook.SaveAs "C:\未作成フォルダ\結果ファイル.xlsx"

このコードを実行すると、C:\未作成フォルダ\ が存在しない場合は…

実行時エラー ’76’：パスが見つかりません。

という怒られ方をします。なんともシンプルかつ冷たいメッセージ。

フォルダの存在確認には Dir 関数が便利！

If Dir("C:\未作成フォルダ", vbDirectory) = "" Then
    MsgBox "フォルダが見つかりませんでした"
End If

このように書くと、指定したパスが存在しているかどうかを調べることができます。

vbDirectory を指定することで、「フォルダかどうか」までチェックできます！

フォルダがなければ自動で作っちゃおう！MkDir の出番

Dim folderPath As String
folderPath = "C:\未作成フォルダ"

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

このコードで、

フォルダがなければ作る
あればスルーして次の処理へ

というスマートな流れが完成します。

実際の保存処理と組み合わせるとこんな感じ！

Dim folderPath As String
Dim fileName As String

folderPath = "C:\保存先フォルダ"
fileName = "売上_" & Format(Date, "yyyymmdd") & ".xlsx"

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

ThisWorkbook.SaveAs folderPath & "\" & fileName

これで、保存先がなくてエラー…という事態を未然に防げます！

業務マクロで「人に渡すファイル」を扱うときは、この処理を入れておくと安心感がグッと上がりますよ。

応用ヒント：複数階層のフォルダ作成は Scripting.FileSystemObject が必要

MkDir は1階層ずつしか作れないため、

C:\保存先\2025\07\01

のような多階層フォルダを一気に作るには、 FileSystemObject を使う方法もあります。

次章では、ファイルが開かれている／同じ名前で上書きしたくない／拡張子の落とし穴などのエラー事例と、その回避方法をわかりやすく解説していきますよ。

保存時によくあるエラーとその回避テクニック

保存処理はうまくいけば一瞬ですが、実は“落とし穴”がたくさん潜んでいる危険地帯でもあります。

この章では、実際によく起こるエラーのパターンと、それをスマートに回避するためのテクニックをご紹介します！

① ファイルがすでに開かれていて保存できない

状況：同じファイルを他の人が開いている、または自分が開きっぱなしで保存しようとすると…

ThisWorkbook.SaveAs "C:\共有フォルダ\レポート.xlsx"

エラー：ファイルを開けません／アクセスできません

回避法：

事前にそのファイルが開かれていないか確認する
Dir()を使って存在だけチェックし、開く処理を省略する
上書きするかどうかを確認してから保存する処理を入れておくと安心！

② 上書き保存してしまった！（戻せない…）

SaveAsでは同じ名前で保存すると、確認なしで上書きされることがあります。

対策：上書き確認のMsgBoxを入れる！

Dim filePath As String
filePath = "C:\データ\月次報告.xlsx"

If Dir(filePath) <> "" Then
    If MsgBox("すでにファイルが存在します。上書きしますか？", vbYesNo) = vbNo Then
        Exit Sub
    End If
End If

ThisWorkbook.SaveAs filePath

ワンクッション置くだけで、うっかり事故を防げます！

③ 拡張子が違って保存できない／マクロが消えた！

VBA付きのブックを .xlsx で保存すると、マクロが削除されてしまいます！

' NG：マクロ付きブックをxlsx形式で保存
ThisWorkbook.SaveAs "C:\保存\マクロ付き.xlsx", xlWorkbookDefault

対策：保存形式を正しく指定する

ThisWorkbook.SaveAs "C:\保存\マクロ付き.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled

.xlsm ＝マクロ有効形式
.xlsx ＝マクロなし（マクロは削除される）

④ パスの指定ミス／不正な文字でエラー

ThisWorkbook.SaveAs "C:\レポート:月次.xlsx" ' ← コロン（:）でアウト！

Windowsでは、以下の文字をファイル名に使えません：

\/:*?”<>|

対策：ファイル名を自動生成する際は、記号を除外 or 置換すること！

Dim safeName As String
safeName = Replace("レポート:月次", ":", "＿") ' ← 全角記号などに変換

おまけ：エラー処理を加えて「転ばぬ先のコード」に！

保存処理では On Error GoTo を使ってエラーに備えておくのもおすすめです

On Error GoTo SaveError

ThisWorkbook.SaveAs filePath
MsgBox "保存が完了しました！"
Exit Sub

SaveError:
MsgBox "保存に失敗しました：" & Err.Description

エラーが起きても、ユーザーに丁寧に伝えることで“よくわからないクラッシュ”を防げます。

ファイルをうまく保存できたら、そのあとどうするかも重要なポイントです。

次章では、保存完了後の確認メッセージ、ログ出力、ブックの終了処理など、実務で喜ばれる“小さな気配り”を紹介していきます。

保存後のフローを整えて、安心の自動化へ

ファイルを無事に保存できたら「やったー！」と一息つきたいところですが、実はそのあとどうするか？まで考えておくと、マクロの完成度が一気に上がります。

この章では、「保存したよ！」という安心感や、次の作業にスムーズにつなげるための保存後フローの整え方をご紹介します。

① 保存完了メッセージを表示してユーザーに安心感を

ファイルを保存したことが明示的にわかるようにすると、実行者の不安がグッと減ります。

MsgBox "ファイルを保存しました！", vbInformation, "保存完了"

ちょっとしたメッセージでも「ちゃんと保存されたんだな」と実感できて安心ですね。

② ログ出力で履歴を残す（実務でも好印象！）

処理内容や保存日時を記録しておくと、「あとから何があったか振り返る」ことができます。

簡易ログは別のシート or テキストファイルに書き出すのがおすすめ。

Dim logRow As Long
logRow = Worksheets("ログ").Cells(Rows.Count, 1).End(xlUp).Row + 1

Worksheets("ログ").Cells(logRow, 1).Value = Now
Worksheets("ログ").Cells(logRow, 2).Value = "ファイルを保存しました"

簡単な2列ログでも、業務で使いやすい安心マクロ感がぐっと上がります！

③ 保存後にブックを閉じる？それともそのまま？

処理の流れによって「保存したらすぐ終了したい」「そのまま開いておきたい」など、要件が分かれます。

閉じたい場合：

ThisWorkbook.Close SaveChanges:=False

SaveChanges:=False にすることで、「もう保存済みですよ」と伝えてくれます。

開いたままにする場合：

何も書かずにそのままでOK！
次の編集を続けたいときはこのパターンが便利です。

④ 保存ファイルを添付してメール送信も（応用編）

ちょっとステップアップすると、保存したファイルを自動でメール添付して送る処理も可能になります！

' Outlookを使った例（事前にOutlookを開いておく）
Dim outlookApp As Object
Set outlookApp = CreateObject("Outlook.Application")

Dim mailItem As Object
Set mailItem = outlookApp.CreateItem(0)
With mailItem
    .To = "taro@example.com"
    .Subject = "レポート保存完了"
    .Body = "ファイルを添付しました。ご確認ください。"
    .Attachments.Add "C:\保存先\レポート.xlsx"
    .Send
End With

応用的ではありますが、「ファイル作って送るとこまで全部自動！」という感動を味わえます！