Sub Обновление_связей_всех_файлов()
'
' Обновление_связей_всех_файлов Макрос
'
      Call OpenAll_xls_files_from_DIR("\Бюджет\МОДЕЛЬ\ГОД 2018\Тест\")
End Sub

Function OpenAll_xls_files_from_DIR(myPath As String)
myName = Dir(myPath)
Do While myName <> ""
    If myName <> "." And myName <> ".." And Right(myName, 5) = ".xlsx" Then
        Debug.Print myName    ' Display entry only if it
        Workbooks.Open Filename:=(myPath & myName), UpdateLinks:=True
        ActiveWorkbook.Save
        Workbooks(myName).Close False
    End If
    myName = Dir    ' Get next entry.
Loop

ActiveWorkbook.UpdateLink , Type:= _
        xlExcelLinks

End Function

Sub Обновление_связей_всех_файлов()
'
' Обновление_связей_всех_файлов Макрос
'
Call OpenAll_xls_files_from_DIR(ThisWorkbook.Path)
End Sub

Function OpenAll_xls_files_from_DIR(myPath As String)
myName = Dir(myPath)
Do While myName <> ""
    If myName <> "." And myName <> ".." And ThisWorkbook.Name <> myName And Right(myName, 5) = ".xlsx" Then
        Debug.Print myName    ' Display entry only if it
        Application.DisplayAlerts = False
        Workbooks.Open Filename:=(myPath & myName), UpdateLinks:=True
        ActiveWorkbook.Save
        Workbooks(myName).Close False
    End If
    myName = Dir    ' Get next entry.
Loop

End Function

Sub Обновление_связей_всех_файлов()
'
' Обновление_связей_всех_файлов Макрос
'
Application.DisplayAlerts = False
    Workbooks.Open Filename:=ThisWorkbook.Path & "/Смета.xlsx", UpdateLinks _
        :=3
    ActiveWorkbook.Save
    ActiveWindow.Close
    Application.DisplayAlerts = False
    Workbooks.Open Filename:=ThisWorkbook.Path & "/ТЭП.xlsx", UpdateLinks _
        :=3
    ActiveWorkbook.Save
    ActiveWindow.Close
    ActiveWorkbook.Save
End Sub