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

Вход

Регистрация

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

 

= Мир MS Excel/Проверка значения в ячейке после ActiveWorkbook.RefreshAll - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проверка значения в ячейке после ActiveWorkbook.RefreshAll (Макросы/Sub)
Проверка значения в ячейке после ActiveWorkbook.RefreshAll
TD_MElec Дата: Вторник, 26.07.2022, 16:18 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 73
Репутация: 1 ±
Замечаний: 0% ±

Excel 2019
Всем привет.

В книге существует несколько запросов PowerQwery. Для их обновления использую ActiveWorkbook.RefreshAll. После их обновления необходимо выполнять какие-то действия. Как в vba определить, что все запрос PQ уже обновлены?
Код не останавливается сразу после ActiveWorkbook.RefreshAll, он продолжает работать дальше, но данные еще не обновлены и вычисления проводить рано.
Как вариант я могу проверять значение определённой ячейки, но до окончания макроса ни как не могу обновить значение этой ячейки :-(

Проверку пробовал делать так:
[vba]
Код

Check:
    Sheet.Calculate
    Application.ScreenUpdating = True
    If Cells(3, 1).Value <> Date Then
        Application.Wait DateAdd("s", 5, Now)
        DoEvents
        GoTo Check
    End If
[/vba]


Сообщение отредактировал TD_MElec - Вторник, 26.07.2022, 16:27
 
Ответить
СообщениеВсем привет.

В книге существует несколько запросов PowerQwery. Для их обновления использую ActiveWorkbook.RefreshAll. После их обновления необходимо выполнять какие-то действия. Как в vba определить, что все запрос PQ уже обновлены?
Код не останавливается сразу после ActiveWorkbook.RefreshAll, он продолжает работать дальше, но данные еще не обновлены и вычисления проводить рано.
Как вариант я могу проверять значение определённой ячейки, но до окончания макроса ни как не могу обновить значение этой ячейки :-(

Проверку пробовал делать так:
[vba]
Код

Check:
    Sheet.Calculate
    Application.ScreenUpdating = True
    If Cells(3, 1).Value <> Date Then
        Application.Wait DateAdd("s", 5, Now)
        DoEvents
        GoTo Check
    End If
[/vba]

Автор - TD_MElec
Дата добавления - 26.07.2022 в 16:18
RAN Дата: Вторник, 26.07.2022, 16:58 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5640
Репутация: 1145 ±
Замечаний: 0% ±

2010


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеСегодня, аналогично

Автор - RAN
Дата добавления - 26.07.2022 в 16:58
TD_MElec Дата: Вторник, 26.07.2022, 17:50 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 73
Репутация: 1 ±
Замечаний: 0% ±

Excel 2019
RAN, Спасибо)
 
Ответить
СообщениеRAN, Спасибо)

Автор - TD_MElec
Дата добавления - 26.07.2022 в 17:50
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проверка значения в ячейке после ActiveWorkbook.RefreshAll (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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