在后台工作簿中查找值
我正在努力创build一个代码来search我正在访问的工作簿中的一个值，而不会将其带到前台。 我正在使用下面的代码来访问该文件为“xl0”：
'DATABASE ACCESS Dim xl0 As New Excel.Application Dim xlw As New Excel.Workbook Dim db_directory As String db_directory = "R:\New Quality Management System\xls\Supplier Non-Conformance\Supplier Non-Conformance Database.xlsm" Set xlw = xl0.Workbooks.Open(db_directory) 我已经成功地将这个工作添加到xl0电子表格的logging，但是我也需要创build一个修改loggingmacros来“查找”一个索引值并提取行号。 我尝试了几个变化（下面的两个例子）没有成功，谁能告诉？
例如1。
Windows("Supplier Non-Conformance Database.xlsm").Activate Cells.Find(What:="2015-16-46", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate
例如2。
xl0.Worksheets("SNCR Log").Range("B:B").Find(What:="2015-16-46", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate
提前致谢，
担
这是一个开始：（顺便说一句，激活是非常贪婪的资源，所以尽量避免它！）
Application.ScreenUpdating=False 'DATABASE ACCESS Dim xl0 As New Excel.Application Dim xlw As New Excel.Workbook Dim db_directory As String xl0.Visible=False db_directory = "R:\New Quality Management System\xls\Supplier Non-Conformance\Supplier Non-Conformance Database.xlsm" Set xlw = xl0.Workbooks.Open(db_directory) MsgBox xlw.Sheets(1).Cells.Find(What:="2015-16-46", LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Row Application.ScreenUpdating=True