寻求无需依赖VBScript的VBA正则表达式替代实现方案

针对你遇到的杀毒软件禁用Office中VBScript导致正则邮箱验证失效的问题，提供以下几种可行方案：

方案1：改用.NET正则表达式组件（推荐） #

该方案不依赖VBScript库，调用Windows自带的.NET框架正则类，兼容性好且不易被拦截：

Public Function ValidateEmail(address As String) As Boolean
    Dim regex As Object
    On Error GoTo errHandler
    
    ' 创建.NET正则对象
    Set regex = CreateObject("System.Text.RegularExpressions.Regex")
    
    ' 沿用原正则规则，启用忽略大小写（参数1对应RegexOptions.IgnoreCase）
    ValidateEmail = regex.IsMatch(address, "^([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$", 1)
    
errHandler:
    Set regex = Nothing
    ' 若创建对象失败，返回验证不通过
    If Err.Number <> 0 Then ValidateEmail = False
End Function

注意：Windows系统默认自带.NET Framework，64位Office环境下该代码通常无需额外调整即可运行。

方案2：前期绑定引用正则库 #

如果后期绑定的CreateObject("vbscript.regexp")被拦截，可尝试前期绑定库文件，部分杀毒软件对这种方式拦截程度更低：

1. 打开VBA编辑器，点击「工具」→「引用」
2. 勾选「Microsoft VBScript Regular Expressions 5.5」
3. 修改代码如下：

Public Function ValidateEmail(address As String) As Boolean
    Dim regex As New RegExp
    On Error GoTo errHandler
    
    regex.IgnoreCase = True
    regex.Pattern = "^([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$"
    
    ValidateEmail = regex.Test(address)
    
errHandler:
    Set regex = Nothing
    If Err.Number <> 0 Then ValidateEmail = False
End Function

方案3：纯VBA原生验证（无外部依赖） #

如果上述方案都不可行，可使用原生VBA函数组合实现基础邮箱验证，虽然无法覆盖所有复杂格式，但能满足绝大多数普通场景：

Public Function ValidateEmail(address As String) As Boolean
    Dim atPos As Integer, dotPos As Integer
    
    ' 检查是否存在且仅存在一个@符号
    atPos = InStr(address, "@")
    If atPos = 0 Or InStr(atPos + 1, address, "@") > 0 Then
        ValidateEmail = False
        Exit Function
    End If
    
    ' 检查@前后不能为空
    If Left(address, atPos - 1) = "" Or Mid(address, atPos + 1) = "" Then
        ValidateEmail = False
        Exit Function
    End If
    
    ' 检查域名部分至少有一个点，且点不能在@后第一位或最后一位
    dotPos = InStr(atPos + 1, address, ".")
    If dotPos <= atPos + 1 Or dotPos = Len(address) Then
        ValidateEmail = False
        Exit Function
    End If
    
    ' 检查最后一个点后的后缀长度为2-4位
    If Len(Mid(address, dotPos + 1)) < 2 Or Len(Mid(address, dotPos + 1)) > 4 Then
        ValidateEmail = False
        Exit Function
    End If
    
    ' 检查是否包含非法字符（可根据需求扩展规则）
    If address Like "*[!a-zA-Z0-9._@-]*" Then
        ValidateEmail = False
        Exit Function
    End If
    
    ValidateEmail = True
End Function

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