getElementsBy()提取文本 [英] getElementsBy() extract text

问题描述

我真的是 VBA 的新手，我一直在尝试获取"Impuesto"列下方的值.

I'm really new to VBA and I've been trying to get the value below the Column "Impuesto".

我收到错误438.我仍然不太了解如何引用网页的某个部分.

I'm getting error 438. I still don't quite understand how to refer to a certain part of the web page.

Sub extract()

Dim myIE As Object
Dim myIEDoc As Object
Dim element As IHTMLElement

Set myIE = CreateObject("InternetExplorer.Application")

myIE.Visible = False

myIE.navigate "https://zonasegura1.bn.com.pe/TipoCambio/"

While myIE.Busy
    DoEvents
Wend
 Set myIEDoc = myIE.document


Range("B1") = myIEDoc.getElementsByID("movimiento")(0).getElementsByTagName("span")

End Sub

推荐答案

尝试以下脚本.它应该获取您想要的数据.执行完成后，您应该在电子表格的Range("A1")中找到该值.

Try the below script. It should fetch you the data you are after. When the execution is done, you should find the value in Range("A1") in your spreadsheet.

Sub Get_Quote()
    Dim post As Object

    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .navigate "https://zonasegura1.bn.com.pe/TipoCambio/"
        While .Busy = True Or .readyState < 4: DoEvents: Wend
        Set post = .document.querySelector(".movimiento span.l2.valor")
        [A1] = post.innerText
        .Quit
    End With
End Sub

这篇关于getElementsBy()提取文本的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！