regex - 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我想那是因为当你分配给一个新对象时你所有的初始化语句都消失了