1
好了,所以這是我的全部代碼:如何獲得span id值到excel VBA中?
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>
什麼我必須在這兩行代碼中更改以讀取「跨度ID」?
Set getPrice = appIE.Document.getElementById("yfs_l84_aapl")
Dim myValue As String: myValue = getPrice.Cells(1).innerHTML
或者,或者,有沒有辦法直接讀取「yfs_184」之後的任何內容?
我是全新的編碼,我很努力地工作,所以任何幫助真的很感謝!謝謝! :)
這一工程......但只有我第一次寫的代碼並運行它。每次我嘗試運行它時,都會收到錯誤消息:/以下是更新後的代碼行: 'Set getPrice = appIE.document.getElementById(「yfs_l84_aapl」)// Dim myValue As String:myValue = getPrice .innerText' –
由於'appIE.Busy'不足以確保頁面實際加載,您可能會收到錯誤。將該行更改爲: –
'儘管appIE.Busy或appIE.readyState <> 4' –