let
Источник = Folder.Files("G:\Общая\ОРБиРБП\Отдел по работе с браком\Брак"),
#"Строки с примененным фильтром" = Table.SelectRows(Источник, each ([Name] = "Консолидированный список брака Калинин.xlsm" or [Name] = "Консолидированный список брака Каратаева.xlsm" or [Name] = "Консолидированный список брака Разумовская.xlsm" or [Name] = "Консолидированный список брака Свинолупов.xlsm")),
#"Удаленные столбцы" = Table.RemoveColumns(#"Строки с примененным фильтром",{"Extension", "Date accessed", "Date modified", "Date created", "Attributes", "Folder Path"}),
#"Извлеченный текст между разделителями" = Table.TransformColumns(#"Удаленные столбцы", {{"Name", each Text.BetweenDelimiters(_, " ", ".", 2, 0), type text}}),
#"Вызвать настраиваемую функцию1" = Table.AddColumn(#"Извлеченный текст между разделителями", "Преобразовать файл из Брак (2)", each #"Преобразовать файл из Брак (2)"([Content])),
#"Другие удаленные столбцы1" = Table.SelectColumns(#"Вызвать настраиваемую функцию1",{"Name", "Преобразовать файл из Брак (2)"}),
#"Переименованные столбцы1" = Table.RenameColumns(#"Другие удаленные столбцы1",{{"Name", "1"}}),
#"Столбец расширенной таблицы1" = Table.ExpandTableColumn(#"Переименованные столбцы1", "Преобразовать файл из Брак (2)", Table.ColumnNames(#"Преобразовать файл из Брак (2)"(#"Пример файла (2)"))),
#"Условный столбец добавлен" = Table.AddColumn(#"Столбец расширенной таблицы1", "Пользовательская", each if Text.Contains([Name], " (") then 1 else null),
#"Строки с примененным фильтром1" = Table.SelectRows(#"Условный столбец добавлен", each ([Пользовательская] = 1)),
#"Удаленные столбцы1" = Table.RemoveColumns(#"Строки с примененным фильтром1",{"Item", "Kind", "Hidden", "Пользовательская"}),
#"Развернутый элемент Data" = Table.ExpandTableColumn(#"Удаленные столбцы1", "Data", {"Column1", "Column2", "Column3", "Column4", "Column5", "Column6", "Column7"}, {"Column1", "Column2", "Column3", "Column4", "Column5", "Column6", "Column7"}),
#"Строки с примененным фильтром2" = Table.SelectRows(#"Развернутый элемент Data", each ([Column1] = 1)),
#"Удаленные столбцы2" = Table.RemoveColumns(#"Строки с примененным фильтром2",{"Name", "Column1"}),
#"Переименованные столбцы" = Table.RenameColumns(#"Удаленные столбцы2",{{"Column2", "ЗВК"}, {"Column4", "Дата нач."}, {"Column5", "Дата конц."}, {"Column6", "Критерий"}, {"Column3", "ЗП"}, {"Column7", "Комментарий"}}),
#"Измененный тип1" = Table.TransformColumnTypes(#"Переименованные столбцы",{{"Дата конц.", type date}, {"Дата нач.", type date}}),
#"Добавлен пользовательский объект" = Table.AddColumn(#"Измененный тип1", "Дней", each [#"Дата конц."]-[#"Дата нач."]),
#"Измененный тип" = Table.TransformColumnTypes(#"Добавлен пользовательский объект",{{"Дней", Int64.Type}}),
#"Строки с примененным фильтром3" = Table.SelectRows(#"Измененный тип", each ([Критерий] <> "Завершен" and [Критерий] <> "Завершено"))
in
#"Строки с примененным фильтром3" |
