Excel版投资工具1——股票基金行情更新

收藏关注

杂项

在数年前，大概是上轮牛市的时候，我在“dj论坛”上发布了一个用excel取行情数据（股票，基金，贵金属）的工具，受到了大家的欢迎。这个excel文件后来也在各大论坛，QQ群迅速传播，造福了广大股民和基民，特别是搞投资的上班族们。我估计很多人拿它稍作改动后，现在还在发挥余热。后来，我用C#编写了一个Excel插件，也发布在dj论坛上，反响不大。再后来，我转战jq，用Python实现了指数的估值算法，分享在jq上，也受到热烈的追捧，随后，在xq上出现了各种指数的估值表格，有人根据指数的估值高低来投资，机构们也顺应潮流推出了各种官方版本的指数估值，指数温度计啥的。想起这些举动，有一丝自豪，更多是感慨。

这次，我更换了数据接口，重新编写了一个股票基金的行情工具，分享给大家。上次的接口用的是新浪和腾讯的接口，这次股票指数行情用的是雪球的接口，基金净值和估值用的是天天基金的接口。

1、股票和指数行情

准备好要获取的品种的代码放在第一列中，如图。可以获取的品种包括场内的基金（ETF，LOF，封闭基金等），股票（港股和A股），指数（常见的指数以及特殊指数，只要雪球支持的），逆回购，可转债等。可以获取的信息因品种而异。股票的信息最多，包括流通市值，PE，PB，股息率等。这些信息很多在老版本中是获取不到的。获取完的表格如下（表中空白部分，如果有内容，不会被冲掉）。

关于代码，沪市的品种代码前两位一般是SH，深市是SZ，港股是HK。指数的话，中证指数官网发布的，如果沪深两市没有对应的，则用前缀CSI。

2、基金的净值和估值

老版本中没有估值这项功能。这次提供的基金估值功能，是一次可以获取多个基金的估值。而市面上，大多是一次只能获取一个基金的估值。所以我这个版本的估值获取速度比较快，应该是第一次有人免费放出这方面的代码。

我这里设置的是一次最多获取50个基金的净值和估值。要获取更多，自己修改代码就可以了。

这个工具怎么用？每个人都有各自的想法，有人用来记账，有人用来计算场内基金的折价溢价情况，用来套利等。具体怎么做，我就不展开了，大家发挥主观能动性吧。

这篇文章就当Excel投资工具的第一篇吧，以后我还会时不时发布一些Excel版本的投资工具，敬请大家关注。

（首发于公众号：金牛星空）

下载地址：集思录不能上传xlsm文件，只能网盘共享。
链接：https://pan.baidu.com/s/15KNJAC0YpZB1F7IhjVYE0g
提取码：b54g

发表时间 2021-09-16 21:22

赞同来自: 时光之田、背着行囊去远方、echoqf 、卡斯蒂亚、要饭的、kalada 、汉家军、浦江夜读书、杨鑫著、基坛子龙、sshappy 、厚积薄发666 、Poseidon1985 、晨风Zex 、Mikotor 、Akonin9 、iszsucs99 、npc小许、malijia 、iamlex 、普罗旺斯的树、ONER 、开心在读书、stitch928 、大象小尚、zhangyeats 、国产零零柒、yyuuttaaoo 、JaneHooo 、dongdong5765 、roubo 、一笔幸福、难得糊涂啊二、lao47 、xyz6435 、iamkhan 、shengypc 、jdzob 、流浪剑客、榴莲味儿雪糕、weibel 、vtpnew 、啊囖喂、ericericeric 、糖醋果仁儿、ynliuwq 、tomxiaoyu 、silent134 、拉格纳罗斯、xiuzhenxw 、gzsamchen 、无双0 、fuyda 、周强、体能狂魔、长缨在手、shmily669 、松下寻隐者、shakdockcn 、小月帅、yemu 、每天都有进步、牛背骑行、云飞扬lyz 、nanmian 、风xx 、持有封基、Hannnnn 、搬砖背锅、北欧神话、majia 、非协议用户、sweetno2 、eneny 、拜师、车路是、好运财运、时光深处的猫、ming1985wen 、gracewf 、兽毛吹风、二零20大吉大利、糖果一粒、求索88 、孔老大、踏踏实实、lrw6248 、肥螳螂、路林、bai100a 、Juhn 、Slowton 、newsu 、temp214 、bakehuang 、微积分V 、你猜再猜、投机、山林野士、eeoo 、沙丁2012 、Jasonxue008 、power827 、lhcdy 、tangzheci 、lhjgh 、稀饭木有糖、dongzhouwang 、e老实和尚、唐马拉其、老李飞刀009 、Jack202208 、sdu2011 、剪剪轻风、岱松、薇安乡野夫人、大道之行也、tylerxu4 、蓝河谷、lamarka 、吕宏、kbpz 、cnjsxmd 、zxghhjj 、线中问道、纤纤、wangjiajie 、h2828380 、悲情草根散户、顺势而动、火龙果与榴莲、jnoee 、sadday 、jianxi 、xcdk2018 、小韭、coobydean 、youyong 、奇异世界、Riddler 、stockv 更多 »

107 个回复

coobydean

这个可以再分享一下吗，集币感谢

2024-10-01 09:12 来自江苏引用

zengerren

急需此类工具，有朋友能分享一个吗？之前的有一个“基金简洁信息获取工具”也过期了

2024-09-29 09:33 来自四川引用

CHICKWONG

Sub jzgs1() 'XXX网净值估算
Dim strTextB As String, strTextA As String, strTextM As String, ii As Integer
Tilet = Array("fundcode", "name", "gszzl", "gztime")
For I = 2 To [A65536].End(3).Row

'M净值估值
With CreateObject("Msxml2.ServerXMLHTTP.6.0")
.Open "GET", "http://fundgz.1234567.com.cn/js/" & Format(Range("A" & I), "000000") & ".js", False
.send
temp = .responseText '提示错误，请问是网站修改API了么？
strTextM = Replace(Replace(temp, ":", ""), """", "") 'StrConv(.responsebody, vbUnicode, &H804)
Cells(I, 2) = Split(Split(strTextM, Tilet(1))(1), ",")(0) '
Cells(I, 3) = Split(Split(strTextM, Tilet(2))(1), ",")(0) '
End With
Next I
'Stop
[d1] = Left(Right(temp, 20), 16)

End Sub
大神，您好哈，之前通过这个excel都能获取天天基金网站的估值数据，现在获取不了，请问是网站修改API了么？怎么修改呢？

2024-08-31 11:22 来自辽宁引用