excel抓取股票历史数据

来来往往111

2016年之前使用过新浪抓取数据，回测股票，后来不好用了，网上看了下，有抓取的网站，https://q.stock.sohu.com/hisHq?code=cn_600519，可是自己总是弄不出来，有会的高手帮帮忙吗？

来来往往111

没人看到吗？高手帮帮忙吧

wodewan

工作簿1.rar (64.33 KB, 下载次数: 51)

2022-2-4 14:58 上传

点击文件名下载附件

来来往往111

哇，真的可以了，太厉害了，多谢！！
我要好好学习一下代码，研究研究了，太感谢了！

游乐缘

留名学习ing

wanao2008

3楼的回答非常的牛，但是不利于新手学习。
我也制作了一份，但愿能够帮助到你！
一条龙服务，代码+视频讲解：
1、代码如下：
Sub byWanao()
    Dim oHtml As Object, getText$, tmpStr, i%, j%, putData
    Set oHtml = VBA.CreateObject("WinHttp.WinHttpRequest.5.1")
    Dim sUrl As String
    sUrl = "https://q.stock.sohu.com/hisHq?code=cn_" & [B1]
    With oHtml
        .Open "GET", sUrl, False
        .send
        getText = .ResponseText
    End With
    tmpStr = Split(Replace(Split(Split(getText, "[[")(1), "]]")(0), """", ""), "],[")
    For i = 0 To UBound(tmpStr)
        putData = Split(tmpStr(i), ",")
        For j = 0 To UBound(putData)
            Cells(i + 2, j + 1) = putData(j)
        Next
    Next
    Set oHtml = Nothing
End Sub


2、视频讲解地址：
https://www.zhihu.com/zvideo/1473182833364070400

Kaohsing

留名学习一下

592rmb

wanao2008 发表于 2022-2-5 06:46
3楼的回答非常的牛，但是不利于新手学习。
我也制作了一份，但愿能够帮助到你！
一条龙服务，代码+视频讲 ...

非常感谢对新手的关照，请问老师能否继续完善一下，可以获得A列存放的所有股票代码的股票的历史数据，且开始日期和截止日期可以选择，这样就会更加灵活，更加适用了，再次感谢！

来来往往111

wanao2008 发表于 2022-2-5 06:46
3楼的回答非常的牛，但是不利于新手学习。
我也制作了一份，但愿能够帮助到你！
一条龙服务，代码+视频讲 ...

看了下视频，真牛！把我帖子也录视频里了，哈哈

wanao2008

来来往往111 发表于 2022-2-6 16:13
看了下视频，真牛！把我帖子也录视频里了，哈哈

关键你提供了极好的课件