オブジェクトの階層の指定を変数に入れたい

質問

複数のブックを開いている状態で、その中のブックのセルを指定する場合にオブジェクトの階層の指定が長くて大変なので変数に入れたいのですがどうすればいいでしょうか。

例えば
Excel.ThisWorkbook.Worksheets(1).Cell～
を
A.Cell~
と書きたいです。

回答No.1

Mathmi · ベストアンサー

setで、ブックやシートを変数に格納できますが、これでしょうか？

ブックを変数に格納する場合
Dim myWB As Workbook
Set myWB = ThisWorkbook

シートを変数に格納する場合
Dim myWS As Worksheet
Set myWS = ActiveSheet

例の場合だと
Dim myWS As Worksheet
Set myWS = ThisWorkbook.Worksheets(1)
myWS.Cell～

で上手くいくと思います。
(Dim云々は変数の宣言なので、最初に1回だけでいいです。
Option Explicitがなければ、省略も可能です。)

お礼

ありがとうございます。

同じようにやっていたはずなのですがその時は上手く行かず今やってみたらできました。
どこかが違っていたようです。