Veeam® is happy to provide the Microsoft community with a study guide prepared by MVP and MCT, Orin Thomas. This guide will take you through each of the exam objectives, helping you to prepare for and pass the examination.
Sub Macro1() ' ' Macro1 Macro ' Dim IE As Object, obj As Object Dim myState As String Dim r As Integer, c As Integer, t As Integer Dim elemCollection As Object Dim accountno As String 'add the "Microsoft Internet Controls" reference in your VBA Project indirectly Set IE = CreateObject("InternetExplorer.Application") 'more variables for the inputboxes - makes our automation program user friendly 'accountno = InputBox("Enter the Transferring Account No") With IE .Visible = True .navigate ("http://ec.europa.eu/environment/ets/transaction.do") ' we ensure that the web page downloads completely before we fill the form automatically While IE.ReadyState <> 4 DoEvents Wend 'accessing the Transferring account number into the correct field IE.Document.All.Item("originatingAccountNumber").innertext = "1234" ' accessing the button IE.Document.getElementsByName("search").Item.Click ' again ensuring that the web page loads completely before we start scraping data Do While IE.busy: DoEvents: Loop 'Clearing any unnecessary or old data in Sheet1 ThisWorkbook.Sheets("Sheet1").Range("A1:K500").ClearContents '???this is where I get stuck Set elemCollection = IE.Document.getElementsByTagname("????") For t = 0 To (elemCollection.Length - 1) For r = 0 To (elemCollection(t).Rows.Length - 1) For c = 0 To (elemCollection(t).Rows(r).Cells.Length - 1) ThisWorkbook.Worksheets(1).Cells(r + 1, c + 1) = elemCollection(t).Rows(r).Cells(c).innertext Next c Next r Next t End With ' cleaning up memory Set IE = Nothing End Sub