Sub Rab_IE()
    Dim ie, rod
    Dim pe1, pe2, pf, pi, pt, but
    Dim emm: emm = "пример@gmail.com"
    Dim fio: fio = "Моторин"
    Dim nam: nam = "Александр"
    Dim Text: Text = "Примите, пожалуйста, обращение. Подробности в файле"
    
Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.navigate ("http://services.government.ru/letters/form/")
 
    pe1 = ie.document.getElementsByClassName("input__text input__email textinput required")
    pe1.Value = emm
    
    pe2 = ie.document.getElementsByClassName("input__text input__email textinput")
    pe2.Value = emm ' НЕ ЗАПОЛНЯЕТ ПОЛЕ
    
    pf = ie.document.getElementsByClassName("input__text input__surname textinput required")
    pf.Value = fio
    
    pi = ie.document.getElementsByClassName("input__text input__firstname textinput required")
    pi.Value = nam
    
    pt = ie.document.getElementsByClassName("textarea input__ question required")
    pt.Value = Text
 
End Sub

 Function get_otv()
Dim URL$, XMLHTTP, nam, t, nat, iner
    URL$ = "http://autotrade.su/picw.php?code=%23%231M8L%23%23%23&state=1&size=800.260"
        Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
        XMLHTTP.Open "GET", URL$, "False"
        XMLHTTP.SetRequestHeader "Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8"
        XMLHTTP.SetRequestHeader "Accept-Language", "ru,en-US;q=0.8,en;q=0.6"
        XMLHTTP.SetRequestHeader "Connection", "keep-alive"
        XMLHTTP.SetRequestHeader "Host", "autotrade.su"
        XMLHTTP.SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/48.0.2564.41 Safari/537.36 OPR/35.0.2066.10 (Edition beta)"
        XMLHTTP.send
        get_otv = XMLHTTP.responseBody ' здесь Byte-массив. Как сделать из него картинку
End Function

            fl = pt & Chr(92) & fl ' собираем полный путь
            Set WBi = Workbooks.Open(fl) 'открываем книгу

Do While Len(fl) > 0 'перебираем файлы в папке с активной книгой
    On Error Resume Next            ' Откладываем перехват ошибок.

    If fl <> ActiveWorkbook.Name Then  'если не активный файл, то делаем
        If Len(fl) > 0 Then ' если есть файл - работаем с ним
           f2 = fl
           Debug.Print f2
            With Sho 'выбираем лист для сокращения записей в коде
                lr = .Cells(.Rows.Count, 4).End(xlUp).Row + 1
                
                .Cells(lr, 4).Formula = "='" & pt & "[" & f2 & "]" & "Чек-лист" & "'!" & "$C$7"
                Debug.Print Len(.Cells(lr, 4).Formula), .Cells(lr, 4).Formula

Application.DisplayAlerts = False

  Set WBi = Application.Workbooks.Open("C:\test.csv")  'путь к книге'открыли книгу

Set rs = CreateObject("ADODB.Recordset")
Set cn = CreateObject("ADODB.Connection")

With cn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "Data Source=C:\ПРТ1.xls;" & "Extended Properties=Excel 8.0;"
    .Open
End With

sCon = "select * from [Результат$]"
Set rs = cn.Execute(sCon)
[a2].CopyFromRecordset rs

Set WB = CreateObject("InternetExplorer.Application")
WB.Navigate STROKA
STR_HTML = WB.Document.body.innerhtml
STR_HTML = GetResponse(STROKA)
STR_HTML = Get_Html(STROKA)

Public Function Get_Html(S As String)
    Dim S1, SS
    ''с загрузкой файла на диск
    'Путь по которому сохраняем скачанную страницу
    S1 = Environ("temp") & "\Temp_2.log"
    'загружаем страницу
    URLDownloadToFile 0, S, S1, 0, 0
    SS = (CreateObject("Scripting.FileSystemObject").GetFile(S1).OpenAsTextStream(1).ReadAll)
    Get_Html = UTF8ToWin(SS)
End Function

Function GetHTTPResponse(ByVal sURL As String) As String
     On Error Resume Next
     Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
     With oXMLHTTP
         .Open "GET", sURL, False
        .send
         GetHTTPResponse = .responseText
     End With
     Set oXMLHTTP = Nothing
End Function

Dim Q As CommandBar
    For Each Q In CommandBars
        Debug.Print Q.NameLocal
    Next
    Set Q = CommandBars("Мои")' здесь, естественно, ошибка.