l oop просмотр всех ссылок на веб-странице и повторная навигация - PullRequest
0 голосов
/ 24 января 2020

используя лист EXCEL, я могу делать то, что мне нужно ... найти все ссылки на странице, перейти затем найти все ссылки ... и так далее ... я хочу использовать вместо массива ...

    Set tb = doc.getElementsByTagName("TABLE")(2)
For Each tr In tb.Rows
For Each td In tr.Cells
For Each L In td.getElementsByTagName("a")
If InStr(1, Trim(L.href), "sito/WebServlet?Ric=") > 0 Then '73
If InStr(1, Trim(L.href), "&Protocollo=T") > 0 Then '73
Else
If IsEmpty(Dynamic_array) Then
ReDim Dynamic_array(0)
Dynamic_array(0) = "https://sito.it" & Replace(L.href, "about:", "")
Else
ReDim Preserve Dynamic_array(0 To UBound(Dynamic_array) + 1)
Dynamic_array(UBound(Dynamic_array)) = "https://sito.it" & Replace(L.href, "about:", "")
End If
End If
End If
Next
Next
Next
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...