【VBA语言】【分享】用vba在excel中实现管理自己的基金

立志VB语言 发表于 2021-9-8 18:10

（特别申明，代码和界面设计并非我本人原创，是从网上找到的，因无法找到出处联系原始作者，如后续作者前来认领，我在署名原始作者哈，如有侵权请联系我删除）先上代码：
Sub jzgs1() 'XXX网净值估算
Dim strTextB As String, strTextA As String, strTextM As String, ii As Integer
Tilet = Array("fundcode", "name", "jzrq", "dwjz", "gsz", "gszzl", "gztime")
For i = 2 To .End(3).Row

'M净值估值
   With CreateObject("MSXML2.XMLHTTP")
         .Open "GET", "http://fundgz.1234567.com.cn/js/" & Format(Range("A" & i), "000000") & ".js", False
         .send
         temp = .RESPONSETEXT
         strTextM = Replace(Replace(temp, ":", ""), """", "") 'StrConv(.responsebody, vbUnicode, &H804)
         For j = 1 To 5
            Cells(i, j + 1) = Split(Split(strTextM, Tilet(j))(1), ",")(0) '
         Next

   End With
Next i
'Stop
= Left(Right(temp, 20), 16)

End Sub

以下是excel中表格设计。（关键在于基金代码，必须手动输入你需要管理的基金代码，其它数据就是代码自动爬取后自动写入的了）

以下是excel中表格设计完成后使用方法说明。
代码放入vba编辑工具里，手动F8调试或者直接点击运行，为了使用方便，可以把excel表格存储为xlsm（带有宏的表格后缀）格式文档。每次打开后，点击刷新即可。

Changhe 发表于 2022-4-10 16:52

感谢楼主分享。谢谢！

deniel 发表于 2021-11-9 21:50

小白炒作业，拿走不谢

O2H2O 发表于 2023-1-8 12:19

O2H2O 发表于 2022-12-27 11:04
是啊卡在这句，提示下标越界

终于搞明白了，代码没有错的！只是对于货币或QDII等没有估值的基金，就会报错

Wapj_Wolf 发表于 2021-9-8 19:18

佩服了大佬，这个非常有用。

c0co123 发表于 2021-9-8 20:04

这个厉害了!

咔c君 发表于 2021-9-8 21:00

不错大佬学习了

lhsum 发表于 2021-9-8 21:01

vba不会用，有成品吗

红蓝黄 发表于 2021-9-8 21:39

需要一份成品

时乐。 发表于 2021-9-9 16:11

这个刷新键怎么弄整不好，难搞哦

Changhe 发表于 2021-9-9 16:25

需要一份成品

FENGSJ 发表于 2021-9-11 06:47

学习了，有成品更好

manfeel 发表于 2021-9-11 15:48

各位大佬，弄个成品上来，可好？

页: [1] 2 3 4

吾爱破解 - 52pojie.cn's Archiver

【VBA语言】【分享】用vba在excel中实现管理自己的基金