Vba和VLookup：插入公式与读取公式结果

Question

我在Excel vba中工作，想读取VLookup公式的结果。

当我将公式本身插入单元格中时...

Range(Cells(1, 1), Cells(1, 1)).FormulaR1C1 = "=VLookup(" & ent & ", " & MyName & ", " & fc & ", FALSE)"

...一切正常。 但是当我尝试读取相同的公式并将结果保存到变量中时...

MyResult=Application.WorksheetFunction.VLookup(ent, MyName , fc, False)

...，编号无效，并报告错误编号。 1004。

有任何想法吗？ 为了澄清起见，这些是公式的参数：范围是在另一个工作簿中用名称定义的。 在“ A1”单元格中插入公式时，这不是问题。

et = 4529
ep = 1
fc = 3
ent = 9992
MyRoute = "C:\WORK\MyEstates\"
MyBook = MyRoute + CStr(et) + "\" + CStr(et) + "-data.xlsx"
MyName = "'" + MyBook + "'!D_" + CStr(ep)

Answer 1

Application.WorksheetFunction.VLookup需要一个范围作为第二个参数。 它不知道要查找哪个工作表或单元格。

这就是您所说的：

Application.WorksheetFunction.VLookup(9992, "'C:\WORK\MyEstates\4529\4529-data.xlsx'!D_1", 3, false)

尝试更多类似的方法：

Application.WorksheetFunction.VLookup (9992, worksheets("Sheet1").range("A1:b10"),3,FALSE) 

如果需要使用变量，请确保将其声明为Range 。

_{（顺便说一句，这是Google搜索的首个热门。）}

---

编辑 ：

之后，我意识到您要做什么！ :)

您共享了很多信息，但是它是如此令人费解，我无法理解问题所在，还有奇怪的语法（例如Range(Cells(1, 1), Cells(1, 1)) ）和开放式描述（例如Everything works ）使其更加混乱。

在您得到答案之前， 我不妨为您重写问题 ，以便您更好地了解如何下次使每个人都更轻松。 重写你的问题我花了一半就没有去了解它的时候，再加上你会自己回答你的问题，如果你刚刚谷歌搜索的错误 。

---

---

WorksheetFunction.VL上的错误1004

嗨！

我有一个VLookup公式，当我使用此VBA将其分配给单元格时，该公式将从另一个工作簿中的命名范围返回预期结果：

 Range("A1").FormulaR1C1 = _ "=VLookup(9992, '*C:\\myPath\\fileName.xlsx'!namedRange*, 3, FALSE)" 

我无法使用相同的VLookup公式来与Application.WorksheetFunction一起使用，如下所示：

 myResult = Application.WorksheetFunction.VLookup _ (9992, "'C:\\myPath\\fileName.xlsx'!namedRange, 3, FALSE)" 

VBA停在上面的行，并显示以下错误 ：

运行时错误“ 1004”：

无法获取WorksheetFunction类的VLookup属性

接下来，我查找了错误，并且第一个Google搜索结果是Stack Overflow 现有的答案 ，其中包含针对我的问题的解决方案 。

所以我.......

---

---

。

我想这与示例问题有关，因为添加几个链接的过程将回答该问题。

这是您的解决方法：

myResult = Application.WorksheetFunction.VLookup _
    (9992, "'C:\WORK\MyEstates\4529\4529-data.xlsx'!D_1", 3, false)

请仔细阅读如何创建最小，完整和可验证的示例以及如何提问 。 谢谢你的时间！