= Table.NestedJoin(#"Извлеченный текст перед разделителем", {"папка", each Text.BeforeDelimiter(_, " ", 1)}, Таблица1, {"папка"}, "Таблица1", JoinKind.LeftOuter)

=ЕСЛИ(ПСТР(A2;2;1)="0";"хорошо";"другой символ")

=ПОИСКПОЗ(C2*1;$C$5:$AN$5*1;0)

let
    Источник = Excel.CurrentWorkbook(){[Name="Запрос1"]}[Content],
    #"Переименованные столбцы" = Table.RenameColumns(Источник ,{{"IFC_Tag", "Марка"},  {"МК_Дата изменения", "Монтаж МК"}}),
    #"Измененный тип" = Table.TransformColumnTypes(#"Переименованные столбцы",{ {"Монтаж МК", type datetime}}),
    #"Строки с примененным фильтром2" = Table.SelectRows(#"Измененный тип", each Date.IsInPreviousDay([Монтаж МК]) or Date.IsInCurrentDay([Монтаж МК])),
    #"Добавлен пользовательский объект" = Table.AddColumn(#"Строки с примененным фильтром2", "Пользовательский", each DateTime.Date(DateTime.LocalNow())),
    #"Измененный тип1" = Table.TransformColumnTypes(#"Добавлен пользовательский объект",{{"Пользовательский", type text}}),
    #"Добавлен пользовательский объект1" = Table.AddColumn(#"Измененный тип1", "Пользовательский.1", each "10:00:00"),
    #"Объединенные столбцы" = Table.CombineColumns(#"Добавлен пользовательский объект1",{"Пользовательский", "Пользовательский.1"},Combiner.CombineTextByDelimiter(" ", QuoteStyle.None),"Сегодня"),
    #"Измененный тип2" = Table.TransformColumnTypes(#"Объединенные столбцы",{{"Сегодня", type datetime}}),
    #"Вычитание вставленного времени" = Table.AddColumn(#"Измененный тип2", "Вычитание", each [Сегодня] - [Монтаж МК], type duration),
    #"Строки с примененным фильтром1" = Table.SelectRows(#"Вычитание вставленного времени", each [Вычитание] > #duration(0, 0, 0, 0)),
    #"Удаленные столбцы" = Table.RemoveColumns(#"Строки с примененным фильтром1",{"Сегодня", "Вычитание"})
in
    #"Удаленные столбцы"

Private Sub Workbook_Open()

    'Проверка условия на пользователя и время
    UserName = Environ("USERNAME")
    
    If UserName = "#####" And Format(Now, "hh:mm") < "13:00" Then
    
        'Переменные для обновления запросов
        Dim ws As Worksheet, qt As QueryTable, oc As Object, IsBG_Refresh As Boolean
    
        Application.ScreenUpdating = False
        Application.DisplayAlerts = False
        
        'Путь к рабочему столу
        Dim objWSHShell As Object
        Dim DesktopPath As String
        Set objWSHShell = CreateObject("WScript.Shell")
        DesktopPath = objWSHShell.SpecialFolders("Desktop")
        
        Dim fso, folderVal As Object
        Dim wb As Workbook
        
        Set fso = CreateObject("Scripting.FileSystemObject")
        
        Dim pathArr(0)

        pathArr(0) = "\\#####\3. ПТО\8. WB\Welding Data Base AMMONIA.xlsx"

        For Each pathVal In pathArr
            nameFile = Left(Mid(pathVal, InStrRev(pathVal, "\") + 1), Len(Mid(pathVal, InStrRev(pathVal, "\") + 1)) - 5)
            Set wb = Application.Workbooks.Open(pathVal, False, True)
            wb.SaveAs DesktopPath & "\Текущие задачи\Открытый фронт поле\Источники полные\" & nameFile & ".xlsx", FileFormat:=51
            wb.Close 0
        Next
        'Копируем файлы из папки
        For Each fileVal In folderVal.Files
        If Not fso.FolderExists(DesktopPath & "\Текущие задачи\Открытый фронт поле\Источники полные\") Then fso.CreateFolder DesktopPath & "\Текущие задачи\Открытый фронт поле\Источники полные"
        fso.CopyFile fileVal.Path, DesktopPath & "\Текущие задачи\Открытый фронт поле\Источники для загрузки\" & fileVal.Name
        Next
        
        
        'Обновление запросов
        For Each oc In ThisWorkbook.Connections
            IsBG_Refresh = oc.OLEDBConnection.BackgroundQuery
            oc.OLEDBConnection.BackgroundQuery = False
            oc.Refresh
            oc.OLEDBConnection.BackgroundQuery = IsBG_Refresh
        Next
        
        'Сохранение текущего файла в папку на рабочий стол
        ThisWorkbook.SaveAs DesktopPath & "\Текущие задачи\Открытый фронт поле\Открытый фронт поле.xlsm"
        
        'Копирование файла по адресу в сети
        fso.CopyFile DesktopPath & "\Текущие задачи\Открытый фронт поле\Открытый фронт поле.xlsm", "\\#####\ОПиСП\5. Технологические трубопроводы\ОФ Поле\Открытый фронт поле.xlsm"
    
        MsgBox ("Готово !")
        
        End If
End Sub

        Set folderVal = fso.GetFolder(DesktopPath & "\Папка1")
        
        For Each fileVal In folderVal.Files
            fso.copyFile fileVal.Path, DesktopPath & "\Папка2\" & fileVal.Name
        Next