id = "
http://www.thfund.com.cn/calculator.do?method=find&date=" & Year(Date) & "-" & m & "-" & d & "&fundcode=000198"
Set http = CreateObject("Microsoft.XMLHTTP")
http.Open "GET", id, False
http.send
http.responseText
官网的万份收益数据连接,写在EXCEL VBA里 ,就能自动获取