はこふぐのメモ

めもです

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

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

 

★Start

f:id:sazanamifugu:20191106220534p:plain

★End

f:id:sazanamifugu:20191106220933p:plain

 

★コードステージ

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
	
プライバシーポリシー
©2019 きらきらじゃないワーママのメモ All rights reserved