使用 vba 从网站抓取数据不起作用

2024-05-20 • 问答

我想创建一个抓取网站的玩家姓名列表。 Internet Explorer 启动，但出现运行时错误“438” - 对象不支持此属性或方法。

网页结构

我的编码如下：

Option Explicit

Sub Kickbase()

Dim IE As New shdocvw.internetexplorer
Dim HTMLdoc As MSHTML.HTMLDocument
Dim HTMLPlayers As MSHTML.IHTMLElementCollection
Dim HTMLPlayer As MSHTML.IHTMLElement
Dim i As Integer
Dim HTMLfirstName As Object
Dim firstName As String


IE.Visible = True
IE.Navigate "https://play.kickbase.com/transfermarkt/kaufen"

Do While IE.ReadyState <> READYSTATE_COMPLETE
Loop

Application.Wait (Now + TimeValue("0:00:10"))

Set HTMLdoc = IE.Document

Set HTMLPlayers = HTMLdoc.getElementsByClassname("players")

For i = 0 To HTMLPlayers(0).getElementsByClassname("firstName").Length - 1

Set HTMLfirstName = HTMLPlayers(0).getElementsByClassname("firstName")

   If Not HTMLfirstName Is Nothing Then
    firstName = Trim(HTMLfirstName.innerText)
    
   Else
     firstName = "no_value"
   End If

Debug.Print firstName

Next i

End Sub

我已激活以下库：

Sub Kickbase() Dim IE As New SHDocVw.InternetExplorer Dim HTMLdoc As MSHTML.HTMLDocument Dim HTMLPlayers As Object Dim i As Integer Dim firstName As String IE.Visible = True IE.navigate "https://play.kickbase.com/transfermarkt/kaufen" Do While IE.readyState <> READYSTATE_COMPLETE DoEvents Loop Application.Wait (Now + TimeValue("0:00:10")) Set HTMLdoc = IE.document Set HTMLPlayers = HTMLdoc.getElementsByClassName("playerName") For i = 0 To HTMLPlayers(0).getElementsByClassName("firstName").Length - 1 firstName = Trim$(HTMLPlayers(0).getElementsByClassName("firstName")(i).innerText) If firstName = vbNullString Then firstName = "no_value" Debug.Print firstName Next i '=== Optional depending on your use case,remember to close IE or else it will remain there === 'IE.Quit 'Set IE = Nothing End Sub

使用 vba 从网站抓取数据不起作用

xukaizhan 回答：使用 vba 从网站抓取数据不起作用

大家都在问