Sub Извлечение_данных_1С()
 
    Dim wb As Workbook
    Dim FileFormat As Long, FileDate As String, LocalAdress As String
    Dim objFSO As Object
    Dim sFileName As String
    
    sFileName = "//222223/1Cdata/zzzzz.xlsx"                   'имя исходного файла отчета
    Set objFSO = CreateObject("Scripting.FileSystemObject")    'создаем объект FileSystemObject
    If objFSO.FileExists(sFileName) = False Then               'проверяем наличие файла на серваке 1С
        MsgBox "Нет файла отчета на сетевом диске", vbCritical, "Дашборд"
        Exit Sub
    Else
        FileDate = FileDateTime(sFileName)                     'определяем дату выгрузки
        FileDate = Left(FileDate, InStrRev(FileDate, " ") - 1) 'извлекаем только дату в формате текст
        FileFormat = 51                                        'определяем формат сохранения -> xlsx
        LocalAdress = ThisWorkbook.Path & "/Data " & FileDate & ".xlsx"  'определяем путь с новым именем файла пересохраняемого отчета
        
        Err.Clear
        On Error Resume Next
        Set wb = Workbooks.Open(LocalAdress, ReadOnly:=False)
        If wb Is Nothing Then                                  'если файла нет
            Application.ScreenUpdating = 0                     'отключаем оповещения
            Application.DisplayAlerts = 0
 
            Set wb = Application.Workbooks.Open(sFileName, False)
            wb.SaveAs LocalAdress, FileFormat
            wb.Close
            DoEvents
             
            Application.ScreenUpdating = 1                       'включаем оповещения
            Application.DisplayAlerts = 1
            Range("B4").Value = "Data " & FileDate & ".xlsx"
            Range("B7").Value = Now
            MsgBox "В папку с дашбордом сохранен Data " & FileDate & ".xlsx", vbInformation, "Дашборд"
        Else
            wb.Close
            MsgBox "Файл этой выгрузки уже есть. Если требуется обновить удалите его из папки с текущим файлом"
            Exit Sub
        
        End If
    End If
End Sub

    Content = if Text.StartsWith(fParam("Path"),"https://") then Web.Contents(fParam("Path")) else File.Contents(fParam("Path")),
    Источник = Excel.Workbook(Content, null, true),

Sub Извлечение_данных_1С()

    Dim sFolder As String, sFiles As String
    Dim wb As Workbook
    Dim FileFormat As Long, FileDate As String, Adress As String

    Dim objFSO As Object
    Dim sFileName As String, sNewFileName As String
 
    sFileName = "//ru22223/1Cdata/Vigruzka.xlsx"   'имя исходного файла отчета
    
    Set objFSO = CreateObject("Scripting.FileSystemObject") 'создаем объект FileSystemObject
    
    If objFSO.FileExists(sFileName) = False Then 'проверяем наличие файла на серваке 1С
        MsgBox "Нет файла отчета на сетевом диске", vbCritical, "Дашборд"
        Exit Sub
    Else
        FileDate = FileDateTime(sFileName) 'определяем дату выгрузки
        FileDate = Left(FileDate, InStrRev(FileDate, " ") - 1) ' извлекаем только дату в формате текст
        FileFormat = 51 ' определяем формат сохранения -> xlsx
        sFolder = ThisWorkbook.Path 'записываем путь текущего файла
        adress = sFolder & "/Data " & FileDate & ".xlsx" 'определяем путь с новым именем файла пересохраняемого отчета
        If objFSO.FileExists(adress) = True Then ' пересохраненный  файл уже есть?
            MsgBox "Файл этой выгрузки уже есть. Если требуется обновить удалите его из папки с текущим файлом"
            Exit Sub
        Else
            
            Application.ScreenUpdating = 0 'отключаем оповещения
            Application.DisplayAlerts = 0

            Set wb = Application.Workbooks.Open(sFileName, False)
            wb.SaveAs adress, FileFormat
            wb.Close
            DoEvents
            
            Application.ScreenUpdating = 1 'включаем оповещения
            Application.DisplayAlerts = 1
            Range("B4").Value = "Data " & FileDate & ".xlsx"
            Range("B7").Value = Now
            MsgBox "В папку с дашбордом сохранен Data " & FileDate & ".xlsx", vbInformation, "Дашборд"
        End If
    End If
End Sub