分享一个Excel工具可以快速查看基金和可转债数据的数据。
2. 每个标签页最多拉取 999 只基金(如果超过限制,复制标签页即可)
3. 可转债数据可以根据 价格、转股溢价率 两列计算订制的双低值(不是各 50% 的权重)
4. 后续不断更新版本增加新功能
5. 如果有新需求,可以加我微信沟通: timeismoney2099
更新:
- 新版本下载链接:链接
- 当前版本:V0.24
- 更新内容:
- 修复可转债规模无法显示的bug
- 添加自选可转债标签页
- 杀毒软件报告木马:这个Excel的工作原理是用VBA脚本从网上拉取基金信息,既然有脚本,那么杀毒软件提示木马也是正常。
- 提示“Microsoft 已阻止宏运行,因为此文件的来源不受信任”:这是由于微软的安全策略,从网上下载的 Excel 默认禁用宏。
2. 增加首页功能
3. 增加行业估值数据
使用说明
1. 在【代码】列输入基金代码,点击【更新】按钮,即可自动拉取基金的基本信息2. 每个标签页最多拉取 999 只基金(如果超过限制,复制标签页即可)
3. 可转债数据可以根据 价格、转股溢价率 两列计算订制的双低值(不是各 50% 的权重)
4. 后续不断更新版本增加新功能
5. 如果有新需求,可以加我微信沟通: timeismoney2099
更新:
- 新版本下载链接:链接
- 当前版本:V0.24
- 更新内容:
- 修复可转债规模无法显示的bug
- 添加自选可转债标签页
常见问题
- 请使用微软的Excel打开文件(使用WPS打开会遇到各种未知问题)- 杀毒软件报告木马:这个Excel的工作原理是用VBA脚本从网上拉取基金信息,既然有脚本,那么杀毒软件提示木马也是正常。
- 提示“Microsoft 已阻止宏运行,因为此文件的来源不受信任”:这是由于微软的安全策略,从网上下载的 Excel 默认禁用宏。
- Excel 未启用宏:需要打开 Excel 的宏设置。【文件】 -> 【选项】-> 【信任中心】 -> 【宏设置】
后续版本更新计划
1. 增加可转债数据:回售触发价、强赎触发价、纯债价值、税前到期收益率、税后到期收益率2. 增加首页功能
3. 增加行业估值数据
1
赵百万 - 鼎之轻重,可以问吗?
赞同来自: 基建小白
2022.1.5 13:09 更新:
增加近1周、近1月、近3月、近6月收益率
基金简洁信息获取_V0.3.xlsm
后续版本更新计划:
1. 增加回撤数据
2. 增加前10大股票占比
3. 随着数据列数的增加,增加可订制显示哪些列的功能(优先级低)
增加近1周、近1月、近3月、近6月收益率
基金简洁信息获取_V0.3.xlsm
后续版本更新计划:
1. 增加回撤数据
2. 增加前10大股票占比
3. 随着数据列数的增加,增加可订制显示哪些列的功能(优先级低)
3
赵百万 - 鼎之轻重,可以问吗?
2022.1.4 20:29 更新:
修正跨年导致的数据错乱问题
基金简洁信息获取_V0.2.xlsm
备注:
1. 部分基金看到“今年以来”列的数据与“近一年”的数据相同,是由于天天基金的数据还没有完全更新。
2. “今年以来”列与“2022年”列的数据完全一致,只是方便查看分成两列显示。
修正跨年导致的数据错乱问题
基金简洁信息获取_V0.2.xlsm
备注:
1. 部分基金看到“今年以来”列的数据与“近一年”的数据相同,是由于天天基金的数据还没有完全更新。
2. “今年以来”列与“2022年”列的数据完全一致,只是方便查看分成两列显示。
1
赞同来自: Joeson777
感谢,试了下mac下无法运行,可能的话麻烦支持下吧。
可以参考下面的代码
可以参考下面的代码
Option Explicit
Private Declare PtrSafe Function popen Lib "libc.dylib" (ByVal command As String, ByVal mode As String) As LongPtr
Private Declare PtrSafe Function pclose Lib "libc.dylib" (ByVal file As LongPtr) As Long
Private Declare PtrSafe Function fread Lib "libc.dylib" (ByVal outStr As String, ByVal size As LongPtr, ByVal items As LongPtr, ByVal stream As LongPtr) As Long
Private Declare PtrSafe Function feof Lib "libc.dylib" (ByVal file As LongPtr) As LongPtr
Function execShell(command As String, Optional ByRef exitCode As Long) As String
Dim file As LongPtr
file = popen(command, "r")
If file = 0 Then
Exit Function
End If
While feof(file) = 0
Dim chunk As String
Dim read As Long
chunk = Space(50)
read = fread(chunk, 1, Len(chunk) - 1, file)
If read > 0 Then
chunk = Left$(chunk, read)
execShell = execShell & chunk
End If
Wend
exitCode = pclose(file)
End Function
Function HTTPGetOSX(sUrl As String) As String
Dim sCmd As String
Dim sResult As String
Dim lExitCode As Long
sCmd = "curl --get """ & """" & " " & sUrl
sResult = execShell(sCmd, lExitCode)
HTTPGetOSX = sResult
End Function
Function HTTPGetWin(sUrl As String) As String
'创建XmlHttp对象'
Dim xmlHttp As Object
Set xmlHttp = CreateObject("MSXML2.XMLHTTP")
'创建并发送请求'
xmlHttp.Open "GET", sUrl, False
xmlHttp.setRequestHeader "If-Modified-Since", "0" '不要缓存'
xmlHttp.Send
Dim sResponse As String
sResponse = xmlHttp.responseText
HTTPGetWin = xmlHttp.responseText
End Function
Function HTTPGet(sUrl As String) As String
If InStr(Application.OperatingSystem, "Windows") > 0 Then
HTTPGet = HTTPGetWin(sUrl)
Else
HTTPGet = HTTPGetOSX(sUrl)
End If
End Function