【量化投资】02.数据接口初探——excel读取新浪股票api数据

最新推荐文章于 2024-02-06 11:26:49 发布
最新推荐文章于 2024-02-06 11:26:49 发布
阅读量3.6k 收藏 18
点赞数 1
分类专栏： 股票 文章标签： 股票 vba 实时行情
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/MissYourKiss/article/details/111326137
版权

【目标】

           使用vba程序获取新浪股票api的实时行情数据、K线，以及macd等技术指标数据。

 

【新浪api介绍】

  1.  获取实时行情数据接口，http://hq.sinajs.cn/list=sz002208,sh601318

  2. 对于股票的K线图，日线图等的获取可以通过请求:
    http://image.sinajs.cn/…./…/.gif
    此URL获取，其中    代表股票代码，详见如下：
    查看日K线图： http://image.sinajs.cn/newchart/daily/n/sh601318.gif
    分时线的查询： http://image.sinajs.cn/newchart/min/n/sh601318.gif
    日K线查询： http://image.sinajs.cn/newchart/daily/n/sh601318.gif
    周K线查询： http://image.sinajs.cn/newchart/weekly/n/sh601318.gif
    月K线查询： http://image.sinajs.cn/newchart/monthly/n/sh601318.gif

  3. 对于股票的macd等技术指标图，可以通过请求:
    http://image.sinajs.cn/…./…/.gif
    此URL获取，其中    代表股票代码，详见如下：
    macd： http://image.sinajs.cn/newchart/macd/sh601318.gif
    kdj： http://image.sinajs.cn/newchart/kdj/sh601318.gif
    rsi： http://image.sinajs.cn/newchart/rsi/sh601318.gif
    bias： http://image.sinajs.cn/newchart/bias/sh601318.gif
    等等，其他雷同

 

【示例代码1.查询实时行情】

  获取股票名称、现价、涨幅、涨跌额、昨收、今开、最高、最低、振幅、总手、总额等，编写vba程序，并使用按钮宏关联此vba。

Public indexType As String
Public caption_Name As String
Public stockCode As String
Public url As String
Public i, j As Integer
Public Const stockCodeColumn = 1                    '股票代码所在列
Public Const startRow = 3                           '开始行1表示是从第一行开始的数据，否则表示前面有注释类信息
Public Const arrSrartColumn = 3                     '排列开始的列
Public Const arrEndColumn = arrSrartColumn + 15     '排列结束的列
Public Const extSrartColumn = 17                    '扩展信息开始的列
Public Const url1 = "http://image.sinajs.cn/newchart/"
Public Const url2 = "http://image2.sinajs.cn/newchart/"

Sub GetData_click()

Dim originalData As String, arrAllData() As String, recordData() As String, recordHeader() As String
Dim stocks As String

EndRow = Range("A65536").End(xlUp).Row

'关闭屏幕刷新
Application.ScreenUpdating = False

'跳过错误
On Error Resume Next

'合并股票代码
For i = startRow To EndRow
    If i = startRow Then
        stocks = LCase(Cells(startRow, 1))
    Else
        stocks = stocks + "," + LCase(Cells(i, 1))
    End If
Next i

stocks = stocks + "," + "sh000001" + "," + "sz399001"

'取得实时数据
originalData = GetHttp("http://hq.sinajs.cn/list=" + stocks)

arrAllData = Split(originalData, ";")

iCount = UBound(arrAllData)

'排列所取得的数据
For i = startRow To iCount + startRow - 1 - 2

    KK = Cells(i, arrSrartColumn + 2).Value

    recordData = Split(arrAllData(i - startRow), ",")

    If UBound(recordData) <= 1 Then
        Cells(i, stockCodeColumn + 1) = "无此代码"
    Else
        recordHeader = Split(recordData(0), Chr(34))
        Cells(i, stockCodeColumn + 1) = recordHeader(1)       '股票名称
 
        End If
           
             Cells(i, arrSrartColumn + 0) = recordData(3)     '现价
             Cells(i, arrSrartColumn + 1) = Round((recordData(3) - recordData(2)) / recordData(2) * 100, 2) & "%"    '涨跌幅
             Cells(i, arrSrartColumn + 2) = Round(recordData(3) - recordData(2), 3)    '涨跌
             Cells(i, arrSrartColumn + 3) = recordData(2)     '昨收
             Cells(i, arrSrartColumn + 4) = recordData(1)     '今开
             Cells(i, arrSrartColumn + 5) = recordData(4)     '最高
             Cells(i, arrSrartColumn + 6) = recordData(5)     '最低
             Cells(i, arrSrartColumn + 7) = Round((recordData(4) - recordData(5)) / recordData(2) * 100, 2) & "%"     '振幅
             Cells(i, arrSrartColumn + 8) = Round(recordData(8) / 100, 0)             '成交量由股变为手
             Cells(i, arrSrartColumn + 9) = Round(recordData(9) / 100000000, 2)       '成交额由元变亿元
             
          If recordData(3) = 0 Then
             Cells(i, arrSrartColumn + 1) = "0%"                                      '现价为0时涨跌幅
             Cells(i, arrSrartColumn + 2) = "0"                                       '现价为0时涨跌
             Cells(i, arrSrartColumn + 7) = "0%"                                      '现价为0时振幅
                 

        End If

Next i


'打开屏幕刷新
Application.ScreenUpdating = True

End Sub

'清除数据
Sub Clean_ArrArea()
On Error Resume Next
EndRow = Range("A65536").End(xlUp).Row

If startRow <= EndRow Then
    Range(Cells(startRow, arrSrartColumn - 1), Cells(EndRow, arrEndColumn + 3)).Value = ""
Else
    Exit Sub
End If

End Sub

【运行效果1.】

【示例代码2.查询日K线】

 获取日K线的gif图片，其他5分钟、15分钟、macd、kdj等逻辑都是一样的，展示图片而已。

Sub A01_mink5()

    MyRow = ActiveCell.Row
    stockCode = LCase(Cells(MyRow, stockCodeColumn).Value)

    url = url1
    caption_Name = "5分钟K线"
    indexType = "mink5"

    If Len(stockCode) <> 8 Then
        MsgBox "不是有效的股票代码。", 16, "错误信息"
    Else
        Get_Photo.Show
    End If

End Sub

Sub A02_mink15()

    url = url1

    MyRow = ActiveCell.Row
    stockCode = LCase(Cells(MyRow, stockCodeColumn).Value)

    caption_Name = "15分钟K线"
    indexType = "mink15"

    If Len(stockCode) <> 8 Then
        MsgBox "不是有效的股票代码。", 16, "错误信息"
    Else
        Get_Photo.Show
    End If

End Sub

Sub A03_mink30()

    url = url1

    MyRow = ActiveCell.Row
    stockCode = LCase(Cells(MyRow, stockCodeColumn).Value)

    caption_Name = "30分钟K线"
    indexType = "mink30"

    If Len(stockCode) <> 8 Then
        MsgBox "不是有效的股票代码。", 16, "错误信息"
    Else
        Get_Photo.Show
    End If

End Sub

Sub A04_daily()

    url = url1

    MyRow = ActiveCell.Row
    stockCode = LCase(Cells(MyRow, stockCodeColumn).Value)

    caption_Name = "日K线"
    indexType = "daily"

    If Len(stockCode) <> 8 Then
        MsgBox "不是有效的股票代码。", 16, "错误信息"
    Else
        Get_Photo.Show
    End If

End Sub

Sub A05_weekly()

    url = url1

    MyRow = ActiveCell.Row
    stockCode = LCase(Cells(MyRow, stockCodeColumn).Value)

    caption_Name = "周K线"
    indexType = "weekly"

    If Len(stockCode) <> 8 Then
        MsgBox "不是有效的股票代码。", 16, "错误信息"
    Else
        Get_Photo.Show
    End If

End Sub

Sub A06_monthly()

    url = url1

    MyRow = ActiveCell.Row
    stockCode = LCase(Cells(MyRow, stockCodeColumn).Value)

    caption_Name = "月K线"
    indexType = "monthly"

    If Len(stockCode) <> 8 Then
        MsgBox "不是有效的股票代码。", 16, "错误信息"
    Else
        Get_Photo.Show
    End If

End Sub

Sub A07_min()

    url = url1

    MyRow = ActiveCell.Row
    stockCode = LCase(Cells(MyRow, stockCodeColumn).Value)

    caption_Name = "分时线"
    indexType = "min"

    If Len(stockCode) <> 8 Then
        MsgBox "不是有效的股票代码。", 16, "错误信息"
    Else
        Get_Photo.Show
    End If

End Sub

Sub B01_macd()

    url = url1

    MyRow = ActiveCell.Row
    stockCode = LCase(Cells(MyRow, stockCodeColumn).Value)

    caption_Name = "MACD"
    indexType = "macd"

    If Len(stockCode) <> 8 Then
        MsgBox "不是有效的股票代码。", 16, "错误信息"
    Else
        Get_Photo.Show
    End If

End Sub

Sub B02_trix()

    url = url1

    MyRow = ActiveCell.Row
    stockCode = LCase(Cells(MyRow, stockCodeColumn).Value)

    caption_Name = "TRIX"
    indexType = "trix"

    If Len(stockCode) <> 8 Then
        MsgBox "不是有效的股票代码。", 16, "错误信息"
    Else
        Get_Photo.Show
    End If

End Sub

Sub B03_dmi()

    url = url1

    MyRow = ActiveCell.Row
    stockCode = LCase(Cells(MyRow, stockCodeColumn).Value)

    caption_Name = "DMI"
    indexType = "dmi"

    If Len(stockCode) <> 8 Then
        MsgBox "不是有效的股票代码。", 16, "错误信息"
    Else
        Get_Photo.Show
    End If

End Sub

Sub B04_expma()

    url = url1

    MyRow = ActiveCell.Row
    stockCode = LCase(Cells(MyRow, stockCodeColumn).Value)

    caption_Name = "EXPMA"
    indexType = "expma"

    If Len(stockCode) <> 8 Then
        MsgBox "不是有效的股票代码。", 16, "错误信息"
    Else
        Get_Photo.Show
    End If

End Sub

Sub B05_brar()

    url = url1

    MyRow = ActiveCell.Row
    stockCode = LCase(Cells(MyRow, stockCodeColumn).Value)

    caption_Name = "BRAR"
    indexType = "brar"

    If Len(stockCode) <> 8 Then
        MsgBox "不是有效的股票代码。", 16, "错误信息"
    Else
        Get_Photo.Show
    End If

End Sub

Sub B06_cr()

    url = url1

    MyRow = ActiveCell.Row
    stockCode = LCase(Cells(MyRow, stockCodeColumn).Value)

    caption_Name = "CR"
    indexType = "cr"

    If Len(stockCode) <> 8 Then
        MsgBox "不是有效的股票代码。", 16, "错误信息"
    Else
        Get_Photo.Show
    End If

End Sub

Sub B07_vr()

    url = url1

    MyRow = ActiveCell.Row
    stockCode = LCase(Cells(MyRow, stockCodeColumn).Value)

    caption_Name = "VR"
    indexType = "vr"

    If Len(stockCode) <> 8 Then
        MsgBox "不是有效的股票代码。", 16, "错误信息"
    Else
        Get_Photo.Show
    End If

End Sub

Sub B08_bias()

    url = url1

    MyRow = ActiveCell.Row
    stockCode = LCase(Cells(MyRow, stockCodeColumn).Value)

    caption_Name = "BIAS"
    indexType = "bias"

    If Len(stockCode) <> 8 Then
        MsgBox "不是有效的股票代码。", 16, "错误信息"
    Else
        Get_Photo.Show
    End If

End Sub

Sub B09_psy()

    url = url1

    MyRow = ActiveCell.Row
    stockCode = LCase(Cells(MyRow, stockCodeColumn).Value)

    caption_Name = "PSY"
    indexType = "psy"

    If Len(stockCode) <> 8 Then
        MsgBox "不是有效的股票代码。", 16, "错误信息"
    Else
        Get_Photo.Show
    End If

End Sub

Sub B10_obv()

    url = url1

    MyRow = ActiveCell.Row
    stockCode = LCase(Cells(MyRow, stockCodeColumn).Value)

    caption_Name = "OBV"
    indexType = "obv"

    If Len(stockCode) <> 8 Then
        MsgBox "不是有效的股票代码。", 16, "错误信息"
    Else
        Get_Photo.Show
    End If

End Sub

Sub B11_boll()

    url = url1

    MyRow = ActiveCell.Row
    stockCode = LCase(Cells(MyRow, stockCodeColumn).Value)

    caption_Name = "BOLL"
    indexType = "boll"

    If Len(stockCode) <> 8 Then
        MsgBox "不是有效的股票代码。", 16, "错误信息"
    Else
        Get_Photo.Show
    End If

End Sub

Sub B12_mike()

    url = url1

    MyRow = ActiveCell.Row
    stockCode = LCase(Cells(MyRow, stockCodeColumn).Value)

    caption_Name = "MIKE"
    indexType = "mike"

    If Len(stockCode) <> 8 Then
        MsgBox "不是有效的股票代码。", 16, "错误信息"
    Else
        Get_Photo.Show
    End If

End Sub

Sub B13_asi()

    url = url1

    MyRow = ActiveCell.Row
    stockCode = LCase(Cells(MyRow, stockCodeColumn).Value)

    caption_Name = "ASI"
    indexType = "asi"

    If Len(stockCode) <> 8 Then
        MsgBox "不是有效的股票代码。", 16, "错误信息"
    Else
        Get_Photo.Show
    End If

End Sub

Sub B14_emv()

    url = url1

    MyRow = ActiveCell.Row
    stockCode = LCase(Cells(MyRow, stockCodeColumn).Value)

    caption_Name = "EMV"
    indexType = "emv"

    If Len(stockCode) <> 8 Then
        MsgBox "不是有效的股票代码。", 16, "错误信息"
    Else
        Get_Photo.Show
    End If

End Sub

Sub B15_cci()

    url = url1

    MyRow = ActiveCell.Row
    stockCode = LCase(Cells(MyRow, stockCodeColumn).Value)

    caption_Name = "CCI"
    indexType = "cci"

    If Len(stockCode) <> 8 Then
        MsgBox "不是有效的股票代码。", 16, "错误信息"
    Else
        Get_Photo.Show
    End If

End Sub

Sub B16_rsi()

    url = url1

    MyRow = ActiveCell.Row
    stockCode = LCase(Cells(MyRow, stockCodeColumn).Value)

    caption_Name = "RSI"
    indexType = "rsi"

    If Len(stockCode) <> 8 Then
        MsgBox "不是有效的股票代码。", 16, "错误信息"
    Else
        Get_Photo.Show
    End If

End Sub

Sub B17_wr()

    url = url1

    MyRow = ActiveCell.Row
    stockCode = LCase(Cells(MyRow, stockCodeColumn).Value)

    caption_Name = "WR"
    indexType = "wr"

    If Len(stockCode) <> 8 Then
        MsgBox "不是有效的股票代码。", 16, "错误信息"
    Else
        Get_Photo.Show
    End If

End Sub

Sub B18_kdj()

    url = url1

    MyRow = ActiveCell.Row
    stockCode = LCase(Cells(MyRow, stockCodeColumn).Value)

    caption_Name = "KDJ"
    indexType = "kdj"

    If Len(stockCode) <> 8 Then
        MsgBox "不是有效的股票代码。", 16, "错误信息"
    Else
        Get_Photo.Show
    End If

End Sub

Sub B19_roc()

    url = url1

    MyRow = ActiveCell.Row
    stockCode = LCase(Cells(MyRow, stockCodeColumn).Value)

    caption_Name = "ROC"
    indexType = "roc"

    If Len(stockCode) <> 8 Then
        MsgBox "不是有效的股票代码。", 16, "错误信息"
    Else
        Get_Photo.Show
    End If

End Sub

Sub B20_dma()

    url = url1

    MyRow = ActiveCell.Row
    stockCode = LCase(Cells(MyRow, stockCodeColumn).Value)

    caption_Name = "DMA"
    indexType = "dma"

    If Len(stockCode) <> 8 Then
        MsgBox "不是有效的股票代码。", 16, "错误信息"
    Else
        Get_Photo.Show
    End If

End Sub

【运行效果】

MissYourKiss
关注
  • 1
    点赞
  • 踩
  • 18
    收藏
    觉得还不错? 一键收藏
  • 2
    评论
专栏目录
对接新浪股票交易接口api需要注意哪些细节 ？
1841085904的博客
11-25 2113
最后，就是要建立一个高质量的股票交易接口API，在对接的过程中，除了要查看自己的信息之外，还需要对方提供的高质量的信息，这些信息都是经过精心挑选的，质量和稳定性都很好，特别是对于那些需要稳定，需要更多的人。首先是系统的联结，随着软件的不断发展，很多的软件都被分解成了不同的模块，但在具体的设计中，每个API接口的作用都很重要，因为在实际的设计中，软件都需要通过软件来完成，从而实现对软件的合理划分。在对接过程中，获得股票交易接口API的数据接口有什么经验？API还能作为一个开放的门户，用于对接。
java 新浪股票接口api_curl实例-通过新浪股票接口获取股票信息
weixin_28839439的博客
02-25 794
在学习curl的过程中，我们知道curl是相当于一个简单的浏览器，通过往对应的服务上面发送数据信息，返回服务器的响应结果，这个在Java里面主要是使用封装好的httpclient来进行操作，但是自己认为在php里面会更加的简单，方便！首先使用：curl_init，初始化一个新的会话，返回一个cURL句柄，这个就像是Java里面的socket通信，建立网络通信连接。curl_setopt 这个是主要...
Python股票量化投资课程——00股票量化配套课件.rar
01-08
Python股票量化投资课程——
用Excel实时看股票数据--vba（无需安装任何软件）
wayright的专栏
08-03 2万+
（7）补充：网友回复无法区分sz和sh，这里把GetData函数修改了一下，让第一列可以输入纯数字或者带字母的输入，比如sz000001。（3）选择ThisWorkbook选项，添加Workbook的Open函数，这样在excel打开的时候就会自动执行GetData。（5）点击选项，可以设置快捷命令，例如Ctrl+R，用快捷键刷新看实时数据。提取其中的名称（民生银行），收盘价格，昨日价格，涨跌百分比即可。（6）Excel保存为可以运行宏的文件，如stock.xlsm。
新浪股票数据接口
科技向善
11-18 1932
https://blog.csdn.net/focusjava/article/details/50394021 股票数据的获取目前有如下两种方法可以获取： 一.http/javascript接口取数据 二. web-service接口 一.http/javascript接口取数据 1.1Sina股票数据接口 以大秦铁路（股票代码：601006）为例，如果要获取它的最新行情，只需访问新浪的股票数据...
股票数据api接口 Excel下载（1）
u010614946的博客
12-22 567
股票数据api excel下载
股票数据api接口收藏2024
最新发布
u010614946的博客
02-06 889
股票实时、历史数据，技术指标，数据接口
新浪股票接口获取历史数据
NBA_1的博客
02-28 8525
这两天做了一个调用新浪股票接口获取实时以及历史股票数据的应用，因为新浪没有公开关于其接口的官方文档，所以通过各种百度差了很多关于新浪股票接口的使用，不过大家基本都是转载或者直接复制，对于实时数据的获取讲的很详细，但是缺少获取历史数据的方法。 关于实时数据的获取大家可以看这篇博客：实时股票数据接口&nbsp; 经过不懈的努力终于再这篇博文中找到了关于新浪股票历史数据的获取方式腾讯股票接口、和讯网股票...
用Excel实现自动获取期货、期权、股票行情及下载历史数据
m0_64899365的博客
09-18 7751
用ExcelVBA获取期货及股票数据等
新浪实时股票数据接口http://hq.sinajs.cn/list=code
热门推荐
simon803的专栏
07-25 33万+
股票数据的获取目前有如下两种方法可以获取： 1. http/javascript接口取数据 2. web-service接口 1.http/javascript接口取数据 1.1Sina股票数据接口 以大秦铁路（股票代码：601006）为例，如果要获取它的最新行情，只需访问新浪的股票数据接口： http://hq.sinajs.cn/list=sh601006 这个url会返回一
股票数据接口API
04-17
动态加载js的查询 博文链接：https://musicbox95351.iteye.com/blog/1810059
[API]新浪股票api调用
06-24
简单的新浪股票API调用
基于新浪股票接口的Android股票查询系统
06-18
本文档介绍了一种基于新浪股票接口的股票查询系统APP，是一篇完整的课程设计报告，内附有关键源码，可供参考。
新浪股票数据
05-26
NULL 博文链接：https://xiaooman07.iteye.com/blog/517159
金融股票数据API接口下载量化数据
09-30
其中包含股票行情、公司财报、增减持信息、股东信息等数据。 本团队有专门的部门进行数据清洗、维护，为了让更多用户可以方便快捷的使用金融数据来实现目标。 即将会加入国际国内宏观数据、基金数据、债券数据等 ...
基于历史数据股票量化投资策略设计.pdf
12-01
基于历史数据股票量化投资策略设计知识点总结 1. 量化投资策略的重要性：量化投资策略是当前金融市场中的一种重要投资方式，基于历史数据的量化投资策略可以帮助投资者更好地进行投资决策。 2. 短线量化交易的优势...
新浪财经API接口获取期货实时秒级行情数据的Python源代码
08-08
最近学习Python进行量化交易，第一步是获取实时行情数据，本资源是从新浪财经API接口获取期货实时行情数据的Python源代码（本代码获得的数据不再仅是5分钟行情数据，而是秒级行情更新，行情刷新间隔视网速及获取品种...
量化投资大数据处理-基于MATLAB实践.pdf
11-11
MATLAB可以用于量化投资大数据处理的各个方面，包括数据读取、数据处理、数据分析、模型构建、模型优化、结果可视化等。MATLAB的工具箱可以满足金融领域的各种需求，例如Datafeed Toolbox、Econometrics Toolbox、...
【C++】虚函数的作用及其底层实现机制
wesigj的博客
10-05 875
1. C++中虚函数的作用和多态 虚函数： 实现类的多态性 关键字：虚函数；虚函数的作用；多态性；多态公有继承；动态联编 C++中的虚函数的作用主要是实现了多态的机制。基类定义虚函数，子类可以重写该函数；在派生类中对基类定义的虚函数进行重写时，需要再派生类中声明该方法为虚方法。 当子类重新定义了父类的虚函数后，当父类的指针指向子类对象的地址时，[即B b; A a = &b;] 父类指针根据赋给它的不同子类指针，动态的调用子类的该函数，而不是父类的函数（如果不使用virtual方法，请看后面★*），
python 量化投资 一般进行什么数据预处理
06-12
在量化投资中，数据预处理是非常重要的一个环节，它可以对原始数据进行清洗、处理和转换，以便于后续的模型开发和回测。一般情况下，量化投资需要进行以下几种数据预处理： 1. 数据清洗：去除无效数据、缺失数据和异常数据等，以保证数据的质量和准确性。 2. 数据调整：对比不同时间段的数据，进行价格调整、除权除息等操作，以保证数据的一致性。 3. 数据标准化：将不同规模的数据进行标准化处理，以便于比较和分析。 4. 数据平滑：对数据进行平滑处理，以减少噪声和波动，提高模型的稳定性和可靠性。 5. 数据转换：对数据进行变换，以符合模型的要求，比如对数变换、差分变换等。 6. 特征工程：提取和构造合适的特征，以便于建立有效的模型。比如技术指标、基本面指标等。 以上是一些常见的数据预处理方法，具体实现需要根据不同的情况和需求进行调整和优化。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 2
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值