下面代码把数据输出到立即窗口，麻烦老师把数据输出到工作表中

王跃峰

Sub 东方财富_开发式基金净值()
    Dim js As Object, arr, db
    Set js = CreateObject("scriptcontrol")
    js.Language = "jscript"
    With CreateObject("msxml2.xmlhttp")
        .Open "GET", "http://fund.eastmoney.com/Data/Fund_JJJZ_Data.aspx?t=1&lx=1&letter=&gsid=&text=&sort=zdf,desc&page=1,9999&dt=1425889193593&atfc=&onlySale=0", False
        .send
        js.addcode .ResponseText
    End With
    For Each db In js.eval("db.datas")
        Debug.Print db                                                         '这里输出数据
    Next db
End Sub
https://club.excelhome.net/forum ... ead&tid=1190465

捞屎人

Debug.Print db         
改成
cells(i,1)=bd
i=i+1


Sub 东方财富_开发式基金净值()
    Dim js As Object, arr, db,i
i=1
    Set js = CreateObject("scriptcontrol")
    js.Language = "jscript"
    With CreateObject("msxml2.xmlhttp")
        .Open "GET", "http://fund.eastmoney.com/Data/Fund_JJJZ_Data.aspx?t=1&lx=1&letter=&gsid=&text=&sort=zdf,desc&page=1,9999&dt=1425889193593&atfc=&onlySale=0", False
        .send
        js.addcode .ResponseText
    End With
    For Each db In js.eval("db.datas")
       cells(i,1)=bd  

i=i+1                                                     '这里输出数据
    Next db
End Sub

王跃峰

捞屎人 发表于 2022-11-26 11:30
Debug.Print db         
改成
cells(i,1)=bd

感谢您的帮助，但数据没输出到工作表中

于箱长

王跃峰

于箱长 发表于 2022-11-26 16:22

老师您太牛了

于箱长

王跃峰 发表于 2022-11-26 17:48
老师您太牛了

提速版

王跃峰

于箱长 发表于 2022-11-26 18:08
提速版

牛！牛！牛！太牛了！！！

王跃峰

于箱长 发表于 2022-11-26 18:08
提速版

今天没分了，明天一定补上