VB使用正则表达式提取数据的代码如下：
Dim reg As Object
Dim mat as Object
Dim str as String
Set reg = CreateObject("VBScript.RegExp")
'全部匹配完成后再返回'
reg.Global = True
'设置正则表达式'
reg.Pattern = "<tr>[\s\S]*</tr>"
'执行正则表达式'
Set mat = reg.Execute(str)
'输出数据'
For Each str In mat
debug.Print str
Next str
常用的通配符（markdown画表格太麻烦了，直接上图）
正则表达式通配符
