目的:打开同一目录下的文件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