VBA再入門
ブックを開く・閉じる・保存する（Workbooks,Open,Close,Save,SaveAs）

ブック（Excelファイル）を扱う上で一番の問題は、
そのファイルがどこにあるか、つまりどこのフォルダに入っているかを特定しなければならない点です。
PCのフォルダはPCごとに違うため、どのPCでも動くマクロVBAを作るためには、
ファイルの入っているフォルダを決めなければなりません。
しかし、固定の指定、例えば
C:\Excel専用\test\sample.xls
※ルートディレクトリ(Cドライブ等)からの全てのフォルダの道順を記したものを、フルパスと言います。
このように決め打ちした名前では何かと不便な事が多くなります。
（違うPCでフォルダ構成が違うとマクロVBAが動かなくなってしまいます。）
そこで、
マクロ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で特に何も指定しなければ標準のファイル形式になります。
ただし、拡張子を指定する必要があます。
マクロ無しなら.xlsx、マクロ有りなら.xlsm
拡張子が違うと正しく保存できませんので結構難しい部分もあります。
他のファイル形式にしたい場合も含めて、マクロの記録をしてみましょう。
ただし、マクロが保存できないファイル形式（CSV等）を開いている状態の場合は、
通常のエクセルを選択してマクロの記録を開始してから、対象のブック（CSV等）に移動して保存操作をしてください。

第14回.文字の結合(&アンパサンド)と継続行(_アンダーバー)
第51回.Withステートメント
第52回.オブジェクト変数とSetステートメント
第53回.Workbookオブジェクト
第63回.ブックを開く（Open）
第64回.ブックを閉じる・保存（Close,Save,SaveAs）

同じテーマの記事
新着記事
アクセスランク