最近基金很火爆，买基金的小伙伴们也很多，但是基金一般更新很晚，要到晚上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 '的打开文件 "GET","http ://fundgz的1234567的com的cn/js/" & Format(区域("b" & i),"000000") & ".js",False .send '的send temp = .RESPONSETEXT 'temp=的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列输入成本单价，如下图：
基金输入格式
然后剩下的工作就交给程序了，点击运行程序，如下图：
运行提取基金净值
基金展示图
怎么样是不是很神奇，每天收盘后运行一下，就可以根据天天基金网基金的估算值进行收益的估算了，不用每天等到晚上10点了，就自己可以估算收益了，不过这个表很粗造，没有考虑什么手续费，托管费，分红之类，那些有需要的基友自己去搞了。
赶快关注和收藏，动手试试吧，其实没那么难。
