第一辑、网页：点击标签，翻页

excelkill

蓝天630902 发表于 2012-5-30 10:45
要是，我想点击右边“地区分类”中的那个“天津”，上面找不到他的“ｉ”，只好另想办法：

Sub 找那个天 ...

Sub 点击那个天津()
With CreateObject("InternetExplorer.Application")
    .Visible = True
    .Navigate "http://de.yusuan.com/index.html"
    Do Until .ReadyState = 4
        DoEvents
    Loop
    While .ReadyState <> 4 Or .Busy
        DoEvents
    Wend
    Set r = .Document.All.tags("td")
    For i = 0 To r.Length - 1
        If r(i).All.tags("a")(0).innerText = "天津" Then        '保证是右边的“天津”，而不是上面的“天津”
            r(i).All.tags("a")(0).Click
        Exit For
        End If
    Next i
End With
End Sub
麻烦问一下，如果点上面的那个天津应该怎么办啊