Как прописать автоматический ввод логина и пароля при импорте данных с сайта

Workbooks.Open Filename:="http://www.motul-product.ru/upload/opt.xls"

Option Explicit
Function SaveWebFile(ByVal vWebFile As String, ByVal vLocalFile As String) As Boolean
 Dim oXMLHTTP As Object, i As Long, vFF As Long, oResp() As Byte
 
 Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
 oXMLHTTP.Open "GET", vWebFile, False
 oXMLHTTP.Send
 
 Do While oXMLHTTP.readyState <> 4
  DoEvents
 Loop
 
 oResp = oXMLHTTP.responseBody
 
 vFF = FreeFile
 If Dir(vLocalFile) <> "" Then Kill vLocalFile
 Open vLocalFile For Binary As #vFF
 Put #vFF, , oResp
 Close #vFF
 
 Set oXMLHTTP = Nothing
End Function
 
Sub TestingTheCode()
 SaveWebFile "http://www.motul-product.ru/upload/opt.xls", "C:\opt.xls"
End Sub

Option Explicit
 
Sub GoToWebSiteAndPlayAround()
    Dim appIE As Object
    Dim C1 As Object, E1 As Object, n1 As Integer
 
    On Error Resume Next
 
    Set appIE = CreateObject("InternetExplorer.Application")
    If Err <> 0 Then Exit Sub
 
    With appIE
        .Navigate "http://www.yandex.ru/"
        Do While (.Busy Or .readyState <> 4): DoEvents: Loop
        .Visible = True
 
        Set E1 = .document.all("login")
        If Not E1 Is Nothing Then    ' т.е. он есть!
            Set E1 = Nothing
 
            ' INPUTs <ЯНДЕКС>
            Set C1 = .document.getElementsByTagName("INPUT")
            C1("login").Value = "Sanya"
            C1("passwd").Value = "123"
 
            For n1 = 1 To C1.Length
                Set E1 = C1(n1 - 1)
 
                If E1.Value = "Войти" Or E1.Value = "Вход" Then
                    E1.Click
                    Do While (.Busy Or .readyState <> 4): DoEvents: Loop
 
                    Exit For
                End If
            Next n1
            Set E1 = Nothing: Set C1 = Nothing
        End If
        ' МЫ НА ЯНДЕКСЕ ЗАЛОГИНЕНЫ!!!
 
        .Quit
    End With    'appIE
    Set appIE = Nothing
End Sub