ブックの選択について

質問

ブックの選択について

以下のように、マクロのあるブック意外のブックを開いて
からマクロのあるブックを選択しようとしてもできません。
具体的には一番下の
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 · ベストアンサー

えっと

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

　thisBook.Activate

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

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

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

回答No.1

hana-hana3

＞Workbooks(thisBook).Select

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

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

補足

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

MsgBox thisBook.Name

thisBook.Select