'--------------------------------
' ブック内から文字列を検索
'--------------------------------
Dim bokTarget As Workbook
Dim shtTarget As Worksheet
Dim rngTarget As Range
Dim varWhat As Variant
Dim lngCount As Long
On Error Resume Next
Do
'フォルダ内のブックを開く
Set bokTarget = Workbooks.Open(strFolderPath & strFileName)
'--------------------------------
'ブックの各シートで検索を実行
'--------------------------------
For Each shtTarget In bokTarget.Worksheets
For Each varWhat In varArray
'対象シートの全てのセルから任意の文字列を検索
Set rngTarget = findTargetCell(shtTarget.Cells, varWhat)
'検索に一致するセルが存在する場合は新規ブックに情報を書き込み
If Not rngTarget Is Nothing Then
With shtWrite.Cells(5 + lngCount, "A").Resize(1, 4)
.Value = Array(varWhat, bokTarget.Name, shtTarget.Name, rngTarget.Address(0, 0))
lngCount = lngCount + 1
End With
End If
Next
Next
strFileName = Dir() '次のExcelブックを検索
Loop Until strFileName = "" 'ブックが見つからなければループから抜ける
strFileName = Dir("")
On Error GoTo 0
'--------------------------------
' 検索値が見つからなければ終了
'--------------------------------
If lngCount = 0 Then
shtWrite.Parent.Close SaveChanges:=False
MsgBox "検索値は見つかりませんでした", vbInformation
GoTo LBL_FINALLY
End If
