Open Ie And Interact With Web Form Using Excel Vba

I'm trying to create an excel spreadsheet with a landing page where I input a specific week number, period number and/or year. I would then click a button to open an instance of In

Solution 1:

Try something like the following. I am showing the different options you might consider so remember to comment out those you don't want to use.

You need to add a reference to Microsoft Internet Controls via VBE > Tools > References or use late bound call of

Dim ie AsNew InternetExplorer : Set ie = CreateObject("InternetExplorer.Application")

VBA:

Option Explicit
Public Sub MakeSelections()
    Dim ie AsNew InternetExplorer
    Const URL As String = "yourURL"
    With ie
        .Visible =True
        .navigate URL

        While .Busy Or .readyState <4: DoEvents: Wend

        With .document
            .querySelector("[value='1']").Checked =True'Yesterday. CSS attribute = value selector
            .querySelector("[value='3']").Checked = True 'Week
            .querySelector("[value='4']").Checked =True'Period
            .querySelector("[value='6']").Checked = True 'Year
            .getElementById("week").Value=6'week value
            .getElementById("weekyear").Value = 2018 'financial yearvalue
            .getElementById("period").Value=6'period value
            .getElementById("periodyear").Value = 2018 'period financial yearvalue
            .getElementById("yearyear").Value=2019'financial year value
            .querySelector("[value='Display Report']").Click 'display report
        EndWith
        Stop '<== Delete me later
        '.Quit '<== Remember to quit application
    End With
End Sub