ブックの選択について

ブックの選択について


以下のように、マクロのあるブック意外のブックを開いて
からマクロのあるブックを選択しようとしてもできません。
具体的には一番下の
Workbooks(thisBook).Select
が正常に動きません。
なぜでしょうか？


Dim myFName As String
Dim macrobook As Object
Dim thisBook As Workbook

Set thisBook = ThisWorkbook


myPath = ActiveWorkbook.Path
ChDir myPath
myFName = Dir("*S*.xls")

Workbooks.Open Filename:=myFName


Workbooks(myFName).Activate
Worksheets(1).Select


Workbooks(thisBook).Select

No.2 ベストアンサー 回答者： _Kyle 回答日時： 2010/05/04 19:58

えっと

そもそもWorkbookオブジェクトを「Select」することはできません。

　thisBook.Activate

のように「Activate」する場面では？

-----------------------------

もし
「Select」することで「Activate」とは異なる動作をさせたいということでしたら
「どのような動作をさせたいのか」補足された方が回答がつきやすいかと思います。

No.1 回答者： hana-hana3 回答日時： 2010/04/30 22:37

＞Workbooks(thisBook).Select

と使いたいなら、オブジェクトを”ブック名”（thisBook = ThisWorkbook.name）として取得すべきです。
今回の場合、thisBook.Select　で可能と思いますが？

普通に、ThisWorkBook.select などと使う方がわかりやすいのでは？

この回答への補足

ご回答ありがとうございます。
ですが、”オブジェクトはこのプロパティ,メソッドをサポートしていません”
というエラーが出てしまいます。
以下のようにMsgboxでブックの名前を表示させると
目的のブック名は取得できているようなのですが・・・・・・・・・・？

MsgBox thisBook.Name

thisBook.Select

補足日時：2010/05/01 10:35