Нужна помощь! Обработка HTML страниц средствами VBA
Формулировка задачи:
Помогите решить такую задачу:
работаю в Access XP
нужно вытянуть данные некой таблицы на интернет странице, при помощи VBA,
и сохранить данные этой таблицы в базе данных.
Задача состоит в том, что эта страница содержит помимо нужной таблицы еще много ненужной информации. Как программно выкинуть ее?
Сейчас в Access запихиваю через Excel (Обьект QueryTables), очень долго...
Очень буду признателен за ответ на e-mail: removed@mail.ru
работаю в Access XP
нужно вытянуть данные некой таблицы на интернет странице, при помощи VBA,
и сохранить данные этой таблицы в базе данных.
Задача состоит в том, что эта страница содержит помимо нужной таблицы еще много ненужной информации. Как программно выкинуть ее?
Сейчас в Access запихиваю через Excel (Обьект QueryTables), очень долго...
Очень буду признателен за ответ на e-mail: removed@mail.ru
Решение задачи: «Нужна помощь! Обработка HTML страниц средствами VBA»
textual
Листинг программы
<font color="blue">Dim</font> IE <font color="blue">as</font> <font color="blue">Object</font> <font color="blue">Dim</font> doc <font color="blue">as</font> HTMLDocument <font color="blue">Dim</font> row <font color="blue">as</font> <font color="blue">Object</font> <font color="blue">Dim</font> cell <font color="blue">as</font> <font color="blue">Object</font> <font color="blue">Set</font> IE = CreateObject(<font color="teal">"InternetExplorer.Application"</font>) IE.Visible = True IE.Navigate <font color="teal">"url"</font> <font color="blue">While</font> IE.ReadyState <> <font color="darkblue"><b>4</b></font> DoEvents <font color="blue">Wend</font> <font color="blue">Set</font> doc=IE.document
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д