Добрый вечер, столкнулся с необходимостью импорта данных с веб'а.
Нашел как использовать QueryTable, что бы достать содержимое web-страницы.

Но никак не могу найти как проинициализировать QueryTable на исполнение с выбором источника данных из веб. Как это происходит в экселе при:
Данные -> Импорт внешних данных -> создать веб-запрос
Data > Import External Data > New Web Query
Т.е. источник у меня не постоянный и необходимо пользователю дать его выбирать и потом обработывать данные.

Если записать макрос по этим действиям то получим


Где .WebTables = "8" это выбранная таблица данных

Вот интересует как запустить New Web Query для инициализации QueryTables?

Вызвать диалог можно

Application.Dialogs( xlDialogNewWebQuery ).Show

Возникла другая проблема. Эксель используется как КОМ объект и при использовании этого диалога выпрыгивает сам эксель для выбора ячейки для хранения данных.
Есть два выхода, но пока не один реализовать не получается.

1. Скрыть второй диалог, который идет следом за xlDialogNewWebQuery при выборе ячейки для данных
2. Создать QueryTable в ручную и потом на нем вызвать Edit web-query, что бы опять выкинуть окошко редактирования запроса.

1-ый метод вообще не знаю как реализовать.
2-ой по идее решился бы так:

Application.CommandBars("External Data").Controls(1).Execute

Но код выкидывает ошибку, что данный метод не смог отработать корректно.