' Объявление функции API
#If VBA7 Then
    Private Declare PtrSafe Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" _
        (ByVal pCaller As LongPtr, ByVal szURL As String, ByVal szFileName As String, _
         ByVal dwReserved As LongPtr, ByVal lpfnCB As LongPtr) 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

Sub DownloadFileFromURL()
    Dim URL As String
    Dim SavePath As String
    Dim Result As Long
    
    ' Ссылка на файл
    URL = "http://www.sartfoms.ru/forMO/obiem/2026/090226/OOMS_stac_29012026.xlsx"
    ' Путь сохранения
    SavePath = "e:\Объемы\OOMS_stac_29012026.xlsx"
    
    ' Скачивание
    Result = URLDownloadToFile(0, URL, SavePath, 0, 0)
    
    If Result = 0 Then
        MsgBox "Файл успешно скачан!", vbInformation
    Else
        MsgBox "Ошибка при скачивании.", vbCritical
    End If
End Sub