HTML表格刮使用VBA

Question

IM試圖從tr標籤的國家，但它只是給我的表的第一行我怎麼刮的特定行

Sub ipsearch() 
    Dim x As Integer 
    x = 2 

    Do Until x = 4000 

     Dim ie As New InternetExplorer  
     ie.navigate "https://whatismyipaddress.com/ip/" & Range("E" & x).Value 

     Do  
      DoEvents   
     Loop Until ie.readyState = READYSTATE_COMPLETE 

     Dim doc As HTMLDocument  
     Set doc = ie.document  
     Dim sDD As String 

     sDD = Trim(doc.getElementsByTagName("td")(, 0).innerText) 

     Range("F" & x).Value = sDD  
     x = x + 1  
    Loop 

End Sub 

藍色位是什麼我得到和黃是什麼，我想

Answer 1

這是後話，將在您的例子返回「聯合王國」：

Sub ipsearch() 
    Dim x As Long 
    x = 2 

    Do Until x = 4000 
     Dim ie As New InternetExplorer 
     ie.navigate "https://whatismyipaddress.com/ip/" & "2.99.247.66" 

     Do 
      DoEvents 

     Loop Until ie.readyState = READYSTATE_COMPLETE 
     Dim doc As HTMLDocument 
     Set doc = ie.document 
     Dim sDD As String 
     ie.Visible = True 

     sDD = Trim(doc.getElementsByTagName("tbody")(1).innerText) 
     Range("F" & x).Value = Split(sDD, vbCrLf)(5) 

     x = x + 1 

    Loop 

End Sub 

一般情況下，自動對焦新編寫更好的代碼的想法。

• 真的很高興知道你在用什麼 - 例如，在你的截圖中，來自IP的數字取自藍色以上的行，例如，從「2.99.247.66的詳細信息」。
• 當您向StackOverflow提供代碼時，請務必提及您的代碼正在使用的其他庫。你的情況這兩種：

，或者確保您的代碼使用後期綁定，因此圖書館不應該添加。 - 一般情況下，可以考慮使用Long，在Integer代替 - Why Use Integer Instead of Long?

---

• 格式代碼，當你提交。它看起來好一點。 Ctrl + K是StackOverflow中的快捷方式。
• 對於VBA使用Option Explicit。
• 嘗試硬編碼問題中的變量。你的情況：

"https://whatismyipaddress.com/ip/" & "2.99.247.66"

• 最後但並非最不重要的，很多網站都不喜歡被cralwed。只是fyi - https://www.google.com/search?q=is+crawling+legal

Answer 2

給這個鏡頭。它會把你的國名帶到Range（「A1」）。

Sub ipsearch() 
    Dim IE As New InternetExplorer, html As HTMLDocument 
    Dim post As Object 

    With IE 
     .Visible = False 
     .navigate "https://whatismyipaddress.com/ip/2.99.247.66" 
     Do Until .readyState = READYSTATE_COMPLETE: Loop 
     Set html = .document 
    End With 

    For Each post In html.getElementsByTagName("th") 
     If InStr(post.innerText, "Country:") > 0 Then [A1] = post.ParentNode.LastChild.innerText: Exit For 
    Next post 
    IE.Quit 
End Sub 

引用添加到庫中：

1. Microsoft Internet Controls 
2. Microsoft HTML Object Library 

，並使其方式速度更快，請嘗試以下之一：

Sub ipsearch() 
    Dim HTTP As New XMLHTTP60, html As New HTMLDocument 
    Dim post As Object 

    With HTTP 
     .Open "GET", "https://whatismyipaddress.com/ip/2.99.247.66", False 
     .send 
     html.body.innerHTML = .responseText 
    End With 

    For Each post In html.getElementsByTagName("th") 
     If InStr(post.innerText, "Country:") > 0 Then [A1] = post.ParentNode.LastChild.innerText: Exit For 
    Next post 
End Sub 

引用添加到庫中：

1. Microsoft XML,v6.0 ''or the version you have 
2. Microsoft HTML Object Library 

產量：

United Kingdom