VBA & HTML

Программирование на Visual Basic for Applications
Mao
Обычный пользователь
Обычный пользователь
Аватара пользователя
 
Сообщения: 95
Зарегистрирован: 10.10.2004 (Вс) 13:09

VBA & HTML

Сообщение Mao » 13.10.2004 (Ср) 10:18

Подскажите, возможно ли присвоить строковой переменной HTML текст запрашиваемого урла, как это делается, например на перле:
Код: Выделить всё
use LWP::Simple;
$doc = get 'http://bbs.vbstreets.ru/index.php';
???
Так же интересует возможность открытия текстового файла из VBA и работа с ним?
Заранее спасибо. :roll:

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

Сообщение alibek » 13.10.2004 (Ср) 10:41

Первое: WebBrowser или CreateObject("InternetExplorer.Application") (и дальнейшая работа с DOM).
Второе: Open "C:\file.txt" For Input As #1 ... Line Input #1, Line$ ... Close #1
Lasciate ogni speranza, voi ch'entrate.

Mao
Обычный пользователь
Обычный пользователь
Аватара пользователя
 
Сообщения: 95
Зарегистрирован: 10.10.2004 (Вс) 13:09

Сообщение Mao » 13.10.2004 (Ср) 11:32

alibek писал(а):Первое: WebBrowser или CreateObject("InternetExplorer.Application") (и дальнейшая работа с DOM).
Второе: Open "C:\file.txt" For Input As #1 ... Line Input #1, Line$ ... Close #1

По поводу WebBrowser в хелпах описанно как импортировать данные ручками, а нужно все программно реализовать. Можете показать какой-нибуть пример кода?
А по CreateObject("InternetExplorer.Application") в хелпах я вообще ничего не нашел. =((

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 13.10.2004 (Ср) 12:52

По поводу выкачки файла по урлу см. http://bbs.vbstreets.ru/viewtopic.php?t=9438
Изображение

Mao
Обычный пользователь
Обычный пользователь
Аватара пользователя
 
Сообщения: 95
Зарегистрирован: 10.10.2004 (Вс) 13:09

Сообщение Mao » 13.10.2004 (Ср) 14:41

tyomitch писал(а):По поводу выкачки файла по урлу см. http://bbs.vbstreets.ru/viewtopic.php?t=9438

Так мне не файл нужно выкачать, а HTML текст который будет выдавать урл, и этот текст записать в переменную либо в массив.

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

Сообщение alibek » 13.10.2004 (Ср) 14:44

Код: Выделить всё
Dim inet As Object
Const URL As String = "http://www.vbstreets.ru"
Const READYSTATE_UNINITIALIZED As Long = 0&
Const READYSTATE_LOADING As Long = 1&
Const READYSTATE_LOADED As Long = 2&
Const READYSTATE_INTERACTIVE As Long = 3&
Const READYSTATE_COMPLETE As Long = 4&
Set inet = CreateObject("InternetExplorer.Application")
inet.Navigate URL
Do Until inet.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
MsgBox inet.Document.OuterHTML 'или что-то похожее, объектную модель не помню
inet.Quit
Set inet = Nothing
Lasciate ogni speranza, voi ch'entrate.

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 13.10.2004 (Ср) 15:06

Mao писал(а):
tyomitch писал(а):По поводу выкачки файла по урлу см. http://bbs.vbstreets.ru/viewtopic.php?t=9438

Так мне не файл нужно выкачать, а HTML текст который будет выдавать урл, и этот текст записать в переменную либо в массив.

HTML-текст - это и есть файл в твоём случае.
И его, как и любой другой файл, можно записать в переменную, и даже в массив.
Только нужно URLDownloadToFile заменить на URLOpenBlockingStream, и читать данные из получившегося потока.
Изображение


Вернуться в VBA

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

Сейчас этот форум просматривают: Google-бот и гости: 73

    TopList