エクセルVBA超入門講座（第5回）別シート、別ファイル操作方法

これまでの講座でセルの操作方法の基本について解説しました。

今までは同じExcelファイルの、同じシートのセルの操作のみに焦点を絞っていました。

マクロを使うと別のファイルや別のシートへの操作を行うことも可能です。

今日はその方法について解説します。

別シートを操作する方法
別ファイルを操作する方法
まとめ

別シートを操作する方法

別のシートを操作する方法を解説します。

今選択しているシートのA1セルに文字を入れるマクロは次のように記載していました。

現在「Sheet1」シートを選択中で、このときマクロを実行すると、実行結果は次のようになります。

別のシートを操作する場合、次のように記載します。

実行結果は次のようになります。

現在「Sheet1」を選択している場合でも別のシート「Sheet2」の操作が可能になります。

このように、別のシートを操作する場合はシート名を追加してVBAでは次のように記述します。

Sheets(“シート名“).オブジェクト名.プロパティ

上の例に当てはめると、以下の記述になります。

Sheets(“Sheet2“).Range(“A1”).Value = “別シートのセルを操作する”

天馬先生

このように明示的にシート名を記述することで別のシートを操作出来るようになるよ

天馬先生

違うシートを選択中にマクロを実行すると「間違って別のシートのデータを上書きしちゃった」なんて事にもなるので、シート名は記述する癖をつけよう！

たけし

確かに保存してないデータが上書きされたら悲惨ですね(笑)

シート名は記述するように心がけます！

別ファイルを操作する方法

次に別のファイルを操作する方法を解説します。

大きく２つの方法があります。

現在開かれているExcelファイルに対して操作する方法
新たに別のExcelファイルを開いて操作する方法

１つずつ解説していきます。

現在開かれているExcelファイルに対して操作する方法

次のような売上情報のExcelファイルを、マクロファイルとは別で開いているとします。

このとき次のマクロを実行します。

マクロ実行結果は次のようになります。

マクロファイルとは別のExcelファイルを操作出来ました。

このように、別のファイルを操作する場合はファイル名＋シート名を追加してVBAでは次のように記述します。

Workbooks(“ファイル名“).Sheets(“シート名”).オブジェクト名.プロパティ

上の例に当てはめると、以下の記述になります。

Workbooks(“売上情報.xlsx“).Sheets(“売上一覧”).Range(“A2”).Value = “佐藤一郎”

新たに別のExcelファイルを開いて操作する方法

今開いているExcelファイルを操作するよりも、開かれていないファイルを操作する機会の方が多いと思います。

別のファイルを新たに開いて操作する方法を解説します。

天馬先生

少しややこしいけど、順番に丁寧に解説していきますので、ぜひしっかり学んでくださいね。

ファイルを開く

まずは操作対象のExcelファイルを開きます。

VBAでは次のように記載します。

Workbooks.Open “ファイルパス“

具体的な例で見てみましょう。

処理対象のファイル（売上情報.xlsx）がDドライブの下の「売上情報」というフォルダにあったとします。

この場合、VBAで次のように記載します。

Workbooks.Open “D:¥売上情報¥売上情報.xlsx“

D:¥は「Dドライブ」を意味します。

「ファイルのパスの方法が分からない」という方は次のようにフォルダにカーソルをあててみて下さい。

するとフォルダ名が青く反転するので、そのままフォルダ名をキーボードの「Ctrl」＋「C」キーでコピーします。

「D:¥売上情報」がコピーされるので、その後ろにフォルダを意味する「¥」を追加し、その後ろにファイル名「売上情報.xlsx」を追加します。

まとめて書くと

D:¥売上情報¥売上情報.xlsx

となります。

ファイルパスについては別の講座でも詳しく解説します。

処理を記載する

Excelファイルが開けたら、そのファイルに対して行う処理を記載します。

これは現在ファイルを開いている場合と同じです。

例では次の記載をしています。

Workbooks(“売上情報.xlsx”).Sheets(“売上一覧”).Range(“A2”).Value = “佐藤一郎”
Workbooks(“売上情報.xlsx”).Sheets(“売上一覧”).Range(“B2”).Value = “スニーカー”
Workbooks(“売上情報.xlsx”).Sheets(“売上一覧”).Range(“C2”).Value = “6,500”
Workbooks(“売上情報.xlsx”).Sheets(“売上一覧”).Range(“D2”).Value = “2”
Workbooks(“売上情報.xlsx”).Sheets(“売上一覧”).Range(“E2”).Value = “13,000”