在单独的工作簿之间构建 Vlookup

Question

我是 VBA 编码的新手，我正在尝试构建一个 Vlookup 来连接两个单独的工作簿。提供 belwo 是我的编码，它当前在 vlookup 行上产生运行时 1004 Method 'Range' of Object'_Global' Failed 错误。

Sub dataEntry(agent As Integer, month As Integer)

Dim lookupReturn As Integer
Dim i As Integer
Dim lookupValue As String
Dim lookupBook As String

i = 1
'set excel book to preform vlookup within
lookupBook = sheetName & "-Daily Report Daily-Monthly Grid.xlsx"

'Preforms a Vlookup to fill in data points
Do While Workbooks("Cumulative Agent Ranking Template").Sheets(sheetName).Cells(i,     1).Value <> ""
    lookupValue = Workbooks("Cumulative Agent Ranking Template").Sheets(sheetName).Cells(i, 10).Value
    lookupReturn = Sheets(sheetName).WorksheetFunction.VLookup(Range("C2"), [lookupBook] & sheet33 & Range("!$A$2" & ":$C" & agent), 2, False)
    Workbooks("Cumulative Agent Ranking Template").Sheets(sheetName).Cells(i, 11).Value = lookupReturn
    i = i + 1
    lookupValue = ""
    lookupReturn = 0
Loop

Answer 1

我认为这里可能有很多问题。

让我们从最明显的 1004 错误来源开始，即不合格的范围对象。

示例：在标准模块中，Range("C2") 始终指代活动工作表。在工作表模块中，它总是引用父工作表。

解决：完全限定您的范围变量，例如，Workbooks(_name_).Worksheets(_sheetname_).Range("C2")

我注意到的另一个潜在问题是您调用Vlookup 的方式。

Sheets(sheetName).WorksheetFunction...

工作表对象没有这样的方法WorksheetFunction。这是一个应用程序级别的方法，所以调用它：

WorksheetFunction.Vlookup...

其他问题或潜在问题

未声明的变量：sheetname（也许这是一个公共或模块级变量？）

未使用的变量：lookupValue 你已经声明了这个，你已经给它赋值了，但是你还没有对它做任何事情 或者在代码的任何其他地方使用它。 这是您尝试搜索的值吗？

您的公式的其余部分也很粗糙，我什至不会尝试将其修复为当前状态。如果您使用定义更好的对象变量，您的代码将更容易阅读和理解。如果变量在声明中是强类型的，您也将从智能感知中受益。

这是一个示例，我将留给您自己解决：

Dim lookupBook as Workbook
Dim lookupRange as Range
Dim lookupValue as String

Set lookupBook = Workbooks("some other file.xlsx")
Set lookupRange = lookupBook.Worksheets("some worksheet").Range("A1:B50")
lookupValue = "cat"

Range("A1").Value = WorksheetFunction.Vlookup(lookupValue, lookupRange, 2, False)