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

数据来源于"腾讯股票数据接口"，数字代表对应值

输出结果：