Question

好的，这是我的整个代码：

Private Sub CommandButton1_Click()

Dim appIE As Object
Set appIE = CreateObject("internetexplorer.application")

With appIE
    .Navigate "http://finance.yahoo.com/q/ks?s=" & "AAPL"
    .Visible = True
End With

Do While appIE.Busy
    DoEvents
Loop

Set getPrice = appIE.Document.getElementById("yfs_l84_aapl")
Dim myValue As String: myValue = getPrice.Cells(1).innerHTML

appIE.Quit
Set appIE = Nothing

Range("B1").Value = myValue

End Sub

这是我试图读入Excel的HTML（具体来说，我需要113.92）：

<span id="yfs_l84_aapl">113.92</span>

在这两行代码中我需要更改什么才能读取“span id”？

Set getPrice = appIE.Document.getElementById("yfs_l84_aapl")
Dim myValue As String: myValue = getPrice.Cells(1).innerHTML

或者，有没有办法在“yfs_184”之后直接阅读任何内容？

我是编码的新手，我正在努力变得更好，所以任何帮助都非常感谢!!谢谢！：）

Answer 1

使用此：

myValue = getPrice.innerText

如何将span id值转换为excel VBA？

1 个答案: