<div>
<div class="content wysiwyg-content">
In the code below, I want to include Login &amp;&nbsp;Password Parameter. 
 
Sub WebQuery() 
 
ActiveWorkbook.Worksheets.Add 
&nbsp; &nbsp; With ActiveSheet.QueryTables.Add(Connection:= _ 
&nbsp; &nbsp; &nbsp; &nbsp; &quot;URL;<a href="https://qhos.qualcommapps.com/QHOS/~hours/driverweek.aspx?id=93465" rel="ugc">https://qhos.qualcommapps.com/QHOS/~hours/driverweek.aspx?id=93465</a>&quot;, _ 
&nbsp; &nbsp; &nbsp; &nbsp; Destination:=Range(&quot;$A$1&quot;)) 
&nbsp; &nbsp; &nbsp; &nbsp; .Name = &quot;q?s=usdCAd=x_1&quot; 
&nbsp; &nbsp; &nbsp; &nbsp; .FieldNames = True 
&nbsp; &nbsp; &nbsp; &nbsp; .RowNumbers = False 
&nbsp; &nbsp; &nbsp; &nbsp; .FillAdjacentFormulas = False 
&nbsp; &nbsp; &nbsp; &nbsp; .PreserveFormatting = True 
&nbsp; &nbsp; &nbsp; &nbsp; .RefreshOnFileOpen = False 
&nbsp; &nbsp; &nbsp; &nbsp; .BackgroundQuery = True 
&nbsp; &nbsp; &nbsp; &nbsp; .RefreshStyle = xlInsertDeleteCells 
&nbsp; &nbsp; &nbsp; &nbsp; .SavePassword = False 
&nbsp; &nbsp; &nbsp; &nbsp; .SaveData = True 
&nbsp; &nbsp; &nbsp; &nbsp; .AdjustColumnWidth = True 
&nbsp; &nbsp; &nbsp; &nbsp; .RefreshPeriod = 0 
&nbsp; &nbsp; &nbsp; &nbsp; .WebSelectionType = xlEntirePage 
&nbsp; &nbsp; &nbsp; &nbsp; .WebFormatting = xlWebFormattingNone 
&nbsp; &nbsp; &nbsp; &nbsp; .WebPreFormattedTextToColumns = True 
&nbsp; &nbsp; &nbsp; &nbsp; .WebConsecutiveDelimitersAsOne = True 
&nbsp; &nbsp; &nbsp; &nbsp; .WebSingleBlockTextImport = False 
&nbsp; &nbsp; &nbsp; &nbsp; .WebDisableDateRecognition = False 
&nbsp; &nbsp; &nbsp; &nbsp; .WebDisableRedirections = False 
&nbsp; &nbsp; &nbsp; &nbsp; .Refresh BackgroundQuery:=False 
&nbsp; &nbsp; End With 
End Sub 
 
Please advise. &nbsp;Thank you.
</div>
</div>

In the code below, I want to include Login & Password Parameter.

Sub WebQuery()

ActiveWorkbook.Worksheets.Add
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;https://qhos.qualcommapps.com/QHOS/~hours/driverweek.aspx?id=93465", _
        Destination:=Range("$A$1"))
        .Name = "q?s=usdCAd=x_1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub

Please advise.  Thank you.

Web Query

Microsoft Office is an integrated suite of applications that includes Outlook, Word, Excel, Access, PowerPoint, Visio and InfoPath, along with a number of tools to assist in making the individual components work together. Coding within and between the projects is done in Visual Basic for Applications, known as VBA.

Microsoft Office

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.