Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Kintoho
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
DoEvents в макросе на обновление запроса PowerQuery, Использование DoEvents не прерывает работу макроса.
 
#
24.04.2019 17:43:46
Добрый день!
Пытаюсь использовать DoEvents, но почему-то он не прерывает работу макроса. Где кроется ошибка?
Excel 2010, PowerQuery - надстройка
Есть 3 файла: 1-й с макросом "Макрос.xlsm", который запускается вручную, 2й - "Обработка.xlsx" содержит таблицу которая является результатом запроса PowerQuery, 3-й "Данные.xls" - это файл с данными которые обрабатывает PQ.
Задача такая - пользователь через макрос запускает процесс обновления запроса Power Query, после окончания которого файл "Обработка" сохраняется и закрывается.
По факту происходит следующее - макрос запускает обновление, но не дожидаясь его окончания даёт команду на закрытие файла. DoEvents не помогает.
То ли код написан неверно, то ли DoEvents не работает с PowerQuery ?!
Примечание, макрос должен содеражться в 1-м файле. 2-й и 3й файлы не должны содеражть макросов. Нет возможности установить более новые версии Excel.
Мой код:
Код
Sub ОбновлениеЗапроса()
   Workbooks.Open ("C:\Данные\Обработка.xlsx")
   ActiveWorkbook.RefreshAll
   DoEvents
   ActiveWorkbook.Close SaveChanges:=True
End Sub
Изменено: Kintoho - 24.04.2019 17:46:37
 
Перейти    
PQ. Замена значений по нескольким условиям
 
#
08.08.2018 18:50:25
Добрый день!

Сейчас:
Код
 #"Убрать """ = Table.ReplaceValue(#"Убрать !","""","",Replacer.ReplaceText,{"Арт"}),
    #"Убрать '" = Table.ReplaceValue(#"Убрать ""","'","",Replacer.ReplaceText,{"Арт"}),
    #"Убрать @" = Table.ReplaceValue(#"Убрать '","@","",Replacer.ReplaceText,{"Арт"}),
    #"Убрать #" = Table.ReplaceValue(#"Убрать @","#","",Replacer.ReplaceText,{"Арт"}),
    #"Убрать №" = Table.ReplaceValue(#"Убрать #","№","",Replacer.ReplaceText,{"Арт"}),
    #"Убрать ;" = Table.ReplaceValue(#"Убрать №",";","",Replacer.ReplaceText,{"Арт"}),
А хочется в одну строку... Можно ли в функции  Table.ReplaceValue указать сразу несколько значений для замены?
И можно ли в Table.ReplaceValue при поиске указывать "любой" символ? Например, "Игрушка * медведь", где * может быть любое кол-во символов, например, белый или черный или бурый.
Изменено: Kintoho - 08.08.2018 19:14:49
 
Перейти    
Преобразование шапки таблицы в Power Query, Прошу поделиться приёмом преобразования сложных шапок через Power Query
 
#
06.07.2018 15:40:22
   Выгружаю отчёт по продажам из 1С. Требуется приведение таблицы из сложной в плоскую для дальнейшего анализа. Причем преобразовывать таблицу нужно через Power Query.Проблема в том, что по каждому клиенту за каждый месяц есть 2 показателя: сумма и кол-во. Изначально дата в шапке объединена на 2 ячейки, после загрузки в PQ дата остаётся только у "Кол-ва".
  Прошу поделиться приёмом преобразования сложных шапок средствами Power Query. Причём показателей может быть больше 3 или 4 (прибыль, объём).

Я искал по форуму, но похожие темы не дают вопрос на мой ответ. Таблицу прикладываю, на втором листе желаемый результат.

Работаю в Excel 2013 + надстройка PQ.
 
Перейти    
Страницы: 1
Наверх