Excel VBA HTML-вложенный QuerySelector - PullRequest
Новая
       10

Excel VBA HTML-вложенный QuerySelector

0 голосов
/ 12 ноября 2018

Рассмотрим этот фрагмент HTML-страницы: 

<!DOCTYPE html>
<html lang="en">
<head>
    <meta charset="UTF-8">
    <title>Document</title>
</head>
<body>
<div class="BoxBody">
<span class="txt">20 Records found. </span>
<p style="text-align: right;"><span class="txt">[First/Previous] &nbsp;1&nbsp;, <a class="page" href="javascript:paginacao('paginar','2');" title="Go to page 2">2</a> [<a class="page" title="Next page" href="javascript:paginacao('paginar','next');">Next</a>/<a class="page" title="Last page" href="javascript:paginacao('paginar','last');">Last</a>]</span></p>
<br>
<span class="txt">25 Records found. </span>
<p style="text-align: right;"><span class="txt">[First/Previous] &nbsp;1&nbsp;, <a class="page" href="javascript:paginacao('paginar2','2');" title="Go to page 2">2</a> [<a class="page" title="Next page" href="javascript:paginacao('paginar2','next');">Next</a>/<a class="page" title="Last page" href="javascript:paginacao('paginar2','last');">Last</a>]</span></p>
</div>
</body>
</html>

Я пытаюсь получить тег anchor со следующей страницей href (если он есть).

Я попробовал это в консоли, используя Firefox, и она работает: 

document.querySelector(".BoxBody > p:nth-child(2) > span:nth-child(1)").querySelector("a[title='Next page']")

Я также создал пример кода VBA, используя querySelector, но он не работает с Invalid argument. 

Sub test()

Dim oFSO As Object, paginator As Object
Dim oFS As Object, sText As String

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFS = oFSO.OpenTextFile(ThisWorkbook.Path & "\example.html")

Do Until oFS.AtEndOfStream
    sText = oFS.ReadAll()
Loop


Dim html As HTMLDocument, html2 As Object
Set html = New HTMLDocument
Set html2 = html
html2.Write sText

Set paginator = html.querySelector(".BoxBody > p:nth-child(2) > span:nth-child(1)").querySelector("a[title='Next page']")

End Sub

Что вызывает это?Идентификатор p:nth-child(2)?Как мне извлечь этот элемент с помощью VBA?

1 Ответ

0 голосов
/ 12 ноября 2018

nth-child(2) не поддерживается в VBA и действительно вызывает сообщение об ошибке.Вы не можете использовать :nth-child() или :nth-of-type().В библиотеках, доступных для псевдоклассов, реализовано очень мало.Вы можете использовать first-child интересно.Вы также обнаружите, что ограничены в объектах, с которыми вы можете связать querySelector. 

Dim ele As Object, iText As String
Set ele = html.querySelector(".BoxBody > p > span:first-child > a[title='Next page']")

On Error Resume Next
iText = ele.href
On Error GoTo 0

If iText = vbNullString Then '<== This assumes that the href has a value otherwise use an On Error GoTo which will then handle the error and print "no href"
    Debug.Print "No href"
Else
   Debug.Print "href"
End If
...