VBA正則表達式：匹配不顯示任何值

Question

以下代碼是迄今爲止提到的。我也爲正則表達式5.5設置了參考。

但是，匹配值根本不顯示，我在這裏丟失了什麼？

Public Sub check() 

Dim wb As Workbook 
Set wb = ThisWorkbook 

'Prepare a regular expression object 
Dim myRegExp As New VBScript_RegExp_55.RegExp 
Dim myMatches As MatchCollection 
Dim myMatch As match 
myRegExp.IgnoreCase = True 
myRegExp.Global = True 
myRegExp.Pattern = "^\d{6,8}-[SFTG]\d{7}[A-Z]-([^-]+)$" 
Set myRegExp = CreateObject("vbscript.regexp") 

cellValue = CStr(wb.Worksheets(1).Cells(2, 4).Value) 
'123456-S1234567F-Scholarship Form 

If myRegExp.Test(cellValue) Then 


Set myMatches = myRegExp.Execute(cellValue) 


For Each myMatch In myMatches 
    MsgBox (myMatch.Value) 

Next 

Else 
End If 

End Sub 

Answer 1

刪除以下行

Set myRegExp = CreateObject("vbscript.regexp") 

似乎解決了問題。

我想這是因爲當你將myRegExp到一個新的對象