VBA中是否有Regex.Escape等效方法？求现成实现代码

没错，你说得对——Microsoft VBScript Regular Expression 5.5库确实没有内置的Regex.Escape方法，不过咱们有两种靠谱的解决办法，完全能满足你不用从零编写的需求：

优先推荐：纯VBA等效函数 #

这是一个经过社区验证的VBA函数，完美模拟VB中Regex.Escape的行为，直接复制就能用：

Function RegexEscape(strInput As String) As String
    Dim objRegex As Object
    Set objRegex = CreateObject("VBScript.RegExp")
    
    ' 匹配所有正则特殊字符：. + * ? [ ^ ] $ ( ) { } = ! < > | : -
    objRegex.Pattern = "[\.\+\*\?\[\^\]\$\(\)\{\}\=\!\<\>\|\:\-]"
    objRegex.Global = True
    
    ' 在每个特殊字符前添加反斜杠转义
    RegexEscape = objRegex.Replace(strInput, "\$&")
    
    Set objRegex = Nothing
End Function

使用示例 #

比如你要转义包含特殊字符的字符串Hello.World*?(test)，调用方式如下：

Dim escapedText As String
escapedText = RegexEscape("Hello.World*?(test)")
' 最终结果：Hello\.World\*\?\(test\)

备选方案：借助VBScript宿主调用（不推荐） #

如果你实在不想自己维护正则匹配规则，也可以通过脚本宿主间接调用VBS的Regex.Escape方法，但这个方法可能会被系统安全设置限制，所以仅作为备选：

Function RegexEscapeViaVBS(strInput As String) As String
    Dim objScriptHost As Object
    Set objScriptHost = CreateObject("ScriptControl")
    objScriptHost.Language = "VBScript"
    
    ' 处理字符串中的双引号，避免Eval报错
    RegexEscapeViaVBS = objScriptHost.Eval("Regex.Escape(""" & Replace(strInput, """", """""") & """)")
    
    Set objScriptHost = Nothing
End Function

提示：这个方法需要你的环境允许创建ScriptControl对象，部分企业环境可能会禁用它，所以优先用第一个纯VBA方案。

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