Zugriffswert (Content) von einer benannten Zelle in Excel VBA

Question

Diese

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

kehrt

='Sheet'!$C$377 

anstelle des Wertes in der Zelle C377.

Wie kann ich stattdessen den Wert der Zelle erhalten?

Answer 1

Wenn WB.Names("named_cell") ein Objekt Name zurückgibt, hat dieses Objekt eine RefersToRange Eigenschaft. Dadurch wird das Range-Objekt zurückgegeben, auf das von einem Name-Objekt verwiesen wird. Siehe https://msdn.microsoft.com/en-us/library/office/ff834918.aspx.

So

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

Siehe auch Malfunction of Excel-VBA own function when open other excel-file.

Answer 2

paar Möglichkeiten:

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

Sie brauchen nicht einen benannten Bereich mit einem Blatt Objekt zu qualifizieren, wenn es in der aktiven Arbeitsmappe ist (was es sein sollte, wie es die letzte Arbeitsmappe ist Sie geöffnet).

Answer 3

Sobald der benannten Bereich hergestellt wurde, weiß Excel seine Parent, so:

Sub dural() 
    Dim r As Range 
    Set r = Range("named_cell") 
    MsgBox r.Parent.Name & vbCrLf & r.Address(0, 0) & vbCrLf & r.Value 
End Sub 

ein Weg ist, Informationen zu diesem Bereich zu erhalten:

Dies nutzt die Eigenschaften die Bereich Objekt eher als die Arbeitsmappe Objekt.