VBA 正则表达式匹配示例 - 判断字符串是否仅包含字母

以下是一个用 VBA 编写的判断正则表达式的程序：

Option Explicit

Sub testRegex()
    Dim regex As Object ' 正则表达式对象
    Dim inputStr As String ' 要匹配的字符串
    Dim pattern As String ' 正则表达式
    
    ' 初始化正则表达式对象
    Set regex = CreateObject("VBScript.RegExp")
    
    ' 设置正则表达式
    pattern = "^[A-Za-z]+" ' 匹配由英文字母组成的字符串
    regex.pattern = pattern
    
    ' 设置要匹配的字符串
    inputStr = "HelloWorld"
    
    ' 进行匹配
    If regex.test(inputStr) Then
        MsgBox "匹配成功！"
    Else
        MsgBox "匹配失败！"
    End If
    
    ' 释放正则表达式对象
    Set regex = Nothing
End Sub

在这个程序中，我们使用了 VBScript.RegExp 对象来进行正则表达式的匹配。我们首先通过 CreateObject 函数创建了一个新的 RegExp 对象，然后设置了正则表达式的模式（即 pattern 属性），最后通过 test 方法进行匹配操作。

在上面的示例中，我们设置了一个正则表达式，它可以匹配由英文字母组成的字符串。然后我们将要匹配的字符串设置为 'HelloWorld'，并进行匹配操作。由于 'HelloWorld' 符合正则表达式的模式，所以匹配成功，程序弹出一个消息框提示 '匹配成功！'。

如果我们将要匹配的字符串改为 'Hello World'（含有空格），那么就无法匹配成功，程序会弹出一个消息框提示 '匹配失败！'。

这个程序只是一个简单的示例，你可以根据需要修改正则表达式的模式，以实现更复杂的匹配操作。