自分へのメモ BluePrism ExcelでFindしたい

文字列を検索して最初にヒットしたセルのReferenceを取得するだけなら、とりあえずこれでいけそう。

★Start

★End

★コードステージ

Dim excel as Object = GetInstance(handle)
Dim ws as Object = excel.ActiveSheet
Dim area, result as Object


	If TargetRange = "" Then
		area = ws.Cells
	Else
		area = ws.Range(TargetRange)
	End If

		'LookIn:=-4163, _
		'LookAt:=1, -> xlWhole 完全一致
		'SearchOrder:=1, xlByRows　->行を横方向に検索してから、次の行に移動
		'SearchDirection:=1, ->　後方検索
		'MatchCase:= True, ->大文字と小文字を区別する場合
		'SearchFormat:=False

	result = area.Find(What:=TargetValue, _
		LookIn:=-4163, _
		LookAt:=1, _
		SearchOrder:=1, _
		SearchDirection:=1, _
		MatchCase:= True, _
		SearchFormat:=False)

	if result IsNot Nothing Then
	
		cellref = Replace(result(1).Address(0, 0), result(1).row, "")&result.Row.ToString()
	Else
		cellref = ""
	End If