Импорт данных из Сети в таблицу Access'а

Программирование на Visual Basic for Applications
ZlydenGL
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 148
Зарегистрирован: 13.08.2004 (Пт) 10:02

Импорт данных из Сети в таблицу Access'а

Сообщение ZlydenGL » 13.09.2004 (Пн) 14:23

Опять я в роли спрашивающего 8) Ну да ладно, в этом состоянии еще долго буду! :P

Итак, задача:
В некоем государстве, на некоем сайте, лежит динамически формируемая страница с некоей табличкой, которую я горю желанием увидеть в своей базе (естественно, не саму табличку, а ее данные, заимпорченные в мою базу). Соответственно вопрос - сталкивался ли кто с подобной задачей?

Пока что мне приходят в голову только "дубовые" варианты - вставить в форму Excel как объект, и уже его методами вытаскивать содержимое (благо в нем есть инструкция
Код: Выделить всё
With ActiveSheet.QueryTables.Add(Connection:= "URL;http://somewhere.tam/get.asp?param="MyParam", Destination:=ActiveSheet.Range("A1"))

Но это:
1. Не есть гуд.
2. Тяжело (естессно, не написание, а код получится тяжелым).
3. И самое главное - некрасиво :twisted:

У кого есть идеи?

Заранее спасибо!!!
Покой нам только снится!!! И то редко. Поскольку нет в мире совершенства, а есть только стремление к оному.

gaidar
System Debugger
System Debugger
 
Сообщения: 3152
Зарегистрирован: 23.12.2001 (Вс) 13:22

Сообщение gaidar » 13.09.2004 (Пн) 14:32

Качаешь страничку из сети, используя WinSock, потом парсишь используя InStr, Mid и т.п. Заполняешь массивы и из них данные кидаешь запросами в базу.
Тоже не очень красиво. Используя Регулярные выражения делать это проще, но без "левых" компонентов нельзя.
The difficult I’ll do right now. The impossible will take a little while. (c) US engineers in WWII
I don't always know what I'm talking about, but I know I'm right. (c) Muhammad Ali

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 13.09.2004 (Пн) 16:01

А использовать DOM?
Т.е. создаешь InternetExplorer.Application, загружаешь страницу, ищешь нужный тэг TABLE и извлекаешь информацию.
Lasciate ogni speranza, voi ch'entrate.


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 57

    TopList