vba 在同一目录下查找文件中的值

目的：打开同一目录下的文件us.xls,并在第一列中查找某一指定值。在这里查找"Dev”

1,打开同一目录下的文件us.xls

Dim wb As Workbook

Set wb = Workbooks.Open(ThisWorkbook.Path & "/" & "us.xls", , True)

'wb 用来引用这个打开的工作薄。方便之后操作。

Set rnsearch = wb.Worksheets("IE&BS Summary").Columns("a")

With rnsearch
    Set re = .Find(what:=("dec"), MatchCase:=False, SearchFormat:=False)
        If Not re Is Nothing Then
        MsgBox re.Address
        End If
End With

wb.Close False   'close the workbook after search without save