VBA：在Vlookup中使用Dims

Question

我想在VBA中做一个vlookup，并且我得到一个Application-defined or object-defined error运行时错误。

我重写了整数和字符串，而不是Dims行，它工作正常，但我需要使其变化。

'Throws Error 
rc = -6 
tempwb = "Supplier Master - Location - 08-13-15.xls" 
acol = 1 
zcol = 14 
wRange.FormulaR1C1 = "=VLOOKUP(RC[rc],'[" & tempwb & "]Sheet1'!C" & acol & ":C" & zcol & "," & ((zcol - acol) + 1) & ",FALSE)" 


'Works 
wRange.FormulaR1C1 = "=Vlookup(RC[-6],'[Supplier Master - Location - 08-13-15.xls]Sheet1'!C1:C14,14,FALSE)" 

Answer 1

尝试改变

wRange.FormulaR1C1 = "=VLOOKUP(RC[rc], 

是

wRange.FormulaR1C1 = "=VLOOKUP(RC[" & rc & "], 

完成？

Answer 2

尝试更改您的字符串，以便包含rc变量。

wRange.FormulaR1C1 = "=VLOOKUP(RC[" &rc&"],'[" 

Answer 3

这是很容易做这个诊断：

Dim sFormula As String 

sFormula = "=VLOOKUP(RC[rc],'[" & tempwb & "]Sheet1'!C" & acol & ":C" & zcol & "," & ((zcol - acol) + 1) & ",FALSE)" 

Debug.Print sFormula 

wRange.FormulaR1C1 = sFormula