Excel VBA中命名单元格的访问值(内容)

Question

这个

Dim WB As Workbook
Set WB = Workbooks.Open("foo\bar.xlsx", , True)
Debug.Print (WB.Names("named_cell").Value)
WB.Close (False)

回报

='Sheet'!$C$377

而不是单元格中的值C377.

我怎样才能收到细胞的价值呢？

Answer 1

几种方式：

Debug.Print Range("Named_Range").Value
Debug.Print [Named_Range].Value '// This uses the evaluate method

如果工作表对象位于活动工作簿中（它应该是您打开的最后一个工作簿），则不需要使用工作表对象限定命名范围。

Answer 2

如果WB.Names("named_cell")返回一个Name对象，则该对象具有RefersToRange属性。返回由Name对象引用的Range对象。请参阅https://msdn.microsoft.com/en-us/library/office/ff834918.aspx。

所以

Debug.Print WB.Names("named_cell").RefersToRange.Value

另请参见打开其他excel文件时Excel-VBA自身功能的故障。