1234567天天基金网基金净值（EXCEL VBA实际使用案列分享天天基金网基金净值估算值网页提取）

admin

作者

最近基金很火爆，买基金的小伙伴们也很多，但是基金一般更新很晚，要到晚上10点多左右才更新完，有时更晚，但是心急的小伙伴也很想知道今天收益的状况，或者根据收益进行补仓或者杀鸡的操作依据，如果买的基金比较多，网页一个个去查找复制很是麻烦，今天就教基友们一个天天基金网基金净值和估算值网页提取工具。

首先还是打开EXCEL，复制下面的代码到VBA编辑窗口，代码已经注释，基友们可以自行根据需要修改。

Sub jjtq()Dim tt, TM$, i As Integer, er%, temp, j% '定义变量 tt,TM$,i 为整型值,er%,temp,j%tt = Array("fundcode", "name", "jzrq", "dwjz", "gsz", "gszzl", "gztime") ' tt=<数组>("fundcode","name","jzrq","dwjz","gsz","gszzl","gztime")er = ActiveSheet.Range("b65536").End(3).Row 'er= 活动工作表的<单元格>区域("b65536" )的<末端>(3 )的行标For i = 2 To er '设定变量范围为i=2到er With CreateObject("MSXML2.XMLHTTP") '工作于<创建工程>("MSXML2.XMLHTTP") .Open "GET", "http://fundgz.1234567.com.cn/js/" & Format(Range("b" & i), "000000") & ".js", False '<With对象>的打开文件 "GET","http ://fundgz的1234567的com的cn/js/" & Format(<单元格>区域("b" & i),"000000") & ".js",False .send '<With对象>的send temp = .RESPONSETEXT 'temp=<With对象>的RESPONSETEXT TM = Replace(Replace(temp, ":", ""), """", "") 'TM=<替换字符串>(<替换字符串>(temp,":",""),"""","") For j = 1 To 5 '设定变量范围为j=1到5 On Error Resume Next '当错误转到下一个 Cells(i, j + 4) = Split(Split(TM, tt(j))(1), ",")(0) '<单元格>坐标(i,j+4)=<分割字符串>(<分割字符串>(TM,tt(j))(1),",")(0) Cells(i, 10) = Left(Right(temp, 20), 16) '<单元格>坐标(i,10)=<截取字符串左侧>(截取字符串右侧(temp,20),16) If len(Cells(i, 5) )> 0 Then '如果 <单元格>坐标(i,5) 不等于空则执行 Cells(i, 11) = Cells(i, 3) * Cells(i, 4) '<单元格>坐标(i,11)=<单元格>坐标(i,3)*<单元格>坐标(i,4) Cells(i, 12) = (Cells(i, 7) - Cells(i, 4)) * Cells(i, 3) '<单元格>坐标(i,12)=(<单元格>坐标(i,7)-<单元格>坐标(i,4))*<单元格>坐标(i,3) Cells(i, 13) = (Cells(i, 7) / Cells(i, 4)) - 1 '<单元格>坐标(i,13)=(<单元格>坐标(i,7)/<单元格>坐标(i,4))-1 Cells(i, 14) = (Cells(i, 8) - Cells(i, 4)) * Cells(i, 3) - (Cells(i, 7) - Cells(i, 4)) * Cells(i, 3) '<单元格>坐标(i,14)=(<单元格>坐标(i,8)-<单元格>坐标(i,4))*<单元格>坐标(i,3)-(<单元格>坐标(i,7)-<单元格>坐标(i,4))*<单元格>坐标(i,3) End If 'If判断过程结束 Next '下一个 End With 'With语句结束Next i '下一个iMsgBox "基金提取完成" '<消息框>："基金提取完成"End Sub

然后在Excel表B列输入基金代码，C列输入持仓份额，D列输入成本单价，如下图：