在线求救，大神帮忙看下原因，同一编辑内容为什么现在更新就不一样了

Function GetURL(url)  '访问网页的函数
    With CreateObject("Msxml2.XMLHTTP")  '创建xmlhttp用于读取网页源代码
        .Open "GET", url, False  '获取对应页源代码
        .Send  '发送请求
        GetURL = .responseText  '提取返回的网页源代码
    End With
End FunctionSub TBXH()
K = 2
Set MyS = ActiveWorkbook.ActiveSheet
tb = MyS.Cells(K, "J").Value
Do While tb <> ""
    url = "http://rate.taobao.com/user-rate-" & tb & ".htm"
    HTM_data = GetURL(url)
    Set RegEx = CreateObject("vbscript.regexp")  '创建正则表达式
    With RegEx
        .Global = True  '全局有效
        .MultiLine = True  '多行有效
        .ignorecase = True  '忽略大小写(网页处理时这个参数比较重要)
        .Pattern = "javascript:void\(0\)""\>(\d+)\</a\>" '匹配总信誉点数
        If .test(HTM_data) Then  '如果可以匹配到结果,则
            T = Val(.Execute(HTM_data)(0).submatches(0))  '提取信誉点数
        End If
        .Pattern = "\&amp;result\=1\'\>(\d+)\</a\>"  '匹配周、月信誉点数
        If .test(HTM_data) Then  '如果可以匹配到结果,则
            T7 = Val(.Execute(HTM_data)(0).submatches(0))  '提取周信誉点数
            T30 = Val(.Execute(HTM_data)(1).submatches(0)) '提取月信誉点数
        End If
    End With
    MyS.Cells(K, "S").Value = T - MyS.Cells(K, "L").Value
    MyS.Cells(K, "L").Value = T
    MyS.Cells(K, "M").Value = T7
    MyS.Cells(K, "N").Value = T30
    K = K + 1
    tb = MyS.Cells(K, "J")
Loop
MsgBox ("成功更新" + Str(K - 1) + "个小号信誉情况！")
End Sub各位大神，是什么原因，先前这宏的编辑内容点更新信誉时候都会有详细点数，为什么现在点更新信誉就全变成0了啊？