請教一下，本來是使用這VBA代碼去下載YAHOO股市的即時資料
不知道為什麼後來就不能再使用，無法更新新的即時資料
請教各位前輩是否哪裡有問題呢？
Sub Z及時股價()
Dim myXML As Object
Set myXML = CreateObject("Microsoft.XMLHTTP")
Dim myHTML As Object
Set myHTML = CreateObject("HTMLFile")
On Error Resume Next
i = 2
With myXML
Do While Cells(2 + QQ, 1) <> ""
.Open "GET", "XXXXXX" & Timer & "&s=" & Cells(2 + QQ, 1), False
'以下這3行避免抓到暫存資料
.setRequestHeader "Cache-Control", "no-cache"
.setRequestHeader "Pragma", "no-cache"
.setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT"
.send
'把傳回值轉成標準htmlfile
myHTML.body.innerHTML = .responseText
Set myTable = myHTML.getElementsByTagName("table")(6)
For j = 1 To 10
Cells(i, j + 1) = myTable.Rows(1).Cells(j).innerText
Next
i = i + 1
'將股票代號導入CMoney超連結
Cells(2 + QQ, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"XXXXX" & Cells(2 + QQ, 1) & "?chart=d"
QQ = QQ + 1
Loop
End With
'釋放記憶體
Set myXML = Nothing
Set myHTML = Nothing
Var = MsgBox("更新完成", vbOKOnly, "訊息")
End Sub |
發表於 2024-3-3 20:41
| 
