使用工作簿变量中的公式时出错

Question

我在代码中使用另一个工作簿中的 Vlookup 公式。另一个命名为变量的工作簿TifuliWB工作簿，但我不断收到错误运行时错误 1004。我确信这是我的一个很小的错误，阻止了潜艇，但我不知道是什么。

With MainWB.Worksheets(2)
    LR = .Cells(Rows.Count, "A").End(xlUp).Row
    .Range("J2:J" & LR).FormulaR1C1 = _
        "=VLOOKUP(RC[-8]," '"[" & TifuliWB.Worksheets(1) & "]"'"!C1:C71,65,FALSE)"
     .Range("J2:J" & LR).NumberFormat = "m/d/yyyy"
     .Cells.Copy
End With

Answer 1

尝试引用列的完整外部地址，而不是连接工作簿和工作表名称。

.Range("J2:J" & LR).FormulaR1C1 = _
    "=VLOOKUP(RC[-8]," & TifuliWB.Worksheets(1).range("A:BS").address(1, 1, external:=true, referencestyle:=xlr1c1) & ",65,FALSE)"
'alternately in xlA1 style
.Range("J2:J" & LR).Formula = _
    "=VLOOKUP(J2," & TifuliWB.Worksheets(1).range("A:BS").address(1, 1, external:=true) & ",65,FALSE)"

您的原件应该使用 .名称或 .全名属性，并且存在一些字符串连接问题。

.Range("J2:J" & LR).FormulaR1C1 = _
    "=VLOOKUP(RC[-8], '[" & TifuliWB.fullname & "]" & TifuliWB.Worksheets(1).name & "'!C1:C71,65,FALSE)"