从HTML表中抓取单个值，然后使用VBA插入Excel单元格

Question

请参见下面的代码。 我正在用excel编制一组不寻常的货币配对，我希望用VBA抓取此数据。 我只想将值本身插入单元格中。 有人知道我在哪里错吗？ 我收到“运行时错误'91'：对象变量或未设置块变量”。 我是VBA的新手，对此我投入了很多思考。

Sub ie_open()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim TxtRng As Range
    Dim ie As Object

    Set ie = CreateObject("INTERNETEXPLORER.APPLICATION")
    ie.NAVIGATE "http://www.barchart.com/quotes/forex/British_Pound/Costa_Rican_Colon/%5EGBPCRC"
    ie.Visible = True

    While ie.ReadyState <> 4
        DoEvents
    Wend

    Set wb = ActiveWorkbook
    Set ws = wb.Sheets("Test Sheet")
    Set TxtRng = ws.Range("A1")
    TxtRng.Value = ie.document.getelementsbyname("divQuotePage").Item.innertext

End Sub

这是我要抓取的数据：

谢谢。

Answer 1

我在网络抓取方面还没有做到这一点，但是这种错误通常意味着您所寻找的东西不存在。 特别是，在您提供的屏幕截图中，我看不到divQuotePage 。

但是，如果您想要报价（793.19），则可以执行以下操作：

Dim V As Variant
Set V = ie.document.getelementbyid("dtaLast")
TxtRng = V.innertext

Answer 2

这将起作用。

Sub Test（）Dim IE作为对象

Set IE = CreateObject("InternetExplorer.Application")
With IE
    .Visible = True
    .Navigate "http://www.barchart.com/quotes/forex/British_Pound/Costa_Rican_Colon/%5EGBPCRC" ' should work for any URL
    Do Until .ReadyState = 4: DoEvents: Loop

        x = .document.body.innertext
        y = InStr(1, x, "Last Price")
        Z = Mid(x, y, 19)

        Range("A1").Value = Trim(Z)

        .Quit
    End With

结束子

Answer 3

您可以使用div.pricechangerow > span.last-change的CSS选择器来定位该元素； 可以简化为.last-change 。

“。” 表示类别，您可以使用

Debug.Print ie.document.querySelector.querySelector(".last-change").innerText

那是网站当前版本的2018-06-30