使用VBA将数据从网页提取到Excel

Question

我正在尝试从以下网页中提取数据。

https://pro.calnea.com/login

用户：tyronr@outlook.com

通行证：calnea1

一旦登录胡佛在 “专业服务”，然后点击 “搜索谱曲（照片）”。我已经输入了一个邮政编码并勾选了一些属性，这些属性应该将它们放入候选名单中。要访问短名单，请点击页面底部右侧的按钮，显示“查看候选名单”，点击。现在您可以看到选定的属性，并且我想要为每个属性提取每个数据，例如单元格A1 =地址，A2 =最后的销售价格，A3 =最后的销售日期等等。然后在下一行的下一个属性，所以B1 =地址等。如果可能我想获得图像的URL。

我不知道最好的解决办法，因为有一个登录，但我仍然登录在浏览器中，所以我认为这不是一个问题？

以下是我到目前为止，但不幸的是我没有运气和帮助将非常感谢！ :)

Sub test() 
Dim eRow As Long 
Dim ele As Object 
Set sht = Sheets("Sheet1") 
RowCount = 1 
sht.Range("A" & RowCount) = "Address" 
sht.Range("B" & RowCount) = "Last Sales Price" 
sht.Range("C" & RowCount) = "Last Sales Date" 
sht.Range("D" & RowCount) = "Property Type" 

eRow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row 

Set objIE = CreateObject("InternetExplorer.Application") 


With objIE 
.Visible = True 
.navigate "http://pro.calnea.com/client/cmp_shortlist/bs6?Require_EA=false&SearchMode=CMP" 
Do While .Busy Or _ 
.readyState <> 4 
DoEvents 
Loop 
Set what = .document.getElementsByName("q") 
what.Item(0).Value = Address 
Set Address = .document.getElementsByName("where") 
Address.Item(0).Value = Last Sales Price 
.document.getElementById("View Shortlist").Click 
Do While .Busy Or _ 
.readyState <> 4 
DoEvents 
Loop 
For Each ele In .document.all 
Select Case ele.classname 
Case "Result" 
RowCount = RowCount + 1 
Case "Title" 
sht.Range("A" & RowCount) = ele.innertext 
Case "Company" 
sht.Range("B" & RowCount) = ele.innertext 
Case "Location" 
sht.Range("C" & RowCount) = ele.innertext 
Case "Description" 
sht.Range("D" & RowCount) = ele.innertext 
End Select 
Next ele 
End With 
Macro1 
Set objIE = Nothing 
End Sub 

Answer 1

我看到从Fetch data from zoopla.co.uk的联系，我只是纠正了一些VBA语法错误，请检查：

Sub sofFetchDataFromWebPage() 
    Dim RowCount, eRow As Long 
    Dim sht, ele As Object, what, Address 
    Dim objIE 

' 
    Set sht = Sheets("Sheet1") 
' 
' Set sht = ActiveSheet 

    RowCount = 1 
    sht.Range("A" & RowCount) = "Address" 
    sht.Range("B" & RowCount) = "Last Sales Price" 
    sht.Range("C" & RowCount) = "Last Sales Date" 
    sht.Range("D" & RowCount) = "Property Type" 

    eRow = sht.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row 

    Set objIE = CreateObject("InternetExplorer.Application") 

    With objIE 
    .Visible = True 
    .Navigate "http://pro.calnea.com/client/cmp_shortlist/bs6?Require_EA=false&SearchMode=CMP" 
    Do While .Busy Or .readyState <> 4 
     DoEvents 
    Loop 
    Set what = .document.getElementsByName("q") 
    what.Item(0).Value = "Address" 
    Set Address = .document.getElementsByName("where") 
    Address.Item(0).Value = "Last Sales Price" 
    .document.getElementById("View Shortlist").Click 
    Do While .Busy Or .readyState <> 4 
     DoEvents 
    Loop 
    For Each ele In .document.all 
     Select Case ele.classname 
     Case "Result" 
      RowCount = RowCount + 1 
     Case "Title" 
     sht.Range("A" & RowCount) = ele.innertext 
     Case "Company" 
      sht.Range("B" & RowCount) = ele.innertext 
     Case "Location" 
      sht.Range("C" & RowCount) = ele.innertext 
     Case "Description" 
      sht.Range("D" & RowCount) = ele.innertext 
     End Select 
    Next 
    End With 
    Set objIE = Nothing 
End Sub 

正如你在另外的IE窗口登录，您可能不需要做再次登录。