VBA自定義獲取股票當天信息

Sub 自定義獲取股票當天信息()
 
    Worksheets("輸出結果").Cells.Clear
    Worksheets("輸出結果").Range("a1:AE1") = Array("代碼", "股票名", "現價", "昨收", "今開", "成交量(手)", "外盤", "內盤", "買一", "買一量(手)", "賣一", "賣一量", "時間", "漲跌", "漲跌幅", "最高", "最低", "價格/成交量(手)/成交額", "成交量(手)", "成交額(萬)", "換手率", "市盈率", "最高", "最低", "振幅", "流通市值", "總市值", "市淨率", "漲停價", "跌停價", "委差")
    
    X = Application.CountA(Worksheets("代碼").Range("A:A"))
     For r = 1 To X
        NUM = Worksheets("代碼").Cells(r, 1).Value
        If Val(NUM) = sh000001 Then
            Url = "http://qt.gtimg.cn/q=" & NUM
        Else
        
         If Val(NUM) < 600000 Then
            Url = "http://qt.gtimg.cn/q=sz" & NUM
         Else
            Url = "http://qt.gtimg.cn/q=sh" & NUM
         End If
          End If
        With CreateObject("msxml2.xmlhttp")
            .Open "GET", Url, False
            .send
            sp = Split(.responseText, "~")
            If UBound(sp) > 3 Then
               Worksheets("輸出結果").Cells(r, 1).Value = "'" & sp(2)
               Worksheets("輸出結果").Cells(r, 2).Value = sp(1)
               Worksheets("輸出結果").Cells(r, 3).Value = sp(3)
               Worksheets("輸出結果").Cells(r, 4).Value = sp(4)
               
               Worksheets("輸出結果").Cells(r, 5).Value = sp(5)
               Worksheets("輸出結果").Cells(r, 6).Value = sp(6)
               Worksheets("輸出結果").Cells(r, 7).Value = sp(7)
               Worksheets("輸出結果").Cells(r, 8).Value = sp(8)
               Worksheets("輸出結果").Cells(r, 9).Value = sp(9)
                Worksheets("輸出結果").Cells(r, 10).Value = sp(10)
                
               Worksheets("輸出結果").Cells(r, 11).Value = sp(19)
               Worksheets("輸出結果").Cells(r, 12).Value = sp(20)
                'Cells(r, 13).Value = sp(29)
                Worksheets("輸出結果").Cells(r, 13).Value = Format(sp(30), "0000-00-00 00:00:00")
               
               Worksheets("輸出結果").Cells(r, 14).Value = sp(31)
               Worksheets("輸出結果").Cells(r, 15).Value = sp(32)
               Worksheets("輸出結果").Cells(r, 16).Value = sp(33)
               Worksheets("輸出結果").Cells(r, 17).Value = sp(34)
               Worksheets("輸出結果").Cells(r, 18).Value = sp(35)
               Worksheets("輸出結果").Cells(r, 19).Value = sp(36)
                
               Worksheets("輸出結果").Cells(r, 20).Value = sp(37)
               Worksheets("輸出結果").Cells(r, 21).Value = sp(38)
               Worksheets("輸出結果").Cells(r, 22).Value = sp(39)
               Worksheets("輸出結果").Cells(r, 23).Value = sp(41)
              Worksheets("輸出結果").Cells(r, 24).Value = sp(42)
               Worksheets("輸出結果").Cells(r, 25).Value = sp(43)
              Worksheets("輸出結果").Cells(r, 26).Value = sp(44)
              Worksheets("輸出結果").Cells(r, 27).Value = sp(45)
               Worksheets("輸出結果").Cells(r, 28).Value = sp(46)
              Worksheets("輸出結果").Cells(r, 29).Value = sp(47)
                
              Worksheets("輸出結果").Cells(r, 30).Value = sp(48)
               Worksheets("輸出結果").Cells(r, 31).Value = sp(50)
               
                
            Else
              
            End If
        End With
    Next
End Sub

數據來源於"騰訊股票數據接口"，數字代表對應值

輸出結果：