VBA在另一個引用的工作簿中，使用Vlookup將值分配給ActiveCell

Question

我一直試圖在VBA中使用vlookup，這很煩人。

ActiveCell.Value = Application.WorksheetFunction.VLookup(Cells(currentrow, 12), currwor.Worksheets("Sheet1").Range("R4C3:R160C10"), 6, False)

是代碼

我使用的主要元素是currwor，它已設置為引用另一本工作簿，並且我希望在其中使用vlookup。

但是，它不斷出現錯誤，提示下標超出范圍。

我懷疑currwor在此Set currwor = ActiveWorkbook是有罪的一方（然后打開執行上述操作的工作簿，並且也為其分配了工作簿名稱。）我無法使用特定范圍，因為我正在嘗試在范圍內的每個單元格上執行vlookup，該范圍每次都會更改，並且將在我得到的特定文檔上執行此命令，但名稱可能有所不同（但是格式保持不變）。

有什么建議嗎？

編輯：一個錯誤是它不應該是sheet1，而是“按產品庫存報告”。 但是，它仍然會引發下標超出范圍的錯誤。

Answer 1

通過使用Set currwor = ActiveWorkbook您將當前活動的工作簿分配給currwor但是您之前提到它應該是另一個工作簿？ 意味着您應該有一行Set currworb = Workbooks("desired workbook name") ？

Answer 2

是的-愚蠢的錯誤。 如前所述，工作表名稱不正確，問題是在執行過程中我跳過了工作表分配給currwor的位。

非常白痴，我應該考慮在此處刪除此帖子。