マクロで、他のブックのあるシートのセルの値を取得する方法

質問

マクロ初心者です。よろしくお願いします。
２つのブックがあるとします（a.xlsとb.xls）。
この２つには似たようなデータが入っているのですが、これらを逐一比較するマクロを組みたいと思っています。
いま行き詰まっているのは、a.xlsの上でマクロを走らせる際、b.xlsのセルの値を取得することができないことです。
IF CELLS(1,1)=「ブックbの(1,1)の値」 THEN ・・・
というような条件式を作りたいのですが、「　」内をどのように書けばよいのでしょうか。
よろしくお願いします。

回答No.1

kmb01 · ベストアンサー

Workbooks("b.xls").Worksheets("Sheet1").Cells(1,1)
のように書きます。
b.xlsはあらかじめ開いてある必要があります。

長いのでWithステートメントを使うか、
dim shtb As Worksheet
Set shtb = Workbooks("b.xls").Worksheets("Sheet1")
として
shtb.Cells(1,1)
のように書くのがいいと思います。

お礼

なるほど！できました。
これで完成です。
ありがとうございました。

回答No.2

tinu 2000（@tinu2000）

Workbooks.Open "C:\なんたら\かんたら\b.xls"
でフルパスでb.xlsをオープンして、

if Cells(1, 1)= Workbooks("b.xls").Worksheets("Sheet1").Cells(1, 1) then

Workbooks("b.xls").Close SaveChanges:=False
終わったらb.xlsをクローズします。

お礼

そうですね！こうすればいちいちb.xlsを開いていなくてもできるのですね！
ありがとうございました。