|
▼ichinose さん:
ありがとうございました。
ご教授いただいた、下の方法で解決しました。
非アクティブなシート(セル)に値を設定する場合、
Workbooks("b.xls").Worksheets(1).Range("A1").Value = XXX
のようにすることは分かっていたのですが、
今回の場合、どこにオブジェクト(?)を指定するのか分からず、
With Workbooks("b.xls")
For .ws in Worksheets
Msgbox .ws.Name
Next ws
End With
みたいな事もやってみました(エラーでした)。
コレクションのところで指定すればいい事が分かり、
もやが晴れました。
また、
>Sub test()
> For Each wk In Workbooks
> If Not wk Is ActiveWorkbook Then
> Debug.Print wk.Name
> For Each sht In wk.Worksheets
> Debug.Print Space$(3) & sht.Name
> Next
> End If
> Next
>End Sub
も非常に参考になるコードで、もう少し分かってきて、
改造するときに利用させていただきたいと思います。
|
|