Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/PQ найти файл (из 95) с #REF - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
PQ найти файл (из 95) с #REF
Anis625 Дата: Пятница, 03.05.2019, 16:23 | Сообщение № 1
Группа: Заблокированные
Ранг: Ветеран
Сообщений: 674
Репутация: 31 ±
Замечаний: 20% ±

Excel 2013
Добрый день, участникам форума!

При помощи 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 файлов и искать - не вариант.

Как можно выявить такой файл?
 
Ответить
СообщениеДобрый день, участникам форума!

При помощи 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 файлов и искать - не вариант.

Как можно выявить такой файл?

Автор - Anis625
Дата добавления - 03.05.2019 в 16:23
krosav4ig Дата: Пятница, 03.05.2019, 17:27 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Здравствуйте. На каком шаге ошибка?


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеЗдравствуйте. На каком шаге ошибка?

Автор - krosav4ig
Дата добавления - 03.05.2019 в 17:27
Anis625 Дата: Пятница, 03.05.2019, 17:36 | Сообщение № 3
Группа: Заблокированные
Ранг: Ветеран
Сообщений: 674
Репутация: 31 ±
Замечаний: 20% ±

Excel 2013
krosav4ig,
При загрузке запроса в лист. Спотыкается о 412 строку и выдает окно ошибки. При этом не видно на каком файле
 
Ответить
Сообщениеkrosav4ig,
При загрузке запроса в лист. Спотыкается о 412 строку и выдает окно ошибки. При этом не видно на каком файле

Автор - Anis625
Дата добавления - 03.05.2019 в 17:36
Anis625 Дата: Пятница, 03.05.2019, 17:37 | Сообщение № 4
Группа: Заблокированные
Ранг: Ветеран
Сообщений: 674
Репутация: 31 ±
Замечаний: 20% ±

Excel 2013
krosav4ig,
Отрабатывая другой алгоритм выдал алгоритм на выявление ошибки с таким кодом:
[vba]
Код
let
Источник = #"95 мониторинга (new)",
#"Добавлен индекс" = Table.AddIndexColumn(Источник, "Номер строки" ,1),
  #"Сохраненные ошибки" = Table.SelectRowsWithErrors(#"Добавлен индекс", {"Content", "Name", "Extension", "Date accessed", "Date modified", "Date created", "Attributes", "Folder Path", "Пользовательская"}),
#"Переупорядоченные столбцы" = Table.ReorderColumns(#"Сохраненные ошибки", {"Номер строки", "Content", "Name", "Extension", "Date accessed", "Date modified", "Date created", "Attributes", "Folder Path", "Пользовательская"})
in
  #"Переупорядоченные столбцы"
[/vba]

Если он универсальный может его использовать, заменив названия столбцов?


Сообщение отредактировал Anis625 - Пятница, 03.05.2019, 17:38
 
Ответить
Сообщениеkrosav4ig,
Отрабатывая другой алгоритм выдал алгоритм на выявление ошибки с таким кодом:
[vba]
Код
let
Источник = #"95 мониторинга (new)",
#"Добавлен индекс" = Table.AddIndexColumn(Источник, "Номер строки" ,1),
  #"Сохраненные ошибки" = Table.SelectRowsWithErrors(#"Добавлен индекс", {"Content", "Name", "Extension", "Date accessed", "Date modified", "Date created", "Attributes", "Folder Path", "Пользовательская"}),
#"Переупорядоченные столбцы" = Table.ReorderColumns(#"Сохраненные ошибки", {"Номер строки", "Content", "Name", "Extension", "Date accessed", "Date modified", "Date created", "Attributes", "Folder Path", "Пользовательская"})
in
  #"Переупорядоченные столбцы"
[/vba]

Если он универсальный может его использовать, заменив названия столбцов?

Автор - Anis625
Дата добавления - 03.05.2019 в 17:37
krosav4ig Дата: Пятница, 03.05.2019, 17:47 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Anis625, в редакторе запросов пройдитесь по шагам, ошибка должна быть на шаге с фильтацией
[vba]
Код
Table.SelectRowsWithErrors(#"Переименованные столбцы", Table.ColumnNames(#"Переименованные столбцы"))
[/vba] выдаст строки с ошибками
Table.SelectRowsWithErrors - это Главная-Сократить строки-Сохранить строки-Сохранить ошибки


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеAnis625, в редакторе запросов пройдитесь по шагам, ошибка должна быть на шаге с фильтацией
[vba]
Код
Table.SelectRowsWithErrors(#"Переименованные столбцы", Table.ColumnNames(#"Переименованные столбцы"))
[/vba] выдаст строки с ошибками
Table.SelectRowsWithErrors - это Главная-Сократить строки-Сохранить строки-Сохранить ошибки

Автор - krosav4ig
Дата добавления - 03.05.2019 в 17:47
Anis625 Дата: Пятница, 03.05.2019, 18:00 | Сообщение № 6
Группа: Заблокированные
Ранг: Ветеран
Сообщений: 674
Репутация: 31 ±
Замечаний: 20% ±

Excel 2013
krosav4ig,
Попробую
 
Ответить
Сообщениеkrosav4ig,
Попробую

Автор - Anis625
Дата добавления - 03.05.2019 в 18:00
Anis625 Дата: Пятница, 03.05.2019, 18:28 | Сообщение № 7
Группа: Заблокированные
Ранг: Ветеран
Сообщений: 674
Репутация: 31 ±
Замечаний: 20% ±

Excel 2013
krosav4ig,
Ругается на:
[vba]
Код
Expression.Error: Столбец "Content" таблицы не найден.
[/vba]
 
Ответить
Сообщениеkrosav4ig,
Ругается на:
[vba]
Код
Expression.Error: Столбец "Content" таблицы не найден.
[/vba]

Автор - Anis625
Дата добавления - 03.05.2019 в 18:28
krosav4ig Дата: Вторник, 07.05.2019, 18:36 | Сообщение № 8
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Столбец "Content" таблицы не найден.
его не может не быть, если только он не был удален в функции getDate


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Столбец "Content" таблицы не найден.
его не может не быть, если только он не был удален в функции getDate

Автор - krosav4ig
Дата добавления - 07.05.2019 в 18:36
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!