Подскажите, пожалуйста, что я делаю не так?
Excel с запросами и моделью в Pivot закрывается на этапе обновления сводных таблиц (исходник - результат PQ запросов)

Sub RefreshPQ()

Dim ws As Worksheet, qt As QueryTable, oc As Object, IsBG_Refresh As Boolean
   Dim i As Long, spisok
   spisok = Array("Çàïðîñ — ðåø_äåòàëü", "Çàïðîñ — ðåø_èñòî÷íèê", "Çàïðîñ — ðåø_ñâîäíàÿ", "Çàïðîñ — ðåø_ñòàòèñòèêà", "Çàïðîñ — ðåø_ñëóæáà", "Çàïðîñ — ðåø_îïåðàòîð", "Çàïðîñ — ðåø_îò÷åò", "Çàïðîñ — ïîâ_äåòàëü", "Çàïðîñ — ïîâ_èñòî÷íèê", "Çàïðîñ — ïîâ_ïåðèîäè÷íîñòü", "Çàïðîñ — ïîâ_ñëóæáà", "Çàïðîñ — ïîâ_îïåðàòîð", "Çàïðîñ — ïîâ_îò÷åò")
       
 
   For i = LBound(spisok) To UBound(spisok)
       
      Set oc = ThisWorkbook.Connections(spisok(i))
      IsBG_Refresh = oc.OLEDBConnection.BackgroundQuery
      oc.OLEDBConnection.BackgroundQuery = False
      oc.Refresh
      oc.OLEDBConnection.BackgroundQuery = IsBG_Refresh
   Next
   
Application.DisplayAlerts = False
Sheets("ñâîä ïîâòîðíûå").PivotTables("Ñâîäíàÿ 1").PivotCache.Refresh
Sheets("ñâîä ïîâòîðíûå").PivotTables("Ñâîäíàÿ 2").PivotCache.Refresh
Sheets("ñâîä ïîâòîðíûå").PivotTables("Ñâîäíàÿ 3").PivotCache.Refresh
Sheets("ñâîä ïîâòîðíûå").PivotTables("Ñâîäíàÿ 4").PivotCache.Refresh
Sheets("ñâîä ïîâòîðíûå").PivotTables("Ñâîäíàÿ 5").PivotCache.Refresh
Sheets("ñâîä ïîâòîðíûå").PivotTables("Ñâîäíàÿ 6").PivotCache.Refresh
Sheets("ñâîä ðåøåííûå").PivotTables("Ñâîäíàÿ 1").PivotCache.Refresh
Sheets("ñâîä ðåøåííûå").PivotTables("Ñâîäíàÿ 2").PivotCache.Refresh
Sheets("ñâîä ðåøåííûå").PivotTables("Ñâîäíàÿ 3").PivotCache.Refresh
Sheets("ñâîä ðåøåííûå").PivotTables("Ñâîäíàÿ 4").PivotCache.Refresh
Sheets("ñâîä ðåøåííûå").PivotTables("Ñâîäíàÿ 5").PivotCache.Refresh
Sheets("ñâîä ðåøåííûå").PivotTables("Ñâîäíàÿ 6").PivotCache.Refresh
Application.DisplayAlerts = True

End Sub

Помогите, пожалуйста, как решить проблему?
С переходом на 64-разрядный Office не помогает снятие флажка "задать ширину столбца" в свойствах таблицы Query
Мне очень надо зафиксировать ширину.
Заранее Спасибо!!!

Очень прошу помощи, а то я совсем дура)
хотелка: последовательно обновлять запросы: на листе "таймер" фиксировать время обновления и скажем через 1 мин переходить к обновлению следующего (желательно при ошибке в предыдущем, в любом случае переходить к следующему)
Массивы будут большие, надеюсь ПК потянет. Заранее спасибо!!!

Вот что есть, но это начало и похоже совсем не то(((

Sub RefreshPQ1()
Dim dbStart#

On Error Resume Next
 [_21_обр_ЧПНТ].Delete
On Error GoTo 0

With ThisWorkbook.Connections("21_обр_ЧПНТ").OLEDBConnection
.BackgroundQuery = False
dbStart = Timer
.Refresh

End With

MsgBox "Время обновления: " & Format(Timer - dbStart, "0 \сек."), vbOKOnly

End Sub

Помогите, пожалуйста, что только не делала, не обновляются данные без открытия книг - источников, их будет не мало

использую ДВССЫЛ, прописываю путь к книге, наименование книги в книге назначения (соответствуют отчетному периоду), но это наверное неважно...
почему автоматическое обновление происходит только при открытии источника? может быть макросом как то можно без открытия?
другие ограничения сняты (в параметрах, связях), не пойму в чем проблема.

Помогите, пожалуйста. Массив большой, высота заранее неизвестна, расположение столбцов одинаковое.
В исходнике "Лист1" в столбце А нужно найти заявки из списка "Лист2" и заменить,
например, исходный текст на листе1 в столбцах D и E на текст определенный списком на листе2 в столбцах B и C.

Надеюсь, что понятно объяснила, что хочу. Заранее благодарю за помощь!

Люди дорогие, помогите, пожалуйста, с проблемой.

На вкладке "Исходник" формулой рассчитывается число выборки (254 шт) и по сути на других двух вкладках должно генериться 254 строки, а по факту 385 строк при любом раскладе. В чем проблема, не понимаю).

Помогите, плиз

Прошу вас помочь, нужно найти последнее значение  в массиве.
По уже добытой формуле, определяется только первое, что изменить, что бы получить первое не сверху вниз, а снизу вверх? надеюсь я понятно объяснила свою хотелку)

Прилагаю пример, в ячейке M4 как то нужно получить Литина К.С вместо Ситки О.Е

Спасибо!

Помогите, пожалуйста. Дайте совет.
Нужно вычислить число повторных обращений определенного клиента в периоде 168 часов с момента первого обращения  (дата и время обращения + 7 суток. Выгрузка очень объемная, не могу сообразить сама.
Например: фамилия 1 после первичного обращения 12.05.18 в 20:55 в период последующих 168 часов обратился еще 3 раза.
Заранее благодарю за помощь!!!

Фамилия 1	12.05.18 20:55
Фамилия 2	12.05.18 23:55
Фамилия 3	14.05.18 20:55
Фамилия 1	15.05.18 22:55
Фамилия 1	16.05.18 11:00
Фамилия 1	17.05.18 20:15
Фамилия 2	18.05.18 20:55
Фамилия 2	19.05.18 20:18
Фамилия 2	20.05.18 20:05
Фамилия 3	21.05.18 20:00
Фамилия 4	22.05.18 23:00
Фамилия 3	23.05.18 20:55
Фамилия 4	24.05.18 20:55
Фамилия 3	25.05.18 20:13
Фамилия 3	26.05.18 20:45
Фамилия 1	27.05.18 20:52