谁能帮忙给看下网页获取数据的代码，有点难度。

Question

网页平台上获取相关信息。需要提取三个信息，分别是：单号、类型和反馈单号类似于：45509
关键词：<span class="os-comm-oid ">#45509</span>类型类似于：3_【SIM】服务器迁移操作
关键词：<span class="workarea">[3_【SIM】服务器迁移操作]</span>反馈类似于：机器交给物流发往JX机房
关键词：<td>向RMS反馈信息:机器交给物流发往JX机房</td> 
有效反馈有的单子是没有的，没有即没有关键词：向RMS反馈信息，则自动记录：无
每个单子的反馈可以搜索<table class="os-logs"> 至<div class="actions">，仅提取最上面的一项:向RMS反馈信息：后面的内容即可。最后要的效果是生成一个数组，可以一一对应上如：
outs（1,1）=45509
outs（1,2）=3_【SIM】服务器迁移操作
outs（1,3）=机器交给物流发往JX机房outs（2,1）=44485
outs（2,2）=2_【SIM】服务器故障处理
outs（2,3）=无
......................现在难点在：
1，提取相关信息
2，信息一一对应
目标源代码已放入网盘，下载地址：http://115.com/file/aqauo58m#scode.txt

Answer 1

'此代码由“正则测试工具  v1.1.35”自动生成，请直接调用TestReg过程
Private Sub TestReg()
    Dim strData As String
    Dim reg As Object
    Dim matchs As Object, match As Object    strData = "需要提取三个信息，分别是：单号、类型和反馈"  &  vbCrLf  & _
              "单号类似于：45509"  &  vbCrLf  & _
              "关键词：<span class=""os-comm-oid "">#45509</span>"  &  vbCrLf  & _
              "类型类似于：3_【SIM】服务器迁移操作"  &  vbCrLf  & _
              "关键词：<span class=""workarea"">[3_【SIM】服务器迁移操作]</span>"  &  vbCrLf  & _
              "反馈类似于：机器交给物流发往JX机房"  &  vbCrLf  & _
              "关键词：<td>向RMS反馈信息:机器交给物流发往JX机房</td> "  &  vbCrLf  & _
              "有效反馈有的单子是没有的，没有即没有关键词：向RMS反馈信息，则自动记录：无"    Set reg = CreateObject("vbscript.regExp")
    reg.Global = True
    reg.IgnoreCase = True
    reg.MultiLine = True
    reg.Pattern = "os-comm-oid "">(.*?)</span>[\s\S]*?workarea"">(.*?)</span>[\s\S]*?<td>(.*?)</td> "
    Set matchs = reg.Execute(strData)
    For Each match In matchs
        'Debug.Print match.Value
        Debug.Print match.SubMatches(0),match.SubMatches(1),match.SubMatches(2)
    Next
End Sub
关于反馈的那一项你只提供了在td标签中，页面源代码中可能有很多td标签，所以需要知道更多的源码以便定位到需要的数据