需要的對象 - 使用wb.Sheets

Question

我正在尋找一種方法來查找列中的數據，並使用谷歌我發現此頁面。 How to find text in a column and saving the row number where it is first found - Excel VBA

，我試圖使用從該網頁

With WB.Sheets("ECM Overview") 
    Set FindRow = .Range("A:A").Find(What:="ProjTemp", LookIn:=xlValues) 
End With 

我修改了代碼，以適應我的表了後來的代碼中的一個，但我不斷收到所需的對象 我嘗試設置

Dim ws As Worksheet 
Dim wb As Workbook 

但當時我只是讓其他愚蠢錯誤，不知道什麼即時做錯了

用我的表的代碼IM

With wb.Sheets("RR LOG") 
    Set FindRow = .Range("H:H").Find(What:=ProRRnumber, LookIn:=xlValues) 
End With 

Answer 1

它看起來像你對我可能不會設置wb爲任何事情。

的With聲明之前，嘗試添加如下代碼：

Set wb = ActiveWorkbook 

或者，如果你要明確指定wb到工作簿的名稱，請嘗試：

Set wb = Workbooks("Book1.xlsx") 

更換​​與您正在引用的工作簿的名稱。