標題: VBA代碼無法下載YAHOO股市的即時資料 [打印本頁]

---

作者: ianlcc    時間: 2024-3-3 20:41     標題: VBA代碼無法下載YAHOO股市的即時資料

請教一下，本來是使用這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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)