Импортирование данных в эксель из интернета

[maksim_serg]

разобрался.
а как это:

    Set ieDoc = IE.Document
    With ieDoc.forms(2)
        .all(9).Value = "+79125846578"
        .all(16).Value = "Проверка отправки СМС при помощи макроса"
        For i = 1 To 1000: DoEvents: Next
        .all(32).Click
    End With

заменить на код который бы получал в переменную исходный код страницы?

[EducatedFool]

заменить на код который бы получал в переменную исходный код страницы?

Если воспользоваться поиском, можно найти примеры кода:
http://www.planetaexcel.ru/forum.php/?thread_id=12478

[maksim_serg]

я ее читал. там используется объект

Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP"), а тут
Set ie = CreateObject("InternetExplorer.Application")

как их связать между собой?

[maksim_serg]

супер! работает! увеличил кол-во циклов до 10000 (наверно из-за плохой связи):
Sub test()
Set ie = CreateObject("InternetExplorer.Appl ication"): DoEvents
NavStr = "адрес"
ie.Navigate NavStr
While ie.busy Or (ie.readyState <> 4): DoEvents: Wend

Set ieDoc = ie.Document
If ieDoc.Title Like "Îøèáêà ñåðòèôèêàòà*" Or ieDoc.Title Like "Certificate Error*" Then
ieDoc.Links(1).Click
While ie.busy Or (ie.readyState <> 4): DoEvents: Wend
Set ieDoc = ie.Document
End If

With ieDoc
.all("login").Value = "логин
.all("pwd").Value = "пароль"
.all("loginMode").Click
For i = 1 To 10000: DoEvents: Next
While ie.busy Or (ie.readyState <> 4): DoEvents: Wend
End With

For i = 1 To 20000: DoEvents: Next
While ie.busy Or (ie.readyState <> 4): DoEvents: Wend

For i = 0 To ie.Document.all.Length - 1
Cells(i + 1, 1).Value = ie.Document.all.Item(i).innerText
Next

ie.Quit
Set ie = Nothing
End Sub

[Bubnush]

Подскажите, пожалуйста, как исходный код страницы перенести полностью построчно на лист excel?

[doober]

Как вы получить страницу хотите,через браузер или загрузкой по ссылке.

[EducatedFool]

как исходный код страницы перенести полностью построчно на лист excel?

Здесь есть пример кода: http://excelvba.ru/code/GetHTTPResponse

[Bubnush]

to doober
загрузкой по ссылке, только можно ли обойтись без сохранения html кода в переменную, а сразу скопировать его на лист excel?
to EducatedFool
Большое спасибо за ссылку, но столкнулся с такой проблемой, что код сохраняется не полностью.

Возможно ли на примере кода maksim_serg реализовать получение исходного кода страницы?

[EducatedFool]

столкнулся с такой проблемой, что код сохраняется не полностью

как это - не полностью?

покажите пример того, что надо скачать, и что скачивает моё код.
Чего не хватает?

[Zeon25]

необходима помощь в составлении базы адресов и телефонов с
http://open-krasnodar.ru/address.php...04&item_id=960
и http://www.otdohni.su/catalog/?id_it...8&id_country=1
пример рассмотренный выше не смог осилить, да и решение немного не то.
Необходимо перенести данные в excel в коде страницы есть <div id="field1">ART-Cafe Coctail</div>, <div id="address">Адрес: г.Краснодар, ул.Дзержинского 100, ТРЦ Красная площадь 2 этаж киноцентр МОНИТОР</div> и т.д. их нужно занести в таблицу по порядку.
Мой вид того как это должно работать
задаешь ссылку сайта, вводишь в его имени переменную ID которая будет меняться например +1 до задаваемого конца (может и в середине ссылки быть) , далее в полях задаешь начало и конец хтмл кода для столбца A потом начало и конец кода для B, C, D, и т.д. с каждой посещенной страницы заносится информация, если код не найден на странице просто копируется пустая ячейка.
В результате у нас универсальная система сбора информации в базу
Заранее благодарен