重複名稱時，通過Excel工作簿中的字符串獲取命名範圍

Question

詳細說明一下，假設我在工作簿中有兩個命名範圍。兩個命名範圍具有相同的名稱（比如說「myName」），但其中一個範圍爲Sheet1，另一個範圍爲工作簿。

給定命名範圍的名稱（字符串），我想抓取工作簿級命名範圍。

如果我使用本地調用：wb.Names.Item("myName")，它將返回工作表範圍命名範圍。

如果我這樣做：wb.Names.Item("Sheet1!myName")，這顯然返回工作表範圍的名稱範圍。我發現我可以使用它來指定特定表格，但不是工作簿。

有無論如何我可以指定我想工作簿作用域？

我的解決方法是遍歷所有名稱的列表，並比較.Name屬性以獲取工作簿作用域命名範圍。這是因爲.Name屬性附加了「Sheet1！」到工作表範圍的命名範圍。然而，這樣做非常昂貴，我想避免它。

Answer 1

當我們（JKP和我自己）在編寫Name Manager時，我們特別爲重複的全局/本地名稱添加了過濾器和警告消息，因爲您提到的這種Excel對象模型行爲導致很難檢測到錯誤。

所以我的建議是永遠不要使用重複的全球/本地名稱。

我們使用代碼來檢測名稱是否與本地名稱的父級活動的全局/本地重複，然後在必要時切換表單。我們用它來尋找全局名稱的本地版本優化VBA代碼是這樣的：它的相當快的，除非你有成千上萬的數十名 -

Function FindNameLocal(oSheet As Worksheet, sName As String) As Name 
     Dim oName As Name 
     Dim strLocalName As String 
     Dim strLocalNameNoQuote 
     Dim strName As String 
     Set FindNameLocal = Nothing 
     If Len(sName) > 0 And Not oSheet Is Nothing And oSheet.Names.Count > 0 Then 
      On Error Resume Next 
      strLocalName = "'" & oSheet.Name & "'!" & sName 
      strLocalNameNoQuote = oSheet.Name & "!" & sName 
      Set FindNameLocal = oSheet.Names(strLocalName) 
      If Err <> 0 Or (FindNameLocal.NameLocal <> strLocalName And FindNameLocal.NameLocal <> strLocalNameNoQuote) Then 
       On Error GoTo 0 
       Set FindNameLocal = Nothing 
       For Each oName In oSheet.Names 
        strName = oName.Name 
        If Len(strLocalName) = Len(strName) Or Len(strLocalNameNoQuote) = Len(strName) Then 
         If strName = strLocalName Or strName = strLocalNameNoQuote Then 
          Set FindNameLocal = oName 
          GoTo GoExit 
         End If 
        End If 
       Next 
      End If 
     End If 
GoExit: 
    End Function