Web Query with auto login

[blxjgray]

I am attempting to use a VBA web query to get table data into excel.
I have successfully pulled the data in, but now need to automate the login.
The problem is I can open an IE session and login succesfully with code but this doesn't affect the login for the web query.
It seems as though the IE session has no affect on the Web Query session in excel.

What I am missing here?

Sub TenantImport1()

        Set ie = CreateObject("InternetExplorer.Application")

        With ie

        .Visible = True

        .navigate "http://xxx.xxx.xxx.xxx/login"

        Do Until .readyState = 4

        DoEvents

        Loop

        Set ipf = ie.Document.all.Item("username")

        ipf.Value = "My User Name"

        Set ipf = ie.Document.all.Item("password")

        ipf.Value = "My Password"

        SendKeys "~", True

    End With
       
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://xxx.xxx.xxx.xxx/ord?historydata", Destination:=Range("A" & Rows.Count).End(xlUp).Offset(3))
        .Name = "My Table"
        .FieldNames = False
        .RowNumbers = True
        .FillAdjacentFormulas = True
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
    .AdjustColumnWidth = False
    .RefreshPeriod = 0
    .WebSelectionType = xlSpecifiedTables
    .WebFormatting = xlWebFormattingRTF
    .WebTables = "1"
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .WebDisableRedirections = False
    .Refresh BackgroundQuery:=False
    End With
  
End Sub

Thanks....