用户定义类型未定义，这个程序哪里错了？

WalkerOn

Function GetNumber(txt As String, searchtype As String) As String
    '定义正则对象
    Dim reg As NewRegExp
    '设置正则对象的Pattern属性，值为正则表达式字符串
    Select Case searchtype
    '如果函数第二参数值为QQ，则设置正则对象的Pattern属性为"QQ：(\d*)"，在txt中匹配QQ号码
    Case "QQ"
        reg.Pattern = "QQ：(\d*)"
    '如果函数第二参数值为Tel，则设置正则对象的Pattern属性为"联系电话：(\d{11})",在txt中匹配联系电话
    Case "Tel"
        reg.Pattern = "联系电话：(\d{11})"
    '如果函数第二参数既不是QQ,也不是Tel,则退出函数
    Case Else
        Exit Function
    End Select

    Dim mh As MatchCollection, m As Match
    '在文本中执行正则表达式搜索，返回值为MatchCollection对象
    Set mh = reg.Execute(txt)
    For Each m In mh
        'm为Match对象,获取每一个Match对象结果中的子项集合SubMatches
        GetNumber = m.SubMatches.Item(0)
    Next
End Function

liulang0808

楼主根据具体提示看看哪个没有定义就知道了，有前期绑定的对象

WalkerOn

liulang0808 发表于 2019-5-15 21:26
楼主根据具体提示看看哪个没有定义就知道了，有前期绑定的对象

怎么看啊

liulang0808

WalkerOn 发表于 2019-5-15 21:29
怎么看啊

Dim reg As NewRegExp 正则前期绑定，楼主论坛可以搜索下
后面的的变量类型也可能有问题的。楼主再看看原始表格的代码情况吧

Datous

这个吧
m As Match

Match，也能声明？

Datous

这个也可疑
Dim reg As NewRegExp

1. Dim reg As New    RegExp

复制代码

WalkerOn

liulang0808 发表于 2019-5-15 21:32
Dim reg As NewRegExp 正则前期绑定，楼主论坛可以搜索下
后面的的变量类型也可能有问题的。楼主再看看 ...

正则前期绑定是什么啊

WalkerOn

WalkerOn 发表于 2019-5-15 21:39
正则前期绑定是什么啊

在工具的引用里已经勾选了啊

liulang0808

WalkerOn 发表于 2019-5-15 21:41
在工具的引用里已经勾选了啊

Dim mh As MatchCollection, m As Match
这个地方你再看看吧，楼主仅仅截取了一个函数的代码，应该还有其他部分吧

WalkerOn

liulang0808 发表于 2019-5-15 21:32
Dim reg As NewRegExp 正则前期绑定，楼主论坛可以搜索下
后面的的变量类型也可能有问题的。楼主再看看 ...

在工具的引用里已经勾选了啊