PowerQuery и Google Docs

[FearDog]

Добрый день!
У меня следующая задача - таблица берет данные с таблиц 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