excel - 引用工作簿名称

Question

我在Workbook通过给定的引用 ( RefersTo) 获取对象名称时遇到了麻烦。下面的代码：

Sub add()

  ThisWorkbook.Names.add Name:="Letee", RefersTo:="Nazwa2"
  MsgBox ThisWorkbook.Names(RefersTo:="Nazwa2")

End Sub

标签： excelreferencevba

Answer 1

只要确保Nazwa2是一个有效的名称：

Sub add()

Sheets(1).Range("A1").Name = "Nazwa2"
ThisWorkbook.Names.add Name:="Letee", RefersTo:="Nazwa2"
MsgBox ThisWorkbook.Names(1)

End Sub

要查看名称链：

Sub addx()

    Sheets(1).Range("A1").Name = "Nazwa2"
    ThisWorkbook.Names.add Name:="Letee", RefersTo:="Nazwa2"

    i = 1
    For Each nm In ActiveWorkbook.Names
         Cells(i, 1).Value = nm.Name
         Cells(i, 2).Value = "'" & nm.RefersTo
     i = i + 1
    Next

End Sub