単純に調べて条件に合致するブックを対象にするのでは。

sub macro1()
　dim w as workbook
　for each w in workbooks
　　if w.name like "*Book*.*" then
　　　w.windows(1).activate
　　　w.range("A10").select
　　end if
　next
end sub


＃幾つか突っ込みどころ
　マクロを使ってファイルとか操作するときは，「必ず」拡張子まで含めます。
　「開いてるブックやファイル」はアドインとか個人用マクロブックとか，１つ＋１つとは限りません。

＞特定の文字を含んだファイルを指定したい
　マクロの書きぶりによってはbook1とBook1は別物です。

投稿日時 - 2016-01-05 20:19:58

私、普段は「VBScript」でプログラムを書いていますので、その発想からの回答になりますが、「VBA」で動作を確認しております。

Sub Test()
Dim o, p, s As Object
Dim n
Set s = CreateObject("Scripting.FileSystemObject")
Set p = s.GetFolder(".")
For Each n In p.Files
If LCase(s.GetExtensionName(n.Name)) = "xlsx" And InStr(n.Name, "Book") > 0 Then
Set o = Workbooks.Open(p & "\" & n.Name)
MsgBox ("Yes")
o.Close
End If
Next
End Sub

Set s = CreateObject("Scripting.FileSystemObject")
は、フォルダなどを扱えるようにしています。

VBAでは、p = ActibeWorkbook.Pathで、
自分自身がいるフォルダを文字列として「p」に格納できますが、
「For Each n In p.Files」の「p」には使えません。

この「p」は文字列ではなく、オブジェクトです。

「For Each n In p.Files」は、「p」フォルダ内のファイルを順番に調べてゆきます。
「LCase()」は文字をすべて小文字にし、「GetExtensionName」は拡張子を調べています。

「InStr」で順番に調べているファイル名「n.Name」の中に「Book」が含まれていれば、値が「１」以上になります。

拡張子が「xlsx」で、ファイル名に「Book」が含まれていれば、そのファイルを開いています。

投稿日時 - 2016-01-05 17:59:08