运行时错误91 VBA

Question

我有这个想法-在一个文件中，我设置了要搜索的名称和文件，并希望VBA打开该文件，遍历所有工作表，找到我搜索的值，并在同一行返回一些值。 首先，我只找到一种仅在一列中搜索的方法，但是在我的文件中，该值可能在5-6列中。 有谁知道如何在孔工作表中搜索？ 另外，我有一个简单的解决方案（我搜索的数据始终在D，F，H，J ...列中），我将检查最坏的情况并进行总体迭代，除非找到它，返回我的信息，关闭文件并关闭宏。 到目前为止，这是我的代码：

Sub BTS()

Dim RowID As Integer
Dim SiteID As String
Dim objFindSiteID As Range
Dim objControllerData As Workbook
Dim WS As Worksheet
Dim lastRow As Long
Dim v As Range



SiteID = ThisWorkbook.Sheets("Sheet1").Range("A3").Value

    If ThisWorkbook.Sheets("Sheet1").Range("B3").Value = "someValue" Then
       Set objControllerData = Workbooks.Open("C:\Users\bla\bababa\bla.xls", True, True)
    End If

    For Each WS In objControllerData.Worksheets
       lastRow = WS.Cells(WS.Rows.Count, "B").End(xlUp).Row
       For I = 1 To lastRow
         v = WS.Range("D" & I).Value
         If v = SiteID Then
           RowID = v.Row
           MsgBox lastRow
           MsgBox RowID
         End If
       Next I
    Next WS



End Sub

我几乎完成了该任务，但是有一个问题-运行时错误91。我已经管理了错误424、1004，但是很难找到发生此问题的原因：/

Answer 1

删除Dim v As Range ，您给他一个值，而不是范围。

或者，保持范围，并在等号行的末尾删除.Value 。 然后将值获取到另一个原语，例如myValue = v.Value