Mac版Excel VBA调用VBScript.RegExp报Run-time error 429求助

本次报错和你的正则匹配逻辑、表达式写法没有关系，触发原因是代码中调用的VBScript.RegExp是Windows系统专属的ActiveX组件，由Windows内置的VBScript运行时提供，Mac版Office的运行环境没有适配、内置这个组件，执行CreateObject("VBScript.RegExp")时，系统找不到对应的可实例化对象，直接抛出429运行时错误。

• 针对Mac 365/2019及以上版本的用户，可以通过工程引用加载正则组件：打开VBA编辑器，依次点击顶部菜单「工具」-「引用」，在列表中勾选「Microsoft VBScript Regular Expressions 5.5」，将代码中的晚绑定对象声明改为早期绑定写法：

  ' 替换原来的Dim regex As Object声明
  Dim regex As VBScript_RegExp_55.RegExp
  ' 删掉原来的Set regex = CreateObject("VBScript.RegExp")行
  Set regex = New VBScript_RegExp_55.RegExp
  

  调整后即可在当前支持该引用的Mac版本上正常运行正则逻辑。
• 如果是版本较老的Mac Office，引用列表中找不到上述正则组件，建议直接改用纯VBA内置函数实现匹配逻辑，完全不依赖外部ActiveX组件，实现全平台兼容。以你当前要提取连续数字的需求为例，可直接用以下无组件依赖的代码实现相同效果：

  Sub MacCompatibleExtract()
      Dim str As String, resMatches As New Collection
      Dim i As Long, tempNum As String
      str = "0123-4567"
      tempNum = ""
      ' 逐字符遍历匹配连续数字段
      For i = 1 To Len(str)
          If IsNumeric(Mid(str, i, 1)) Then
              tempNum = tempNum & Mid(str, i, 1)
          Else
              If tempNum <> "" Then
                  resMatches.Add tempNum
                  tempNum = ""
              End If
          End If
      Next i
      ' 补全字符串末尾的数字段
      If tempNum <> "" Then resMatches.Add tempNum
  End Sub
  

• 如果代码需要同时在Windows和Mac环境下运行，可提前用#If Mac Then条件编译语句做分支判断，Mac环境下走兼容匹配逻辑，Windows环境下保留原来的VBScript.RegExp调用逻辑，避免跨平台运行时反复触发组件找不到的错误。

内容的提问来源于stack exchange，提问作者Miu