需要VBA代码中提取电子邮件地址

Question

Private Sub CommandButton2_Click() 


Dim ie, items, elem As Object 
Dim i, j, k, l As Integer 

i = 2 
k = 2 
l = 2 

Set ie = CreateObject("Internetexplorer.application") 

ie.Visible = True 

ie.navigate "https://www.amazon.com/gp/pdp/profile/A3NEAETOSXDBOM/" 


Do While ie.busy Or ie.readystate <> 4 

Loop 

For i = 0 To 500 
On Error Resume Next 

Range("A" & i).Value = ie.document.getelementsbytagname("a").Item(i).innertext 

Next i 

End Sub 

我基本上希望检索其显示在页面左侧为网站的电子邮件地址“发送电子邮件” &电子邮件地址，点击它后出现。

注意：您必须先登录才能查看发送电子邮件选项。

请帮忙。

Answer 1

您的结束分之前添加以下代码：

Set sendAnEmail = ie.Document.getElementsByClassName("a-link-normal pr-email").Item(0) 

sendAnEmail.Click 

Application.Wait Now + TimeSerial(0, 0, 2) 

retrievedEmail = sendAnEmail.innerText 

MsgBox retrievedEmail 

然而，你应该看看亚马逊的有关Web-刮痧政治，因为这不可能是100％合法