Types 编译错误：类型不匹配

我得到一个编译错误：类型与下面的代码不匹配。不确定问题是否在代码中。请提前帮助和感谢

公共子测试（）

---

End Sub

哪一行与传输线不匹配？如果是这样的话，您可能只是缺少右侧的

.Value

部分？我已经有一段时间没有使用VBA了，所以我可能错了。。。除非您打算将一个范围复制到另一个范围，但左侧没有

.Value

？不幸的是，我目前没有办法测试VBA。我解决了这个问题。我没有尝试分配变量FiWkb，而是将其称为ThisWorkbook，因为这是执行代码的工作簿。

Dim FiWkb As Workbook
Dim BkWkb As Workbook

'## Open both workbooks first:
Set FiWkb = "C:\Users\60050987\Desktop\FI INSPECTOR PROJECT\FI Inspector Data.xlsx"
Set BkWkb = Workbooks.Open("C:\Users\60050987\Desktop\FI INSPECTOR PROJECT\FI Inspector Data.xlsx")

'Now, transfer values from x to y:
BkWkb.Sheets("PhosData").Range("A2").Value = FiWkb.Sheets("DaysReport").Range("A2")

'Close BkWkb:
BkWkb.Close