Use getElementById on HTMLElement instead of HTMLDocument

by 
Sub Scrape()
    Dim Browser As InternetExplorer
    Dim Document As htmlDocument
    Dim Elements As IHTMLElementCollection
    Dim Element As IHTMLElement

    Set Browser = New InternetExplorer
    Browser.Visible = True
    Browser.navigate "http://www.stackoverflow.com"

    Do While Browser.Busy And Not Browser.readyState = READYSTATE_COMPLETE
        DoEvents
    Loop

    Set Document = Browser.Document

    Set Elements = Document.getElementById("hmenus").getElementsByTagName("li")
    For Each Element In Elements
        Debug.Print Element.innerText
        'Questions
        'Tags
        'Users
        'Badges
        'Unanswered
        'Ask Question
    Next Element

    Set Document = Nothing
    Set Browser = Nothing
End Sub

More Related Contents:

  1. Excel VBA “Method ‘Document’ of object ‘IWebBrowser2’ failed”
  2. How can I automate Save as dialog box in IE11 using VBA?
  3. In Excel VBA, what is the way to check if the web page is fully loaded?
  4. Excel VBA: auto click and open file from website
  5. Loop Through All Subfolders Using VBA [duplicate]
  6. Combine rows / concatenate rows
  7. Scraping data from website using vba
  8. How to convert VBA script to Google Apps Script automatically?
  9. What is the difference between Dim, Global, Public, and Private as Modular Field Access Modifiers?
  10. Can I make this macro more efficient or faster?
  11. How to get the background color from a Conditional Formatting in Excel using VBA
  12. VBA Excel Populate ListBox with multiple columns
  13. VBA Integer Overflow at 70,000
  14. How to count up text of a different font colour in excel
  15. How to “flatten” or “collapse” a 2D Excel table into 1D?
  16. VBA Macro to compare all cells of two Excel files
  17. Automatically generating handling of issues
  18. What’s the difference between Dim As New vs Dim / Set
  19. VBA: Run time error ’91’?
  20. VBA – How the colon `:` works in VBA code with condition
  21. Exporting MS Access Forms and Class / Modules Recursively to text files?
  22. How can I assign a Variant to a Variant in VBA?
  23. VBScript to open a dialog to select a filepath
  24. Creating form programmatically in the module using vba
  25. Repeating Microsoft Word VBA until no search results found
  26. Macro to update all fields in a word document
  27. Find and FindNext for Excel VBA
  28. How to have vba execute every 10 minutes?
  29. Read and write from/to registry in VBA
  30. Unable to read data from a CSV using ADO due to the driver thinking I am working with integers/number and showing nulls instead of text

Leave a Comment