Пытаюсь вытащить информацию с http
|
|
Среда, 09 Июля 2014 г. 17:42
+ в цитатник
Добрый день.
Пытаюсь вытащить информацию с http
Пишу:
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "http…"
While IE.ReadyState < 4
DoEvents
Wend
Set mDoc = IE.Document
For i1 = 1 To mDoc.all.tags("span").Length
a = mDoc.all.tags("span").Item(i1 - 1).ID
Здесь циклом по span ищу нужный мне id
Next i1
Удивительное дело. В теле mDoc тэгов span около 50. А mDoc.all.tags("span").Length показывает всего 24. Естественно нужный мне тэг расположен дальше чем 24-й по счету и цикл до него не доходит. Принудительно пишу условие окончания цикла больше чем 24. Доходит до 24, дальше ругается, мол нет больше span в документе. Голову сломал что это может быть. Главное раньше все работало.
ХР, Акс 2003. Хром
Может у кого есть идеи куда копать?
http://www.sql.ru/forum/1104402/pytaus-vytashhit-informaciu-s-http
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-