刮黄页.com

Question

我正在尝试使用以下代码使用 VBA 抓取 Yellowpages.com，但没有记录任何数据

For Each ele In .document.all
Select Case ele.tagname
Case Results 
RowCount = RowCount + 1 
Case "Name" 
sht.Range("A" & RowCount)=ele.innerText
Case "Adress" 
sht.Range("A" & RowCount) = ele.innerText
Case "Email" 
sht.Range("A" & RowCount) = ele.innerText
End 
Select Next ele 
End With

结果只是空白没有错误

Answer 1

Case Results 是错误的，除非您有一个名为 Results 的变量。你可能想要Case "Results"

不确定是否只是您的格式错误，但是：

End
Select Next ele

应该是

End Select
Next ele