let Источник = Folder.Files("F:\Правление 21.05.2019\Исходные данные\95 мониторинга (new)"), #"Добавлен пользовательский объект1" = Table.AddColumn(Источник, "Пользовательская1", each #"Уровни и веса"([Folder Path]&[Name])), #"Добавлен пользовательский объект" = Table.AddColumn(#"Добавлен пользовательский объект1", "Пользовательская", each getDate([Folder Path]&[Name], [Пользовательская1])), #"Удаленные столбцы" = Table.RemoveColumns(#"Добавлен пользовательский объект",{"Content", "Name", "Extension", "Date accessed", "Date modified", "Date created", "Attributes", "Folder Path", "Пользовательская1"}), #"Развернутый элемент Пользовательская" = Table.ExpandTableColumn(#"Удаленные столбцы", "Пользовательская", {"ФИО", "Должность", "Подразделение", "Нижний", "Целевой", "Верхний", "Вес", "Норм", "№#(lf)п.п.", "КПЭ ", "Единица измерения", "I квартал", "Column8", "Column9", "Примечание#(lf)(причины отклонения от плана)", "II квартал", "Column12", "Column13", "1 полугодие", "Column15", "Column16", "Примечание#(lf)(причины отклонения от плана)_1", "III квартал", "Column19", "Column20", "9 месяцев", "Column22", "Column23", "Примечание#(lf)(причины отклонения от плана)_2", "IV квартал", "Column26", "Column27", "ГОД", "Column29", "Column30", "Примечание#(lf)(причины отклонения от плана)_3"}, {"ФИО", "Должность", "Подразделение", "Нижний", "Целевой", "Верхний", "Вес", "Норм", "№#(lf)п.п.", "КПЭ ", "Единица измерения", "I квартал", "Column8", "Column9", "Примечание#(lf)(причины отклонения от плана)", "II квартал", "Column12", "Column13", "1 полугодие", "Column15", "Column16", "Примечание#(lf)(причины отклонения от плана)_1", "III квартал", "Column19", "Column20", "9 месяцев", "Column22", "Column23", "Примечание#(lf)(причины отклонения от плана)_2", "IV квартал", "Column26", "Column27", "ГОД", "Column29", "Column30", "Примечание#(lf)(причины отклонения от плана)_3"}), #"Переименованные столбцы" = Table.RenameColumns(#"Развернутый элемент Пользовательская",{{"I квартал", "I квартал 2017 (факт)"}, {"Column8", "I квартал 2018 (план)"}, {"Column9", "I квартал 2018 (факт)"}, {"Примечание (причины отклонения от плана)", "Примечание (причины отклонения от плана за I квартал 2018)"}, {"II квартал", "II квартал 2017 (факт)"}, {"Column12", "II квартал 2018 (план)"}, {"Column13", "II квартал 2018 (факт)"}, {"1 полугодие", "1 полугодие 2017 (факт)"}, {"Column15", "1 полугодие 2018 (план)"}, {"Column16", "1 полугодие 2018 (факт)"}, {"Примечание (причины отклонения от плана)_1", "Примечание (причины отклонения от плана за I полугодие 2018)"}, {"III квартал", "III квартал 2017 (факт)"}, {"Column19", "III квартал 2018 (план)"}, {"Column20", "III квартал 2018 (факт)"}, {"9 месяцев", "9 месяцев 2017 (факт)"}, {"Column22", "9 месяцев 2018 (план)"}, {"Column23", "9 месяцев 2018 (факт)"}, {"Примечание (причины отклонения от плана)_2", "Примечание (причины отклонения от плана за 9 месяцев 2018)"}, {"IV квартал", "IV квартал 2017 (факт)"}, {"Column26", "IV квартал 2018 (план)"}, {"Column27", "IV квартал 2018 (факт)"}, {"ГОД", "2017 (факт)"}, {"Column29", "2018 (план)"}, {"Column30", "2018 (факт)"}, {"Примечание (причины отклонения от плана)_3", "Примечание (причины отклонения от плана за 2018)"}}), #"Строки с примененным фильтром" = Table.SelectRows(#"Переименованные столбцы", each ([Целевой] <> 0)), #"Строки с примененным фильтром1" = Table.SelectRows(#"Строки с примененным фильтром", each not Text.Contains([#"КПЭ "], "справочно")) in #"Строки с примененным фильтром1"
[/vba]
Ошибок никаких не выводит. Но при загрузке выдает ошибку DataFormat.Eror Недопустимое значение ячейки #REF. Раньше такое уже было. В каком-то файле есть ячейка с #Н/Д. Но раньше он показывал в каком файле ошибка. А теперь нет. Открывать 95 файлов и искать - не вариант.
Как можно выявить такой файл?
Добрый день, участникам форума!
При помощи PQ обрабатываю 95 файлов.
[vba]
Код
let Источник = Folder.Files("F:\Правление 21.05.2019\Исходные данные\95 мониторинга (new)"), #"Добавлен пользовательский объект1" = Table.AddColumn(Источник, "Пользовательская1", each #"Уровни и веса"([Folder Path]&[Name])), #"Добавлен пользовательский объект" = Table.AddColumn(#"Добавлен пользовательский объект1", "Пользовательская", each getDate([Folder Path]&[Name], [Пользовательская1])), #"Удаленные столбцы" = Table.RemoveColumns(#"Добавлен пользовательский объект",{"Content", "Name", "Extension", "Date accessed", "Date modified", "Date created", "Attributes", "Folder Path", "Пользовательская1"}), #"Развернутый элемент Пользовательская" = Table.ExpandTableColumn(#"Удаленные столбцы", "Пользовательская", {"ФИО", "Должность", "Подразделение", "Нижний", "Целевой", "Верхний", "Вес", "Норм", "№#(lf)п.п.", "КПЭ ", "Единица измерения", "I квартал", "Column8", "Column9", "Примечание#(lf)(причины отклонения от плана)", "II квартал", "Column12", "Column13", "1 полугодие", "Column15", "Column16", "Примечание#(lf)(причины отклонения от плана)_1", "III квартал", "Column19", "Column20", "9 месяцев", "Column22", "Column23", "Примечание#(lf)(причины отклонения от плана)_2", "IV квартал", "Column26", "Column27", "ГОД", "Column29", "Column30", "Примечание#(lf)(причины отклонения от плана)_3"}, {"ФИО", "Должность", "Подразделение", "Нижний", "Целевой", "Верхний", "Вес", "Норм", "№#(lf)п.п.", "КПЭ ", "Единица измерения", "I квартал", "Column8", "Column9", "Примечание#(lf)(причины отклонения от плана)", "II квартал", "Column12", "Column13", "1 полугодие", "Column15", "Column16", "Примечание#(lf)(причины отклонения от плана)_1", "III квартал", "Column19", "Column20", "9 месяцев", "Column22", "Column23", "Примечание#(lf)(причины отклонения от плана)_2", "IV квартал", "Column26", "Column27", "ГОД", "Column29", "Column30", "Примечание#(lf)(причины отклонения от плана)_3"}), #"Переименованные столбцы" = Table.RenameColumns(#"Развернутый элемент Пользовательская",{{"I квартал", "I квартал 2017 (факт)"}, {"Column8", "I квартал 2018 (план)"}, {"Column9", "I квартал 2018 (факт)"}, {"Примечание (причины отклонения от плана)", "Примечание (причины отклонения от плана за I квартал 2018)"}, {"II квартал", "II квартал 2017 (факт)"}, {"Column12", "II квартал 2018 (план)"}, {"Column13", "II квартал 2018 (факт)"}, {"1 полугодие", "1 полугодие 2017 (факт)"}, {"Column15", "1 полугодие 2018 (план)"}, {"Column16", "1 полугодие 2018 (факт)"}, {"Примечание (причины отклонения от плана)_1", "Примечание (причины отклонения от плана за I полугодие 2018)"}, {"III квартал", "III квартал 2017 (факт)"}, {"Column19", "III квартал 2018 (план)"}, {"Column20", "III квартал 2018 (факт)"}, {"9 месяцев", "9 месяцев 2017 (факт)"}, {"Column22", "9 месяцев 2018 (план)"}, {"Column23", "9 месяцев 2018 (факт)"}, {"Примечание (причины отклонения от плана)_2", "Примечание (причины отклонения от плана за 9 месяцев 2018)"}, {"IV квартал", "IV квартал 2017 (факт)"}, {"Column26", "IV квартал 2018 (план)"}, {"Column27", "IV квартал 2018 (факт)"}, {"ГОД", "2017 (факт)"}, {"Column29", "2018 (план)"}, {"Column30", "2018 (факт)"}, {"Примечание (причины отклонения от плана)_3", "Примечание (причины отклонения от плана за 2018)"}}), #"Строки с примененным фильтром" = Table.SelectRows(#"Переименованные столбцы", each ([Целевой] <> 0)), #"Строки с примененным фильтром1" = Table.SelectRows(#"Строки с примененным фильтром", each not Text.Contains([#"КПЭ "], "справочно")) in #"Строки с примененным фильтром1"
[/vba]
Ошибок никаких не выводит. Но при загрузке выдает ошибку DataFormat.Eror Недопустимое значение ячейки #REF. Раньше такое уже было. В каком-то файле есть ячейка с #Н/Д. Но раньше он показывал в каком файле ошибка. А теперь нет. Открывать 95 файлов и искать - не вариант.