Добрый день, проблема в следующем , не хочет читать тег , помогите плиз. Спасибо
| Visual Basic |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
| i = 2
posl = 20
Page = 0
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = False
Do While Worksheets("данные").Cells(i, 2) <> ""
FIO = Worksheets("данные").Cells(i, 2)
datar = Worksheets("данные").Cells(i, 3)
geo = Worksheets("данные").Cells(i, 4)
work = Worksheets("данные").Cells(i, 5)
List = Worksheets("данные").Cells(i, 1)
IE.Navigate "http://yandex.ru/people/search?text=" & FIO & "&lr=213&ps_age=" & datar & "&ps_geo=" & geo & "&ps_job=" & work & "&ps_network=4%2C5%2C2%2C16%2C11%2C17%2C13%2C14%2C10%2C8%2C12%2C6%2C3%2C15%2C9%2C7&p=" & Page & ""
While IE.busy
DoEvents
Wend
Set idn1 = IE.Document.getElementsByTagName("a")
Set idn2 = IE.Document.getElementsByTagName("div")
Set idn3 = IE.Document.getElementsByTagName("b") |
|
Так код отрабатывает нормально и Set idn3 = IE.Document.getElementsByTagName("b") содержит много записей,
но если делать так, то когда просматриваешь по Set idn3 = IE.Document.getElementsByTagName("b") там пусто и Item`ов нет , с чем это может быть связано ?
| Visual Basic |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
| Sub searchMXML()
i = 2
posl = 20
Page = 0
Z = 2
Do While Worksheets("данные").Cells(i, 2) <> ""
FIO = Worksheets("данные").Cells(i, 2)
datar = Worksheets("данные").Cells(i, 3)
geo = Worksheets("данные").Cells(i, 4)
work = Worksheets("данные").Cells(i, 5)
List = Worksheets("данные").Cells(i, 1)
Set html_doc = CreateObject("htmlfile")
Set xml_obj = CreateObject("MSXML2.XMLHTTP")
my_url = "http://yandex.ru/people/search?text=" & FIO & "&lr=213&ps_age=" & datar & "&ps_geo=" & geo & "&ps_job=" & work & "&ps_network=4%2C5%2C2%2C16%2C11%2C17%2C13%2C14%2C10%2C8%2C12%2C6%2C3%2C15%2C9%2C7&p=" & Page & ""
xml_obj.Open "GET", my_url, False
xml_obj.send
html_doc.body.innerhtml = xml_obj.responseText
Application.Wait (Now() + TimeValue("00:00:01"))
Set idn1 = html_doc.getElementsByTagName("a")
Set idn2 = html_doc.getElementsByTagName("div")
Set idn3 = html_doc.getElementsByTagName("b") |
|
(
