我首先使用這些行Dim post As ObjectSet post = html.querySelectorAll(".mod-Treffer")For i = 0 To post.Length - 1Debug.Print post.Item(i).getElementsByTagName("h2")(0).innerTextDebug.Print post.Item(i).getElementsByTagName("Address")(0).getElementsByTagName("p")(1).innerText'I am stuck with extracting the email'HERENext i此外，有時(shí)帖子對(duì)象沒(méi)有電子郵件信息，因此我僅在找到時(shí)才需要提取。這就是到目前為止的代碼 Const sURL As String = "https://www.gelbeseiten.de/Suche/Ambulante%20Pflegedienste/Bundesweit"Dim http As MSXML2.XMLHTTP60, html As HTMLDocumentSet http = New MSXML2.XMLHTTP60Set html = New MSHTML.HTMLDocumentWith http .Open "Get", sURL, False .send html.body.innerHTML = .responseTextEnd WithDim post As ObjectSet post = html.querySelectorAll(".mod-Treffer")Dim i As Long, r As LongRange("A1").Resize(1, 3).Value = Array("Title", "Phone", "Email")r = 2For i = 0 To post.Length - 1Cells(r, 1).Value = post.Item(i).getElementsByTagName("h2")(0).innerTextCells(r, 2).Value = post.Item(i).getElementsByTagName("Address")(0).getElementsByTagName("p")(1).innerTextNext i這是電子郵件部分的快照
3 回答
隔江千里
TA貢獻(xiàn)1906條經(jīng)驗(yàn) 獲得超10個(gè)贊
原問(wèn)題：
在這種情況下，我將使用帶有 contains 運(yùn)算符的 attribute = value 選擇器來(lái)href通過(guò) string 定位屬性mailto。添加 CSS 選擇器：[href*=mailto]
如果使用，querySelectorAll("[href*=mailto]")您可以測(cè)試該.Length屬性是否大于 0 或使用querySelector并測(cè)試if Not querySelector("[href*=mailto]") Is Nothing。
如果你設(shè)置一個(gè)變量
Dim ele As Object
Set ele = html.document.querySelector("[href*=mailto]")
If Not ele Is Nothing Then
Debug.Print ele.href 'do something with the href to parse out email
End If
更新的問(wèn)題：
對(duì)于更新的問(wèn)題，我會(huì)將 nodeList 中的當(dāng)前節(jié)點(diǎn)轉(zhuǎn)移outerHTML到代理HTMLDocument變量中，以便我可以querySelector再次利用方法。我會(huì)按類(lèi)別定位電子郵件。
Option Explicit
Public Sub GetListingInfo()
Const URL As String = "https://www.gelbeseiten.de/Suche/Ambulante%20Pflegedienste/Bundesweit"
Dim http As MSXML2.XMLHTTP60, html As MSHTML.HTMLDocument
Set http = New MSXML2.XMLHTTP60
Set html = New MSHTML.HTMLDocument
With http
.Open "Get", URL, False
.send
html.body.innerHTML = .responseText
End With
Dim post As Object, html2 As MSHTML.HTMLDocument
Set post = html.querySelectorAll(".mod-Treffer")
Set html2 = New MSHTML.HTMLDocument
Dim i As Long, emailNode As Object
With ActiveSheet
.Range("A1").Resize(1, 3).Value = Array("Title", "Phone", "Email")
For i = 0 To post.Length - 1
html2.body.innerHTML = post.Item(i).outerHTML
.Cells(i + 2, 1).Value = html2.querySelector("h2").innerText
.Cells(i + 2, 2).Value = html2.querySelector(".mod-AdresseKompakt__phoneNumber").innerText
Set emailNode = html2.querySelector(".contains-icon-email")
If Not emailNode Is Nothing Then .Cells(i + 2, 3).Value = Replace$(emailNode.href, "mailto:", vbNullString)
Next i
End With
End Sub
德瑪西亞99
TA貢獻(xiàn)1770條經(jīng)驗(yàn) 獲得超3個(gè)贊
<article class="mod mod-Treffer" data-teilnehmerid="122085958708">
<div data-wipe="{"listener": "click", "name": "Trefferliste Eintrag zur Detailseite", "id": "122085958708", "synchron": true}" data-realid="2aeca1d2-2bc5-4070-ac4d-e16b10badca5" data-tnid="122085958708" target="_self">
<div class="mod-hervorhebung">
<p class="mod-hervorhebung--partnerHervorhebung" data-hervorhebungsstufe="3">Silber Partner</p>
</div>
<picture class="trefferlisten_logo">
<source media="(min-width: 768px)" srcset="https://ies.v4all.de/0122/GS/0122/5/8335/49428335_310x190.png">
<img alt="" data-lazy-src="https://ies.v4all.de/0122/GS/0122/5/8335/49428335_310x190.png" src="https://ies.v4all.de/0122/GS/0122/5/8335/49428335_310x190.png">
</picture>
<h2 data-wipe-name="Titel">A & S Billing Pflege-Service GmbH</h2>
<p class="d-inline-block mod-Treffer--besteBranche">Ambulante Pflegedienste</p>
<div class="mod mod-Stars mod-Stars--" title="2.9/5" data-float="2,9">
<span class="mod-Stars__text" style="width: 58.000001907348632812500%;">2.9</span>
</div>
<span>2.9</span>
<span>(8)</span>
<address class="mod mod-AdresseKompakt">
<p data-wipe-name="Adresse">
Kirchenberg 2?4,
<span class="nobr">
90482
Nürnberg
</span>
(M?geldorf)
</p>
<p class="mod-AdresseKompakt__phoneNumber" data-hochgestellt-position="end" data-wipe-name="Kontaktdaten">(0911) 60 00 99 77</p>
</address>
</div>
<div class="aktionsleiste_kompakt">
<div class="mod-gsSlider mod-gsSlider--noneOnWhite">
<span class="mod-gsSlider__arrow mod-gsSlider__arrow--arrow" data-direction="left" data-show="false" data-wipe="{"listener":"click","name":"Trefferliste: Aktionleiste-button-links"}"></span>
<span class="mod-gsSlider__arrow mod-gsSlider__arrow--arrow" data-direction="right" data-show="false" data-wipe="{"listener":"click","name":"Trefferliste: Aktionleiste-button-rechts"}"></span>
<div class="mod-gsSlider__slider" data-initialized="true">
<a class="contains-icon-homepage gs-btn" target="_blank" rel=" noopener" href="http://www.as-billing.de" data-wipe="{"listener":"click", "name":"Trefferliste Webseite-Button", "id":"122085958708"}" data-isneededpromise="false">Webseite</a>
<a class="contains-icon-email gs-btn" href="mailto:info@as-billing.de?subject=Anfrage%20%C3%BCber%20Gelbe%20Seiten" data-wipe="{"listener":"click", "name":"Trefferliste Email-Button", "id":"122085958708"}" data-isneededpromise="false">E-Mail</a>
<span class="contains-icon-route_finden gs-btn" data-wipe="{"listener":"click", "name":"Trefferliste Navigation-Button", "id":"122085958708"}" data-parameters="{"partner": "googlemaps", "searchquery": "A%20%26%20S%20Billing%20Pflege-Service%20GmbH%20Kirchenberg%202-4%2090482%20N%C3%BCrnberg"}" data-target="_blank">Route</span>
<span class="contains-icon-details gs-btn" data-wipe="{"listener":"click", "name":"Trefferliste Actionbutton Mehr Details", "id":"122085958708"}" data-parameters="{"partner": "gs", "realId": "2aeca1d2-2bc5-4070-ac4d-e16b10badca5", "tnId": "122085958708"}">Mehr Details</span>
</div>
</div>
</div>
</article>
莫回?zé)o
TA貢獻(xiàn)1865條經(jīng)驗(yàn) 獲得超7個(gè)贊
我可以用這些線來(lái)弄清楚
If InStr(post.Item(i).getElementsByTagName("a")(1).href, "mailto:") Then
Debug.Print Split(Split(post.Item(i).getElementsByTagName("a")(1).href, "mailto:")(1), "?")(0)
End If
但我歡迎任何其他改進(jìn)和了解更多的建議。* 經(jīng)過(guò)測(cè)試，如果在元素中找不到電子郵件，我會(huì)遇到錯(cuò)誤。如何避免錯(cuò)誤呢？我可以用On Error Resume Next。但我希望處理該錯(cuò)誤而不是跳過(guò)它。
** 編輯：我可以使用這個(gè)結(jié)構(gòu)解決第二點(diǎn)
Dim emailObj As Object
Set emailObj = post.Item(i).getElementsByTagName("a")(1)
If Not emailObj Is Nothing Then
If InStr(post.Item(i).getElementsByTagName("a")(1).href, "mailto:") Then
Debug.Print Split(Split(post.Item(i).getElementsByTagName("a")(1).href, "mailto:")(1), "?")(0)
End If
該代碼可以工作，但有時(shí)電子郵件無(wú)法正確抓取..這是因?yàn)檫@一行
Set emailObj = post.Item(i).getElementsByTagName("a")(1)
有時(shí)該對(duì)象未分配給 1。所以我的最后一個(gè)問(wèn)題：無(wú)論分配的數(shù)字如何，如何獲取電子郵件數(shù)據(jù)？
在循環(huán)中，我嘗試了這條線并沒(méi)有用
Set aNodeList = post.Item(i).querySelectorAll(".contains-icon-email")(0)
- 3 回答
- 0 關(guān)注
- 374 瀏覽
添加回答
舉報(bào)
0/150
提交
取消