Код |
---|
Sub Code1() With CreateObject("MSXML2.XMLHTTP") .Open "GET", "http://www.*", False .Send Cells(1, 1) = Mid(.responseText, InStr(1, .responseText, "TEXT") , 1) End With End Sub |
у меня идет цикл на 2000 и более страниц, и вытягивает 1000 символов, скорость интернет соединения 4 Мбит/с, макрос работает примерно 40 минут!
в Application.StatusBar во время работы отображается кол-во просмотренных сайтов, после нескольких сайтов(10-13шт.) Excel зависает, но макрос продолжает работу.
Спасибо.