（特别申明，代码和界面设计并非我本人原创，是从网上找到的，因无法找到出处联系原始作者，如后续作者前来认领，我在署名原始作者哈，如有侵权请联系我删除）先上代码：
[Visual Basic] 纯文本查看 复制代码 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 [A65536].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
[g1] = Left(Right(temp, 20), 16)
End Sub
以下是excel中表格设计。（关键在于基金代码，必须手动输入你需要管理的基金代码，其它数据就是代码自动爬取后自动写入的了）
电子表设计排版
以下是excel中表格设计完成后使用方法说明。
代码放入vba编辑工具里，手动F8调试或者直接点击运行，为了使用方便，可以把excel表格存储为xlsm（带有宏的表格后缀）格式文档。每次打开后，点击刷新即可。 | 
[复制链接]
发表于 2021-9-8 18:10
