Book

【VBA】開いている全ブックから対象ブックをセット｜InStr ファイル名の一部で判定

作成日：2022-12-25

更新日：2025-10-04

開いているブックをループして、対象のファイル名（一部）があればセットする

見つからないときはマクロ終了

' Get workbook by (partial) name｜部分一致でブックを取得
' 見つからなければ Nothing を返す
Public Function GetBookByName(ByVal fileName As String) As Workbook
	Dim wb As Workbook
	For Each wb In Application.Workbooks
		If InStr(1, wb.Name, fileName, vbTextCompare) > 0 Then
			Set GetBookByName = wb
			Exit Function
		End If
	Next wb
	' 見つからなければ Nothing
	Set GetBookByName = Nothing
End Function

呼び出し元

Sub ExampleUsage()
	Dim target As Workbook
	Set target = GetBookByName("Sample")
	
	If target Is Nothing Then
		MsgBox "対象ブックが見つかりません。"
		Exit Sub
	End If
	
	' 処理続行
	MsgBox "見つかった: " & target.Name
End Sub