最近基金很火爆，买基金的小伙伴们也许多，可是基金一般更新很晚，要到晚上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", "fundgz.1234567/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列输入本钱单价，如下图：

基金输入格局

然后剩余的作业就交给程序了，点击运转程序，如下图：

运转提取基金净值

基金展现图

怎么样是不是很奇特，每天收盘后运转一下，就能够依据天天基金网基金的预算值进行收益的预算了，不必每天比及晚上10点了，就自己能够预算收益了，不过这个表很粗造，没有考虑什么手续费，保管费，分红之类，那些有需求的基友自己去搞了。

从速重视和保藏，着手试试吧，其实没那么难。