获取已关闭工作簿中定义名称的路径、文件名、工作表和地址

Question

此代码可以完美地将定义的名称添加到另一个工作簿：

Sub AddDefinedName()
    Dim sPath As String
    Dim sFilename As String
    Dim sSheetname As String
    Dim sRangeAddress As String

    sPath = "C:\Me\Folder"
    sFilename = "source.xls"
    sSheetname = "Sheet1"
    sRangeAddress = "$A$1:$B$5"

    ThisWorkbook.Names.Add "Source", _
            RefersTo:="='" & sPath & "\[" & sFilename & "]" & sSheetname & "'!" & sRangeAddress
End Sub

如果所述工作簿打开，则此代码允许获取所有信息：

Sub GetDefinedName()
    Dim sPath As String
    Dim sFilename As String
    Dim sSheetname As String
    Dim sRangeAddress As String

    sPath = Range("Source").Parent.Parent.Path
    sFilename = Range("Source").Parent.Parent.Name
    sSheetname = Range("Source").Parent.Name
    sRangeAddress = Range("Source").Address

    MsgBox sPath
    MsgBox sFilename
    MsgBox sSheetname
    MsgBox sRangeAddress
End Sub

当工作簿“source.xls”关闭时我怎样才能得到这些（所以我可以通过VBA打开它）。

Answer 1

你可以使用Name对象来获取地址字符串，像这样
（假设您已将名称定义为Workbook 范围）

Dim nm as Name

Set nm = ThisWorkbook.Names("Source")
Debug.Print nm.RefersTo

这将为您提供表单中的完整路径和地址

'=C:\Me\Folder\[source.xls]Sheet1'!$A$1:$B$5

注意：如果路径、文件名或工作表名称中没有空格，则没有 ''s

以上将返回特定命名范围的信息。如果您想获取 所有 远程引用的信息，请尝试使用

ThisWorkbook.LinkSources

这将返回一个包含所有链接源的数组作为字符串。对于其他工作表的链接，它将采用以下形式

C:\Me\Folder\source.xls

Answer 2

您可以打开它然后再次关闭它，我知道这与“不以物理方式打开它”不同，但它的作用相同。请注意，当此代码运行时，“源”工作簿的 Workbook_Open 和 Workbook_close 中的任何宏都会被触发：

Sub GetDefinedName()
    Application.ScreenUpdate = False
    Dim sPath As String
    Dim sFilename As String
    Dim sSheetname As String
    Dim sRangeAddress As String



    sPath = Range("Source").Parent.Parent.Path
    sFilename = Range("Source").Parent.Parent.Name
    sSheetname = Range("Source").Parent.Name
    sRangeAddress = Range("Source").Address
    Application.Workbooks.Open sPath & sFilename


    MsgBox sPath
    MsgBox sFilename
    MsgBox sSheetname
    MsgBox sRangeAddress

    sFilename.close False
    Application.ScreenUpdate = True
End Sub