Vba 错误：方法'；价值'；对象的'；范围'；失败-输入动态公式

我的代码的目的是在单元格中输入公式。它从一个页面提取工作簿路径、名称和工作表，并在另一个单元格（在WS中单击宏按钮）中使用它来查找值。 当我运行代码时，我得到一个错误：对象“range”的方法“value”失败 我看过其他人在这方面的问题，但没有找到解决办法

Sub EquipmentRecord()

Dim CalPath As Variant
Dim CalWB As Variant
Dim CalWS As Variant
Dim FullCalPath As Variant

CalPath = Worksheets("Document Properties").Range("H16")
CalWB = Worksheets("Document Properties").Range("H17")
CalWS = Worksheets("Document Properties").Range("H18")
FullCalPath = "'" & CalPath & "[" & CalWB & "]" & CalWS & ""

ActiveCell.Offset(1).EntireRow.Insert
ActiveCell.Offset(1).EntireRow.Select

Range("F" & ActiveCell.Row).Value = ("=VLOOKUP(RC[-1]," & FullCalPath & "!R1C1:R100C26,13,FALSE)")

End Sub

结尾处的双引号之间似乎缺少单引号

FullCalPath = "'" & CalPath & "[" & CalWB & "]" & CalWS & "'"

---

请提供测试任何可能解决方案的样本数据。从代码的高级视图来看，您是否应该引用

CalPath=Worksheets（“文档属性”）.Range（“H16”）.Value2

？您还可以指出代码错误出现在哪一行吗？

FullCalPath = "'" & CalPath & "[" & CalWB & "]" & CalWS & "'"