VBA & HTML

[Mao]

Подскажите, возможно ли присвоить строковой переменной HTML текст запрашиваемого урла, как это делается, например на перле:

Код: Выделить всё

use LWP::Simple;
$doc = get 'http://bbs.vbstreets.ru/index.php';

???
Так же интересует возможность открытия текстового файла из VBA и работа с ним?
Заранее спасибо.

[alibek]

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

[Mao]

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

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

[tyomitch]

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

[Mao]

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

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

[alibek]

Код: Выделить всё

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


[tyomitch]

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

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

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