RegEx Extraction #NAME error

Question

Я пытаюсь создать свою собственную функцию VBA, основанную на той, которая находится на втором шаге по этой ссылке. How to use Regular Expressions (Regex) in Microsoft Excel both in-cell and loops

Однако, я получаю ошибку #NAME. Где я здесь не так? Я проверил свой RegEx на https://regex101.com.

Function extractGroupName(Myrange As Range) As String 
    Dim regEx As New RegExp 
    Dim strPattern As String 
    Dim strInput As String 
    Dim strReplace As String 
    Dim strOutput As String 

    strPattern = "^.*Name:(.*);Id" 

    If strPattern <> "" Then 
     strInput = Myrange.Value 
     strReplace = "$1" 

     With regEx 
      .Global = True 
      .MultiLine = True 
      .IgnoreCase = False 
      .Pattern = strPattern 
     End With 

     If regEx.Test(strInput) Then 
      extractGroupName = regEx.Replace(strInput, "$1") 
     Else 
      extractGroupName = "ERROR: NOT FOUND" 
     End If 
    End If 
End Function 

Answer 1

Кажется, вы назвали модуль и функцию одинаковыми. Когда это произойдет, Excel не знает, что вы имеете в виду, поэтому возвращает ошибку #NAME. Имеются две ошибки:

1. Измените название того или иного. Я часто префикс все обычные имена модулей с mod таким образом, чтобы избежать этой проблемы: modextractGroupName

2. Вызов функции с полным именем:

---

=extractGroupName.extractGroupName(A1) 

---

Answer 2

Полагает, что вам не хватает ссылки на библиотеку Reg Expression. Я думаю, что это регулярные выражения Microsoft VBScript в диалоговом окне «Ссылки» (Инструменты: Referneces в VBIDE) ...