Word宏调用Excel VLookup触发424「需要对象」错误如何解决

• 核心问题：你代码中直接使用的Sheet1是Excel VBA工程内的工作表代码名称专属引用，仅在Excel宿主的VBA运行环境中有效。当前宏运行在Word的VBA上下文，无法识别Sheet1对象，因此抛出对象缺失错误。
• 次要问题：WorksheetFunction是Excel.Application对象的成员，你当前的代码写在With xlSheet块中，xlSheet（工作表对象）本身没有WorksheetFunction属性，调用逻辑也存在错误。

直接修改报错的两行代码即可，修正两个调用错误：

1. 把WorksheetFunction的调用归属到已实例化的Excel应用对象xlApp
2. 把无上下文的Sheet1.Range替换为你已经完成赋值的工作表对象xlSheet的Range属性

修改后的代码如下：

int_salary_step1 = xlApp.WorksheetFunction.VLookup(int_PayGrade, xlSheet.Range("A1:K16"), 2, False)
int_salary_step10 = xlApp.WorksheetFunction.VLookup(int_PayGrade, xlSheet.Range("A1:K16"), 11, False)

如果你担心VLookup匹配不到值抛出运行时错误，可以改用以下写法做容错处理：

Dim vResult As Variant
vResult = xlApp.VLookup(int_PayGrade, xlSheet.Range("A1:K16"), 2, False)
If IsError(vResult) Then
    ' 匹配失败的处理逻辑，比如赋值默认值
    int_salary_step1 = 0
Else
    int_salary_step1 = vResult
End If

另外注意你当前的变量声明Dim xlApp, xlWorkBook As Object中，xlApp实际被声明为Variant类型，若要严格声明为Object需修改为Dim xlApp As Object, xlWorkBook As Object。

内容的提问来源于stack exchange，提问作者P James Norris