乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > 有没有朋友知道哪个<em>期权</em>软件能导出实时报价的数据到<em>EXCEL

有没有朋友知道哪个<em>期权</em>软件能导出实时报价的数据到<em>EXCEL

作者:乔山办公网日期:

返回目录:excel表格制作


  腾讯股票查询是有接口的,很简单的e69da5e887aa7a686964616f361http://qt.gtimg.cn/q=sz代码

   Sub test()
    For r = 3 To Range("A1").CurrentRegion.Rows.Count
        URL = "http://qt.gtimg.cn/q=sz" & Cells(r, 1).Value
        With CreateObject("msxml2.xmlhttp")
            .Open "GET", URL, False
            .send
            sp = Split(.responsetext, "~")
            If UBound(sp) > 3 Then
                Cells(r, 3).Value = sp(3)
                Cells(r, 4).Value = Format(sp(30), "0000-00-00 00:00:00")
            Else
                Cells(r, 3).Value = "代码错啦!"
            End If
        End With
    Next
End Sub

 

  如果弄不懂代码,可按以下图片动画演示操作,比较简单(如图片未动、请点击图片以获得详细演示过程):

  



点金手,T型报价可以导出数据保存EXECL
可以的没有问题,导出就Excel文件

直接复制,粘贴成数字的形式就可以了

相关阅读

关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网