Excel это не сложно
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
25.01.2021, 13:40:21

Войти
Хотите поблагодарить участника за дельный совет? Нажмите [Повысить]. Так вы заслуженно поднимите репутацию активному участнику.
31 746 Сообщений в 5 102 Тем от 11 636 Пользователей
Последний пользователь: neidetikeg
*
Перейти на сайт Хитрости Надстройка MulTEx Обучающие тренинги Наша группа ВКонтакте
Правила форума Начало Помощь Поиск Календарь Войти Регистрация Выйти
+  Excel это не сложно
|-+  Основные форумы
| |-+  PowerQuery, PowerPivot, PowerBI и запросы
| | |-+  PowerQuery и Google Docs
Страниц: [1]   Вниз
Печать
Автор Тема: PowerQuery и Google Docs  (Прочитано 1406 раз)
0 Пользователей и 1 Гость смотрят эту тему.
FearDog
Новичок
*

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 1


Просмотр профиля
« : 19.07.2018, 12:41:32 »

Добрый день!
У меня следующая задача - таблица берет данные с таблиц Google. Настроено два запроса. Если нажимаю "Обновить все", то иногда выпадает такое окно "Доступ к веб-содержимому" и требует ввести учетные данные.

Иногда окно может выпасть только на 100 раз, а иногда выпадает всегда при обновлении второго запроса.

При обновлении запросов макросом окно не появляется, но и данные не обновляются. Как можно проверить, обновились ли данные? И если не обновились, то попробовать снова (как вариант установить ограничение на количество попыток, что бы не зациклился макрос).
Код: (vb)
Sub RefreshAllQuery()
On Error GoTo ErrorHandler
Dim oc As Object, IsBG_Refresh As Boolean

  Application.DisplayAlerts = False

  For Each oc In ThisWorkbook.Connections
    IsBG_Refresh = oc.OLEDBConnection.BackgroundQuery
    oc.OLEDBConnection.BackgroundQuery = False

    BackToRefresh:
    oc.OLEDBConnection.Refresh
  Next
  Application.StatusBar = False
  Application.DisplayAlerts = True      
  Exit Sub

ErrorHandler:
  Debug.Print "ErrorHandler " + oc.Name
GoTo BackToRefresh
End Sub
Записан
Страниц: [1]   Вверх
Печать
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2011, Simple Machines Valid XHTML 1.0! Valid CSS!
Яндекс.Метрика Рейтинг@Mail.ru