sAttachment=""
mask$ = "\\ip\TNS_Loyalty\GOODSANDGROUPS_Import_AddOrUpdate_" & Sheets("Лист1").Range("A1") & "*.xml"
filename$ = dir(mask$)
if len(filename$) then sAttachment = "\\ip\TNS_Loyalty\" & filename$

Sub myButton(control As IRibbonControl)

Sub myButton(OPTIONAL control As IRibbonControl)

Sub IE_RaiseEvents(ByRef EL As Object, ByVal events$)
    On Error Resume Next
    Dim eventObj As Object, event_name
    events$ = Replace(events$, ";", ",")
    
    For Each event_name In Split(events$, ",")
        EL.raiseEvent "on" & event_name        ' for IE8
        
        Set eventObj = IE.document.createEvent("HTMLEvents")
        eventObj.initEvent event_name, True, False        ' for IE9 or newer
        EL.dispatchEvent eventObj
    Next
    Set eventObj = Nothing
End Sub

IE_RaiseEvents ColElements(4), "click,keydown,change" 

Function GetIECookiesFromFiles(ByVal domain$, Optional Apply As Boolean, Optional ExcludeUseless As Boolean) As String
    On Error Resume Next
    Dim sCookiesPath$, oCookies As Object, oFSO As Object, oFolder As Object, oFile
    Dim sContent As String, a() As String, i As Long, aItems, aCookies()
    
    ' read IE cookie files
    sCookiesPath = CreateObject("shell.application").Namespace("shell:Cookies").self.path
    Set oCookies = CreateObject("Scripting.Dictionary")
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set oFolder = oFSO.GetFolder(sCookiesPath)
    For Each oFile In oFolder.files
        If LCase(oFSO.GetExtensionName(oFile.Name)) = "txt" Then
            With oFile.OpenAsTextStream(1, 0) ' read-only, ascii
                sContent = .ReadAll
                .Close
            End With
            sContent = Replace(sContent, vbCr, "")
            ' split cookies within file
            a = Split(sContent, vbLf & "*" & vbLf)
            For i = 0 To UBound(a) - 1
                If InStr(1, a(i), domain$, vbTextCompare) > 0 Then oCookies.Add oCookies.Count, a(i)
            Next
        End If
    Next
    
    ' parse data, repack to 2d array
    aItems = oCookies.Items()
    If UBound(aItems) = -1 Then Exit Function
    
    If CookiesStore Is Nothing Then Set CookiesStore = New Dictionary        ' глобальный словарь с cookies
    ReDim aCookies(1 To UBound(aItems) + 1, 1 To 6)
    Dim param_name$, param_value$, NewCookiesList$
    
    For i = 1 To UBound(aItems) + 1
        a = Split(aItems(i - 1), vbLf)
        aCookies(i, 1) = a(0)
        aCookies(i, 2) = a(1)
        aCookies(i, 3) = a(2)
        'aCookies(i, 4) = GetInetCookieFlags(a(3))
        'aCookies(i, 5) = ConvDT(a(4), a(5))
        'aCookies(i, 6) = ConvDT(a(6), a(7))
        
        
        param_name$ = "": param_value$ = ""
        param_name$ = a(0)
        param_value$ = a(1)
        
       ' If ExcludeUseless Then param_name$ = ExcludeUselessCookie(param_name$)        
        
        If Len(param_name$) Then
            NewCookiesList$ = NewCookiesList$ & IIf(NewCookiesList$ = "", "", vbLf) & param_name$
            GetIECookiesFromFiles = GetIECookiesFromFiles & IIf(GetIECookiesFromFiles = "", "", "; ") & param_name$ & "=" & param_value$
            
            If Apply Then CookiesStore.item(param_name$) = param_value$
           Debug.Print  "Set cookie from IE cookie file" & param_name$ & " = " & param_value$
        End If
    Next   
End Function

СодержимоеФайла= GetHTTPResponse (URL$, "utf-8") 

Function GetHTTPResponse(ByVal URL$, Optional ByVal Encoding$) As String
    On Error Resume Next
    Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    With oXMLHTTP
        .Open "GET", URL$, False
        .Send
        If Len(Encoding$) Then
            With CreateObject("ADODB.Stream")
                filename$ = Environ("tmp") & "\response.txt"
                .Charset = Encoding$: .Type = 1        ' adTypeBinary:
                .Open: .Write oXMLHTTP.ResponseBody
                .SaveToFile filename$, 2
                .Type = 2        'adTypeText
                .LoadFromFile filename$
                GetHTTPResponse = .ReadText
                .Close
            End With
        Else
            GetHTTPResponse = .ResponseText
        End If
    End With
    Set oXMLHTTP = Nothing
End Function

IE.Navigate ...

Do While IE.Busy Or (IE.ReadyState < 4)
    DoEvents ' ждем пока страница прогрузится
Loop

Dim objEL As Object, SearchRange As Object
Set SearchRange = IE.document.body.GetElementsByTagName("button")
For Each objEL In SearchRange ' перебираем все теги button
    If objEL.outerHTML Like "*button2_role_download*" Then
        objEL.Click
        Exit For
    End If
Next objEL