ExcelマクロVBA再入門 | 第19回.ブックを開く・閉じる・保存する(Workbooks,Open,Close,Save,SaveAs) | マクロが覚えられないという初心者向けに理屈抜きのやさしい解説



最終更新日:2016-03-29

第19回.ブックを開く・閉じる・保存する(Workbooks,Open,Close,Save,SaveAs)


ExcelマクロVBAで最も便利に感じるのが、

他のブックからデータを取得したり、他のブックのデータを変更したりする場合でしょう、

関数では出来ない完全自動化のシステムが作成できます。


ブック(Excelファイル)を扱う上で一番の問題は、
そのファイルがどこにあるか、つまりどこのフォルダに入っているかを特定しなければならない点です。

PCのフォルダはPCごとに違うため、どのPCでも動くマクロVBAを作るためには、ファイルの入っているフォルダを決めなければなりません。
しかし、固定の、例えば
C:\Excel専用\test\sanple.xls
※このように、ルートディレクトリ(Cドライブ当)からの全てのフォルダの道順を記したものを、フルパスと言います。
このように決め打ちした名前では、なにかと不便な事が多いです。
そこで、
マクロVBAの書かれている、つまりマクロ自身のファイルが入っているフォルダを取得し、
そのフォルダからの位置関係で全てのフォルダを指定するようにします。

ThisWorkbook.Path

これが、マクロVBAの書かれているファイルが入っているフォルダになります。



実際に書いて実行してみて下さい。
以下では、このThisWorkbook.Pathを使ったVBAサンプルコードにしています。


■ブックを開く

ブックを開くには、

Workbooks.Open "フルパス"

文法的にはこれだけです。
そこで、上に書いたように、マクロ自身のいるパスを使って、以下のように書きます。

Workbooks.Open ThisWorkbook.Path & "\test.xlsx"

マクロ自身のブックと同じフォルダにある、test.xlsxを開きます。
ThisWorkbook.Pathとファイル名の間に"\"を忘れないようにして下さい。

開いた後、そのブックのシート・セルを扱うには、ブック名が必要になります。
test.xlsxの先頭シートのA1セルに"テスト"と入れる場合、

Workbooks("test.xlsx").Worksheets(1).Range("A1") = "テスト"

このようになりますが、"test.xlsx"という名前を複数個所に書くのは効率が悪いので、
以下のように、Setで変数に入れるか、Withで受けるようにします。





このように、
Setで変数に入れたりWithで受ける場合は、引数となるファイルのパス部分は()の中に書くようになります。
これは、VBAの文法としての決まりですので、そのように書くものだと理解してください。

上記はどちらでも同じですが、
複雑な(さらに多くのブックを扱う等の)マクロVBAの場合は、一旦Setで変数に入れた方が良いでしょう。


■ブックを閉じる

開かれているブックを閉じるには、

Workbooks("ブック名").Close

これでブックは閉じられるのですが、ブックに何らかの変更が発生しているときは、



このようなメッセージが出ます。
マクロVBAで自動化するには、保存するか保存しないかをはっきりさせる必要があります。

・変更があれば保存して閉じる場合
Workbooks("ブック名").Close savechanges:=True

・変更があっても保存しないで閉じる場合
Workbooks("ブック名").Close savechanges:=False

ここまで、
Workbooks("ブック名")
と書いてきましたが、通常はブックを開いたときに、
Setで変数に入れるか、Withで受けるているはずなので、VBAコードは以下のようになります。





上記のどちらでも書けるように、実際に書いて練習しましょう。


■上書き保存

開かれているブックを上書き保存するには、

Workbooks("ブック名").Save

これでブックは上書き保存されます。

しかし、ブックは開かれたままですので、普通は閉じることになります。
ブックを閉じるのは前述のとおりですので、
Workbooks("ブック名").Close savechanges:=True
これが使えれば、この上書き保存のSaveを使う事は少ないはずです。
ただし、念のための意味も含めて、



このように書くことも結構ありますし、これはこれで良いと思います。


■名前を付けて保存

新規作成したブックを名前を付けて保存、または、開いたブックを別ファイルとして保存するには、

Workbooks("ブック名").SaveAs フルパス

このように書きます。
保存するブックが、どのように開かれたか、どのように作成されたかによって、
いくつかのパターンがあります。

・追加した新規ブックを保存する時



・シートを新規ブックとしてコピーし保存する時



・開いたブックを別ファイルで保存する時



■保存形式(ファイルの種類)について

エクセルでは、色々なファイル形式で保存できます。

名前を付けて保存する時に選べるファイルの種類


マクロVBAで特に何も指定しなければ、標準のファイル形式になります。
他のファイル形式にしたい場合は、マクロの記録をしてみましょう。
ただし、マクロが保存できないファイル形式の場合は、
通常のエクセルを選択してマクロの記録を開始してから、対象のブックに移動して保存操作をしてください。





同じテーマ「ExcelマクロVBA再入門」の記事

第18回.シートをコピー・挿入・削除する(Worksheets,Copy,Add,Delete)
第20回.全てのシートに同じ事をする(For〜Worksheets.Count)
第21回.ファイル一覧を取得する(Do〜LoopとDir関数)
第22回.複数ブックよりデータを集める
第23回.複数のプロシージャーを連続で動かす(Callステートメント)
第24回.マクロの呪文を追加してボタンに登録(ScreenUpdating)
第25回.月別ブックより部署別シートに担当別に集計するNo1

新着記事 ・・・新着記事一覧を見る

スプレッドシートが非常に遅い、高速化するには|Google Apps Script入門(1月17日)
画像のトリミング(PictureFormat,Crop)|ExcelマクロVBAサンプル集(12月27日)
シート保護|Google Apps Script入門(12月24日)
表示の固定|Google Apps Script入門(12月24日)
グラフ|Google Apps Script入門(12月21日)
入力規則|Google Apps Script入門(12月13日)
並べ替え|Google Apps Script入門(12月12日)
メモの挿入・削除と改行文字|Google Apps Script入門(12月6日)
リンクの挿入・編集・削除|Google Apps Script入門(12月6日)
セルに数式を入れる|Google Apps Script入門(12月1日)

アクセスランキング ・・・ ランキング一覧を見る

1.RangeとCellsの使い方|ExcelマクロVBA入門
2.最終行の取得(End,Rows.Count)|ExcelマクロVBA入門
3.徹底解説(VLOOKUP,MATCH,INDEX,OFFSET)|エクセル関数超技
4.Range以外の指定方法(Cells,Rows,Columns)|ExcelマクロVBA入門
5.セルの参照範囲を可変にする(OFFSET,COUNTA,MATCH)|エクセル関数超技
6.セルのコピー&値の貼り付け(PasteSpecial)|ExcelマクロVBA入門
7.ひらがな⇔カタカナの変換|エクセル基本操作
8.CSVの読み込み方法|ExcelマクロVBAサンプル集
9.変数とデータ型(Dim)|ExcelマクロVBA入門
10.VBAのFindメソッドの使い方には注意が必要です|ExcelマクロVBA技術解説



  • >
  • >
  • >
  • ブックを開く・閉じる・保存する(Workbooks,Open,Close,Save,SaveAs)

  • このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。


    記述には細心の注意をしたつもりですが、
    間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
    なお、掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。

    ↑ PAGE TOP