VBA - add in username and password to open a web page then download

[j4ymf]

Hello
this code works and downloads the data of the corona virus and pastes it in A10

I would like to change the site in the URL line that requires a username and password
where do I data in a username and password in the VBA

Sub Get_webpage()

    'clear old data
   Rows("6:251").Select
    Selection.Delete Shift:=xlUp

    On Error GoTo error
    Application.ScreenUpdating = False
    
        With Sheets("Sheet1").QueryTables.Add(Connection:= _
            "URL;https://virusncov.com", _
             '"URL;http://88.215.27.26/Firetronic/Auth/App.aspx?list=BLCustom_4&mitId=1016&", _
            Destination:=Sheets("Sheet1").Range("A10"))
        
            .BackgroundQuery = True
            .TablesOnlyFromHTML = True
            .Refresh BackgroundQuery:=False
            .SaveData = True
        End With
        

error:
Application.ScreenUpdating = True
End Sub

 

[j4ymf]

Hello
Ive pinched some code but it still does not login and bring down the data!!
Please could you help?

Sub Get_webpage()

Rows("6:251").Select
    Selection.Delete Shift:=xlUp

    'Copy web page to sheet1
    On Error GoTo error
    Application.ScreenUpdating = False
    
    Set ie = CreateObject("InternetExplorer.Application")
    With ie
        .Visible = True
        .Navigate "http://88.215.27.26/Firetronic/Login.aspx?ReturnUrl=Auth/App.aspx"
        Do Until .ReadyState = 4
            DoEvents
        Loop
        .document.all.Item("loginUserName").Value = "xxxxx"
        .document.all.Item("loginUserPassword").Value = "xxxxx"
        .document.forms(0).submit
    End With
 
    
        With Sheets("Sheet1").QueryTables.Add(Connection:= _
            "URL;http://88.215.27.26/Firetronic/Auth/App.aspx?list=BLCustom_4&mitId=1016&#", _
            Destination:=Sheets("Sheet1").Range("A10"))
        
            .BackgroundQuery = True
            .TablesOnlyFromHTML = True
            .Refresh BackgroundQuery:=False
            .SaveData = True
        End With
        
error:
Application.ScreenUpdating = True

Range("B5").Select


End Sub