在VLookUp中添加变量

Question

我遇到了vlookup函数的问题。第一个代码显示VLOOKUP知道什么是"TempArg'17"，但现在我想将此文本更改为字符串并将其写入VLOOKUP内，因此我创建了一个字符串temp。

Dim temp As String
Dim num As Int
num = 17

temp = "TempArg" + "'" + Cstr(num)

以下是适用的旧代码：

ActiveCell.FormulaR1C1 = _
        "=VLOOKUP([@[" & Chr(10) & "Stevilka]],'TempArg''17'!C[-16]:C[-17],2,FALSE)"

以下是我想要更改的代码，但不起作用：

ActiveCell.FormulaR1C1 = _
        "=VLOOKUP([@[" & Chr(10) & "Stevilka]],'" & temp & "'!C[-16]:C[-17],2,FALSE)"

这就是我得到的。

  

运行时错误'1004'：

     

应用程序定义或对象定义的错误

Answer 1

缺少单引号'。
更改以下行：

temp = "TempArg" + "'" + CStr(num)

到

temp = "TempArg" + "''" + CStr(num)

甚至更好

temp = "TempArg''" & CStr(num)

同样使用Dim num As Int这不会运行。
应该是Dim num As Integer，但我想这是一个错字......