Обновление QueryTable

Пользователь

Сообщений: 139 Регистрация: 22.01.2017

24.10.2017 19:15:31

С помощью Microsoft Query создал несколько таблиц на разных листах.
На Лист9 разместил кнопку, при нажатии на которую происходит обновление
всех таблиц на всех листах

Код
ActiveWorkbook.RefreshAll

Появилась задача обновить только таблицу на Лист1, при этом находясь на Лист9
Попробовал код

Код
ActiveWorkbook.Sheets("Лист1").ListObject.QueryTable.Refresh BackgroundQuery:=False

не работает.

Буду благодарен за помощь.
Спасибо

Казанский

Пользователь

Сообщений: 8839 Регистрация: 11.01.2013

24.10.2017 19:27:24

А так?

Код
ActiveWorkbook.Sheets("Лист1").ListObjects(1).QueryTable.Refresh BackgroundQuery:=False

govorun Пользователь Сообщений: 139 Регистрация: 22.01.2017	#3 24.10.2017 20:46:15 Казанский, А так работает..... Спасибо

govorun

Пользователь

Сообщений: 139 Регистрация: 22.01.2017

26.10.2017 20:42:57

Странно....

Когда дома на примере пробовал - работало.
На работу пришел, на реальном файле попробовал - не работает.
Ошибка 438

Пришлось сделать вот так:

Код
ActiveWorkbook.WorkSheets("Лист1").ListObjects(1).Refresh

Может кто-нибудь из знающих не поленится и прокомментирует...

Спасибо

Читают тему