如何使用 VBA 获取网页元素 [英] How to get web elements using VBA

问题描述

我基本上希望能够在 Excel 中使用 VBA 读取球员排名，但一直无法使其正常工作.我收到一个值错误，不知道为什么.我只有非常基础的 VBA 知识，所以请耐心等待.

I basically want to be able to read the players rank using VBA in Excel but haven't been able to get it working. I get a value error and can't figure out why. I only have a very basic knowledge of VBA so please be patient.

所以我已经将代码更改为下面显示的内容，但是在 excel 中运行时它返回值 0.当我重新启动 excel 时，没关系.感谢大家的帮助！

So I've changed the code to whats shown down below but when run in excel it returns a value of 0. Nevermind worked when I restarted excel. Thanks for all the help!

    Function player_battlerank(player_name As String)
start1:
Set objhttp1 = New WinHttp.WinHttpRequest
Dim doc1 As MSHTML.HTMLDocument
objhttp1.Open "GET", "http://ps2.fisu.pw/player/?name=" & player_name, True
objhttp1.send

objhttp1.waitforresponse

If objhttp1.status <> 200 Then GoTo start1
Set doc1 = New MSHTML.HTMLDocument
doc1.body.innerHTML = objhttp1.responseText

Set obj1 = doc1.getelementbyid("stat_overview")
For Each obj3 In obj1.getelementsbytagname("div")
    If obj3.innerText Like "*BATTLE RANK*" Then
        player_battlerank = obj3.getelementsbytagname("b")(0).innerText
        Exit Function
    End If
Next obj3
End Function

推荐答案

这样的事情应该可行:

'....
Set doc1 = New MSHTML.HTMLDocument
doc1.body.innerHTML = objhttp1.responseText

Set obj1 = doc1.getelementbyid("stat_overview")
For Each obj3 In obj1.getelementsbytagname("div")
    If obj3.innerText Like "*BATTLE RANK*" Then
        player_rank = obj3.getelementsbytagname("b")(0).innerText
        Exit Function
    End If
Next obj3
'....

这篇关于如何使用 VBA 获取网页元素的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！