...
   Set SapGuiAuto  = GetObject("SAPGUI")
   ...

        For Each Obj In IE.Document.getElementsByClassName("inner")
          If Obj.innertext Like "Select to file GZ*" Then
            ...
            Obj.Click
            ...
          End If
        Next

     winHttpReq.Open "POST", "https://rp5.ru/responses/reFileSynop.php", False

...
IE = CreateObject("InternetExplorer.Application")
IE.Visible = False
IE.Navigate URL
While IE.ReadyState <> 4: Sleep 100: Wend
...
IE.Document.getElementsByClassName ...
...
IE.Document.getElementsByClassName("btn btn-outline-primary")(0).Click
...

        Open WFile For Input As #1
          While Not EOF(1)
            Line Input #1, tmpline
            ....

        MSE.ActiveSheet.cells(1, 20).FormulaR1C1 = "=MATCH(""*Республикасы*"",C1,0)-1"

          .FormatConditions.Add Type:=xlExpression, Formula1:="=AND(ROW()=COLUMN();RC=0;ROW()>=5)": .FormatConditions(.FormatConditions.Count).SetFirstPriority

Public Function Downloading(ByVal URL As String, ByVal LocalPath As String) As Boolean
On Error Resume Next
  If AppState.FSO.FileExists(LocalPath) Then AppState.FSO.DeleteFile LocalPath, True
  If AppState.FSO.FileExists(LocalPath) Then Downloading = True: Exit Function
  Downloading = (URLDownloadToFile(0, URL, LocalPath, 0, 0) = 0)
End Function

Dim IE As Variant, Obj As Variant
  Set IE = CreateObject("InternetExplorer.Application"): IE.Visible = True
  IE.Navigate "https://circabc.europa.eu/ui/group/b21bad6d-4ffc-4aff-8ae6-fe5f35a7480a/library/0874d9bc-2772-4c8c-8...;
  For Each Obj In IE.Document.getElementsByClassName("download")
    Obj.Click
  Next

    With Range(...)
      .FormatConditions.Add Type:=xlExpression, Formula1:="=AND(NUMBERVALUE(LEFT(RC;FIND(""|"";RC)-1);""."")=0;OR(RIGHT(RC;1)=""" & ChrW$(8364) & """;RIGHT(RC;1)=""" & ChrW$(9872) & """))"
      .FormatConditions(.FormatConditions.count).SetFirstPriority
...

    With Application.WorksheetFunction
'    =SUMPRODUCT(MAX(("2017/18"=R3)*(COLUMN(R3))))
      Debug.Print .SumProduct(.Max(("2017/18" = R3) * (.Column(R3))))
    End With

Public Function Downloading(ByVal URL As String, ByVal LocalPath As String) As Boolean
Dim ADOStream_responseBody As Variant
'Dim XMLHTTP_statusText As Variant
On Error Resume Next
  If AppState.FSO.FileExists(LocalPath) Then AppState.FSO.DeleteFile LocalPath, True
  If AppState.FSO.FileExists(LocalPath) Then Downloading = True: Exit Function
  With CreateObject("Microsoft.XMLHTTP")
    .Open "GET", Replace(URL, "\", "/"), False
    .Send
    If .Status = 200 Then ADOStream_responseBody = .responseBody
'    XMLHTTP_statusText = .statusText
    Downloading = (.Status = 200)
  End With
  If Downloading Then
    With CreateObject("ADODB.Stream")
      .Type = 1
      .Open
      .Write ADOStream_responseBody
      .SaveToFile LocalPath, 2
      .Close
    End With
  Else
'    MsgBox "Can not download file" & Chr(13) & URL & Chr(13) & XMLHTTP_statusText & "!", vbApplicationModal + vbExclamation + vbOKOnly, "Cargill"
    Downloading = False
  End If
'  Downloading = IIf(CBool(Downloading), LocalPath, vbNullString)
End Function

Public Sub test()
  Downloading "https://www.gov.uk/government/uploads/system/uploads/attachment_data/file/678222/eggs-packers-01feb1...;, "C:\Tmp\0\eggs-packers-01feb18.ods"
End Sub

.Send

#If VBA7 Then
  Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
#Else
  Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
#End If
...
  URLDownloadToFile 0, "https://www.gov.uk/government/uploads/system/uploads/attachment_data/file/678222/eggs-packers-01feb18.ods&am...;, "C:\Tmp\0\eggs-packers-01feb18.ods", 0, 0
...

Set MSW=CreateObject("Word.Application")

Environ$("temp")

C:\Users\UserName\AppData\Local\Temp

C:\Users\UserName\AppData\Local\Temp\N

Public Function Downloading(ByVal URL As String, ByVal LocalPath As String) As Boolean
Dim ADOStream_responseBody As Variant
Dim XMLHTTP_statusText As Variant
On Error Resume Next
  If AppState.FSO.FileExists(LocalPath) Then AppState.FSO.DeleteFile LocalPath, True
  If AppState.FSO.FileExists(LocalPath) Then Downloading = True: Exit Function
  With CreateObject("Microsoft.XMLHTTP")
    .Open "GET", Replace(URL, "\", "/"), "False"
    .Send
    If .Status = 200 Then ADOStream_responseBody = .responseBody
    XMLHTTP_statusText = .statusText
    Downloading = (.Status = 200)
  End With
  If Downloading Then
    With CreateObject("ADODB.Stream")
      .Type = 1
      .Open
      .Write ADOStream_responseBody
      .SaveToFile LocalPath, 2
      .Close
    End With
  Else
'    MsgBox "Can not download file" & Chr(13) & URL & Chr(13) & XMLHTTP_statusText & "!", vbApplicationModal + vbExclamation + vbOKOnly, "Cargill"
    Downloading = False
  End If
'  Downloading = IIf(CBool(Downloading), LocalPath, vbNullString)
End Function

  With CreateObject("ADODB.Connection")
    .Open "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};ReadOnly=True;DBQ=" & SourceFullFilePath & ";"
    TSQL = "SELECT F1 AS WDate,F3 AS BE,F4 AS BG,F6 AS CZ,F8 AS DK,F10 AS DE,F11 AS EE,F12 AS GR,F13 AS ES,F14 AS FR,F15 AS HR,F17 AS IE,F18 AS IT,F19 AS CY,F20 AS LV,F22 AS LT,F25 AS HU,F27 AS MT,F28 AS NL,F29 AS AT,F30 AS PL,F32 AS PT,F33 AS RO,F35 AS SI,F36 AS SK,F37 AS FI,F38 AS SE,F40 AS UK,F43 AS EU FROM [" & PxSheetName & "$" & "A15:AQ50000" & "] in '" & SourceFullFilePath & "'[Excel 12.0;HDR=NO;] WHERE (F1 IS NOT NULL) ORDER BY F1"
    With .Execute(TSQL) ' Здесь возникает ошибка
      ...
      .Close
    End With
    .Close
   End With

"[Microsoft][ODBC Excel Driver] Selected collating sequence not supported by the operating system."

Dim DataToDB(1 To 500000, 1 To 4) As String

Public Function PushDataToCometDB(TSQL As String, TmpData() As String, ArrayDepth As Long) As String
Dim Rng As String
Dim TmpFileName As String
  If ArrayDepth <= 1 Then Exit Function
  With CreateObject("Excel.Application")
    .Visible = False
    TmpFileName = Environ$("Temp") & "\" & AppState.FSO.GetBaseName(AppState.FSO.GetTempName()) & ".xlsx"
    .workbooks.Add
    .sheets(1).Name = "Tmp"
    Rng = .sheets(1).Name & "$" & .ConvertFormula("R1C1:R" & ArrayDepth & "C" & UBound(TmpData, 2), -4150, 1, 4)
    .sheets("Tmp").Range(.sheets("Tmp").Cells(1, 1), .sheets("Tmp").Cells(ArrayDepth, UBound(TmpData, 2))) = TmpData()
    .activeworkbook.Close FileName:=TmpFileName, SaveChanges:=True
    .Quit
  End With
  AppState.Acc.Execute Replace(TSQL, "[Tbl]", " [Excel 8.0;DATABASE=" & TmpFileName & "].[Tmp$A1:D519]")
  If AppState.FSO.FileExists(TmpFileName) Then AppState.FSO.DeleteFile TmpFileName, True
'  MSETmpFile = "[Excel 8.0;DATABASE=" & TmpFileName & "].[" & Rng & "]"
End Function

        PushDataToCometDB "INSERT INTO AnPrPx (PxDate,PxProduct,PxCountry,PxValue) SELECT PxDate,PxProduct,PxCountry,PxValue FROM [Tbl] AS HS", DataToDB(), j

Dim R As Range
R.AddComment
R.Comment.Shape.Fill.UserPicture "C:\Tmp\1.png"

 WorksheetFunction.IfError(WorksheetFunction.Match("29.06.2016", Rows(2), 0), 0) 

"Unable to get the Match property of the WorksheetFunction class"