【ExcelVBA入門】Saveメソッドでファイルを上書き保存する方法とは

こんにちは、フリーランスエンジニア兼ライターのワキザカ サンシロウです。

皆さんは、VBAでファイルを上書きする方法を知っていますか?

Excelは大量のデータを扱うため、上書き保存はよく使いますよね。

そこで今回は、

・ファイルを上書き保存するためのSaveメソッドの使い方

といった基礎的なことから、

・保存時にエラーが出たときの対処方法

・SaveAsを使って名前を付けて保存する方法

といった応用的な方法まで、徹底的に解説します!

Saveメソッドの使い方とは

まず、上書き保存するためのSaveメソッドの使い方について簡単に説明します。

以下のように書くことで、簡単にファイルを上書き保存することができます。

ワークブック.Save

例えば、表示しているExcelをそのまま保存する場合は、以下のようになります。

ActiveWorkbook.Save

このように、Saveメソッドを使えば簡単にファイルを上書き保存することができます。

サンプルコード

1ファイルのみであれば先ほどの方法で良いのですが、複数のExcelからデータを取得、加工するケースはよくありますよね。

そのため、ワークブックを指定して保存する方法をサンプルコードで用意しました。

事前に同じフォルダに「Book1.xlsm」「Book2.xlsm」を用意し、「Book1.xlsm」に以下サンプルコードを書いています。

サンプルコード:

Sub Test()
  Dim wbBook1 As Workbook
  Dim wbBook2 As Workbook
  
  'Book1を変数に格納
  Set wbBook1 = ThisWorkbook
  
  'Book2を開いて変数に格納
  Workbooks.Open ThisWorkbook.Path & "\" & "Book2.xlsm"
  Set wbBook2 = ActiveWorkbook
  
  'サンプルとしてセルに文字列を書き込む
  wbBook1.Worksheets("Sheet1").Range("A1").Value = "Book1のファイルを保存"
  wbBook2.Worksheets("Sheet1").Range("A1").Value = "Book2のファイルを保存"
  
  'ブックを保存
  wbBook2.Save
  wbBook1.Save
  
  'ブックを閉じる
  wbBook2.Close
  wbBook1.Close
End Sub

サンプルではA1セルに文字列を書き込んだ後、ファイルを保存して閉じる処理を書いています。

このように、Saveメソッドを使うと簡単に上書き保存することができます。

上書き保存で警告メッセージが発生するケース

先ほどの説明で上書き保存はできるのですが、稀に警告メッセージがでる場合があります。

Excelを新しく作ると「Book1.xlsx」のような名前で新規作成されますが、「Book1.xlsx」を上書き保存したとき既に「Book1.xlsx」があった場合などに表示されます。

以下のように「Application.DisplayAlerts」で処理を囲むことで、メッセージを無視して上書き保存することができます。

Application.DisplayAlerts = False

'メインの処理

Application.DisplayAlerts = True

強制的に上書き保存したい場合はこちらの方法でOKです。

ただ、ファイルが既にあった場合は上書き保存したくないケースもありますよね?

その場合は、ファイルの存在チェックを事前に入れるのがおすすめです。

ファイルの存在チェックは、Dir関数で簡単にすることができます。

Dir関数については以下記事で詳しく解説しているので、エラーチェックを入れたい方はぜひ見てみてくださいね!

VBAでファイル名を取得するには?3+1のパターンで速攻理解!
更新日 : 2019年4月25日

補足:SaveAsを使って名前を付けて保存する方法とは

上書き保存以外にも、名前を付けて保存したいときもありますよね。

SaveAsメソッドを使えば簡単に上書き保存することができます。

以下で詳しく解説しているので、気になる方は見てみてくださいね!

まとめ

今回は、VBAでファイルを上書き保存する方法について解説しました。

VBAはExcelデータを扱うため、ファイルを保存するケースが多いです。

Saveメソッドは使い方も簡単なので、ぜひ使ってみてくださいね!

LINEで送る
Pocket

無料でSEからWebエンジニアへ転職しませんか?



侍エンジニア塾では、完全未経験の方から現在SEだけどプログラミングはやっていないという経験者まで、幅広い方々の人生を好転させるプログラミング指導を行ってきました。SEの方とお話していくなかで、

  • システムエンジニアという職業だけどコードが書けない
  • 事務作業が多くスキルがないため将来が不安
  • スクールに通うと完全未経験者と同じスタートになるからレベルが合わない
という、すでに知識があるSEならではのお悩みがあることに気づきました。そんな方におすすめなのが、弊社の「転職コース 」です。

弊社では、マンツーマンでレッスンを行いますので、現在お持ちの知識レベルからカリキュラムを作成いたします。さらにこちらの転職コースは無料で受講を始められて転職成功でそのまま卒業できるというとてもお得なコースとなっています。

既に知識のあるSEといっても転職は年齢が若いほど受かりやすいため、まずは無料体験レッスンで今の現状や理想の働き方について一緒に考えていきましょう。

まずは無料体験レッスンを予約する

書いた人

Sanshiro Wakizaka

Sanshiro Wakizaka

新卒入社したメーカー系のIT企業で、システムエンジニアとして約5年勤務。
Webアプリ、業務アプリ開発において、要件定義、設計、インフラ、製造、テスト、運用保守など、様々な経験あり。
また、侍ブログ編集部として、これまでに200記事以上の記事を執筆。
現在はフリーランスエンジニア兼テックライターとして活動中。

おすすめコンテンツ

あなたにぴったりなプログラミング学習プランを無料で診断!

プログラミング学習の効率を劇的に上げる学習メソッドを解説