运行 使用工作簿变量中的公式时出现错误

Question

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

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)"

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

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