Проверка значения в ячейке после ActiveWorkbook.RefreshAll

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проверка значения в ячейке после ActiveWorkbook.RefreshAll (Макросы/Sub)

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]