导入库正则表达式

时间:2018-12-19 22:41:49

标签: excel-vba

我是新来的。

我想将vba的正则表达式用于excel工作表。 问题是,如果我尝试运行此代码:

Sub simpleRegex()
Dim strPattern As String: strPattern = "^[0-9]{1,2}"
Dim strReplace As String: strReplace = ""
Dim regEx As New RegExp
Dim strInput As String
Dim Myrange As Range

Set Myrange = ActiveSheet.Range("A1")

If strPattern <> "" Then
    strInput = Myrange.Value

    With regEx
        .Global = True
        .MultiLine = True
        .IgnoreCase = False
        .Pattern = strPattern
    End With

    If regEx.Test(strInput) Then
        MsgBox (regEx.Replace(strInput, strReplace))
    Else
        MsgBox ("Not matched")
    End If
End If
End Sub

发生此错误:

errors occur during compilation:

user defined typ is not defined

以及

的行
Dim regEx As New RegExp

会自动选择。

因此,我认为未导入用于正则表达式的库。

所以我想导入它。但是,请打开菜单“工具”,然后再进行引用,因为该引用突出显示为灰色且未激活。

那么如何导入该库以进行正则表达式?

非常感谢。

0 个答案:

没有答案