Edge
Chrome
Firefox
来jisilu很多年了，给大家贡献一个自己用的基于新浪行情接口和VBA的Excel股票行情抓取模板。Excel模板在本贴附件里面，2017-2023年已经免费分享了5、6年，自现在起，取消免费分享.
一、解决的痛点：
1、自动抓取股票行情，避免手工跟踪股票价格、市值的麻烦。
2、避免股票行情软件花花绿绿的界面（懂得）
3、自定义各种公式
二、主要功能：
1、可获取A股指数、个股、转债、基金、港股（港股有可能是延时的） 行情
2、定时（30秒，可修改）刷新功能
3、增加修改需要关心的个股非常方便（不需要编程能力）
三、应用场景举例
1、持仓市值跟踪：手工在本Excel中输入持仓数量，借助实时行情刷新，可创建自己的实时市值、仓位管理功能。
2、转债溢价率跟踪：抓取转债价格、正股价格，可利用excel功能实时跟踪转债溢价率。
3、分级基金合并溢价跟踪：以上海分级为例，抓取A、B和母鸡价格，可跟踪分级基金合并溢价。
四、安全性
1、源代码VBA开放，可自行检查
五、运行条件：
1、Excel上要开放“宏”运行权限（一般性Excel会有提示）
2、版本问题申明：在本人Office家庭和学生版Excel上运行正常，本人WPS版本上运行正常。
六、免责声明
1、本excel免费使用，本人不承担因使用、复制、传播此excel及其相关功能造成的任何损失
2、由于使用者电脑设置及excel软件版本，可能造成运行不正常，此问题我无法控制，只能用户自行解决。从实际大约50+用户反馈来看，反映无法正常运行的用户极少（少于5%）
七、下载链接
若看官确有需要，请仔细阅读并接受以下条款，1、本人提供的模板仅为个人之间学习使用，不允许用于商业用途，交付后不承诺任何后续技术支持服务，也不接受退款，不对后续使用赴任何责任。 2、打赏10金币即视为接受上述条款，接到打赏后我会通过jisilu私信，提供百度网盘下载链接
-------------------------
历史变更记录：
20220121新浪接口变更，紧急消缺更新到4.0版本
20230730 取消免费分享，改为打赏后提供网盘链接（现已过期）
20230812公告 。感谢各位的关注，由于收到jisilu后台提醒“请不要在社区做任何形式的营销推广”，出于对jisilu的尊重，即日起停止在本贴分享行情抓取模板的下载链接。各位朋友若确有需要，可以pm联系沟通
自己用的，所以比较简陋。如有不明，可回帖或私信联系。
致谢：
1、这个方法参考了jisilu里面很多同学的帖子，特别感谢islq同学在https://www.jisilu.cn/question/2230帖子里面提供的excel样例.
2、致谢20220121 欣财富自由之路@jisilu网友提供的新浪接口修复代码
一、解决的痛点：
1、自动抓取股票行情，避免手工跟踪股票价格、市值的麻烦。
2、避免股票行情软件花花绿绿的界面（懂得）
3、自定义各种公式
二、主要功能：
1、可获取A股指数、个股、转债、基金、港股（港股有可能是延时的） 行情
2、定时（30秒，可修改）刷新功能
3、增加修改需要关心的个股非常方便（不需要编程能力）
三、应用场景举例
1、持仓市值跟踪：手工在本Excel中输入持仓数量，借助实时行情刷新，可创建自己的实时市值、仓位管理功能。
2、转债溢价率跟踪：抓取转债价格、正股价格，可利用excel功能实时跟踪转债溢价率。
3、分级基金合并溢价跟踪：以上海分级为例，抓取A、B和母鸡价格，可跟踪分级基金合并溢价。
四、安全性
1、源代码VBA开放，可自行检查
五、运行条件：
1、Excel上要开放“宏”运行权限（一般性Excel会有提示）
2、版本问题申明：在本人Office家庭和学生版Excel上运行正常，本人WPS版本上运行正常。
六、免责声明
1、本excel免费使用，本人不承担因使用、复制、传播此excel及其相关功能造成的任何损失
2、由于使用者电脑设置及excel软件版本，可能造成运行不正常，此问题我无法控制，只能用户自行解决。从实际大约50+用户反馈来看，反映无法正常运行的用户极少（少于5%）
七、下载链接
若看官确有需要，请仔细阅读并接受以下条款，1、本人提供的模板仅为个人之间学习使用，不允许用于商业用途，交付后不承诺任何后续技术支持服务，也不接受退款，不对后续使用赴任何责任。 2、打赏10金币即视为接受上述条款，接到打赏后我会通过jisilu私信，提供百度网盘下载链接
-------------------------
历史变更记录：
20220121新浪接口变更，紧急消缺更新到4.0版本
20230730 取消免费分享，改为打赏后提供网盘链接（现已过期）
20230812公告 。感谢各位的关注，由于收到jisilu后台提醒“请不要在社区做任何形式的营销推广”，出于对jisilu的尊重，即日起停止在本贴分享行情抓取模板的下载链接。各位朋友若确有需要，可以pm联系沟通
自己用的，所以比较简陋。如有不明，可回帖或私信联系。
致谢：
1、这个方法参考了jisilu里面很多同学的帖子，特别感谢islq同学在https://www.jisilu.cn/question/2230帖子里面提供的excel样例.
2、致谢20220121 欣财富自由之路@jisilu网友提供的新浪接口修复代码
1
赞同来自: wazz
@南阳渔民
您说了，您是做生意出身，您现在需要IT服务，您就直接找一间软件公司，从需求分析做起，我相信任何一家软件公司都能满足您对响应时效的要求。
这里是一个因为爱好而聚集的兴趣广场，重点：兴趣广场
大家在这里闲聊，探讨观点，等等。。。
所以您想要按照商业标准说事儿，请按照商业标准付费
你真搞笑，我付了10金币，理论上是购买了服务，虽然很少，对集思录的人不值一提，但既然你标了价，我按价付了你，（打赏的形式，），我是做生意出身，要求你发来再正常不过，您别说了好吗？您有您的道理大家已经看到了。
jsl上大家都是平等的朋友-------你是有提出收费的，再少也是。不是你无尝的，赚钱少你说，你可以将价标的高些。
您说了，您是做生意出身，您现在需要IT服务，您就直接找一间软件公司，从需求分析做起，我相信任何一家软件公司都能满足您对响应时效的要求。
这里是一个因为爱好而聚集的兴趣广场，重点：兴趣广场
大家在这里闲聊，探讨观点，等等。。。
所以您想要按照商业标准说事儿，请按照商业标准付费
5
赞同来自: milan16 、影约 、巨鳄未成年 、williamkang 、牛肉干更多 »
@wangliang99
jsl上大家都是平等的朋友-------你是有提出收费的，再少也是。不是你无尝的，赚钱少你说，你可以将价标的高些。
问一下是正常的，可是您太心急，从15:38到16:04，你发我5条私信，催促我答复，其中包含4个问号，更有一条私信直接就是只有两个问号。 世界不是围绕某个人转的，jsl上大家都是平等的朋友，所以你的金币按照你私信里的要求已经退给你你真搞笑，我付了10金币，理论上是购买了服务，虽然很少，对集思录的人不值一提，但既然你标了价，我按价付了你，（打赏的形式，），我是做生意出身，要求你发来再正常不过，
jsl上大家都是平等的朋友-------你是有提出收费的，再少也是。不是你无尝的，赚钱少你说，你可以将价标的高些。
0
@南阳渔民
你错意了，这个如果是发邮件，就是转发一下，一分钟的事，我半个小时问你一下不行吗？私信你也不回，其实你只要给我说声下班后搞给我也行，让我有个时间预期，我也不急，但你不回复我，我以为你忘了，问一下是正常的，可是您太心急，从15:38到16:04，你发我5条私信，催促我答复，其中包含4个问号，更有一条私信直接就是只有两个问号。 世界不是围绕某个人转的，jsl上大家都是平等的朋友，所以你的金币按照你私信里的要求已经退给你
0
@wangliang99
这位客官，你15:37分打赏，16:10分就发帖子问为什么不给你下载链接，感觉您做事情真是雷厉风行。 我虽然经常上jsl网站，但是不能适应您的要求，您的金币我会退给你的。你错意了，这个如果是发邮件，就是转发一下，一分钟的事，我半个小时问你一下不行吗？私信你也不回，其实你只要给我说声下班后搞给我也行，让我有个时间预期，我也不急，但你不回复我，我以为你忘了，
1
赞同来自: scott
@南阳渔民
我打赏过了，为何没有发我。40602482@qq.com这位客官，你15:37分打赏，16:10分就发帖子问为什么不给你下载链接，感觉您做事情真是雷厉风行。 我虽然经常上jsl网站，但是不能适应您的要求，您的金币我会退给你的。
0
20230812公告 。感谢各位的关注，由于收到jisilu后台提醒“请不要在社区做任何形式的营销推广”，出于对jisilu的尊重，即日起停止在本贴分享行情抓取模板的下载链接。各位朋友若确有需要，可以pm联系沟通。
0
@wangliang99
公告，自即日起，取消免费分享，改为需要打赏8金币，打赏后我会发送提取码。已经答谢，我学习一下，求楼主多指教。
百度网盘链接: https://pan.baidu.com/s/1q93DWGzDBQK1f8SToPSyWA 提取码:（需打赏8金币后私信发送）
0
@darksage
第二个单元格 =VALUE(MID(C2,IFERROR(FIND("~~",C2),FIND("S~",C2))+2,FIND("~GP-A",C2)-2-IFERROR(FIND("~~",C2),FIND("S~",C2))))
我用WEBSERVICE函数+腾讯的简化接口，获取股票当前市值。两个单元格填公式就可以用，不用VBA。修复了一下对停牌股票报错的问题：
第一个单元格 =WEBSERVICE("http://qt.gtimg.cn/q=s_"&LOWER(A2))&T(NOW())
第二个单元格 =VALUE(MID(C2,FIND("~~",C2)+2,FIND("~GP-A",C2)-2-FIND("~~",C2)))
PS1:不能自动刷...
第二个单元格 =VALUE(MID(C2,IFERROR(FIND("~~",C2),FIND("S~",C2))+2,FIND("~GP-A",C2)-2-IFERROR(FIND("~~",C2),FIND("S~",C2))))
0
@darksage
我用WEBSERVICE函数+腾讯的简化接口，获取股票当前市值。两个单元格填公式就可以用，不用VBA。试了下，把公式填入黄格里，出来个#NAME, 求大神指点。
第一个单元格 =WEBSERVICE("http://qt.gtimg.cn/q=s_"&LOWER(A2))
第二个单元格 =VALUE(MID(C2,FIND("~~",C2)+2,FIND("~GP-A",C2)-2-FIND("~~",C2)))
PS1:不能自动刷新，需要按F9或者...
6
赞同来自: Restone 、star 、zhjienc 、mysun 、夜慕光临Alex 、更多 »
我用WEBSERVICE函数+腾讯的简化接口，获取股票当前市值。两个单元格填公式就可以用，不用VBA。
第一个单元格 =WEBSERVICE("http://qt.gtimg.cn/q=s_"&LOWER(A2))&T(NOW())
第二个单元格 =VALUE(MID(C2,FIND("~~",C2)+2,FIND("~GP-A",C2)-2-FIND("~~",C2)))
PS1:不能自动刷新，需要按F9或者修改表格才会刷新，如果需要自动刷新还是得加VBA https://zhidao.baidu.com/question/1834774969243331020.html
PS2:因为我只需要总市值，所以其他的就没管了，腾讯接口详细 http://www.hzhcontrols.com/new-97869.html
第一个单元格 =WEBSERVICE("http://qt.gtimg.cn/q=s_"&LOWER(A2))&T(NOW())
第二个单元格 =VALUE(MID(C2,FIND("~~",C2)+2,FIND("~GP-A",C2)-2-FIND("~~",C2)))
PS1:不能自动刷新，需要按F9或者修改表格才会刷新，如果需要自动刷新还是得加VBA https://zhidao.baidu.com/question/1834774969243331020.html
PS2:因为我只需要总市值，所以其他的就没管了，腾讯接口详细 http://www.hzhcontrols.com/new-97869.html
0
sh是600开头的，应该是sh600100@junzhi33
请问调用函数的时候，如何自动填入代码？难道大家都是手工录入代码？
=getStockPrice("sh000001")
我用了indirect，但似乎不行，请教一下哪位告诉我调用方法。
1
赞同来自: wuyuan1900
请问调用函数的时候，如何自动填入代码？难道大家都是手工录入代码？
=getStockPrice("sh000001")
我用了indirect，但似乎不行，请教一下哪位告诉我调用方法。
=getStockPrice("sh000001")
我用了indirect，但似乎不行，请教一下哪位告诉我调用方法。
京公网安备 11010802031449号