vba 网抓后导入表格

yf475039349

现在我想把下面代码里面的网抓内容填入表格中，类似附件表格那样的。
希望有高手能够帮忙看看



Sub test()
    Dim winhttp As Object
    Dim token As String
    Dim senddata As String
    Dim json As Object
    Set winhttp = CreateObject("winhttp.winhttprequest.5.1")
    With winhttp
        j = 0
        For i = 1 To 200
            .Open "GET", "http://www.lspipe.cn:8888/erp/login_now/?next=/", False
            .setrequestheader "Host", "www.lspipe.cn:8888"
            .send
            token = Split(Split(.getallresponseheaders, "Set-Cookie: csrftoken=")(1), ";")(0)
            senddata = "csrfmiddlewaretoken=" & token & "&username=%E6%B5%8F%E8%A7%88%E8%B4%A6%E5%8F%B7&password=123456"
            .Open "POST", "http://www.lspipe.cn:8888/erp/login_now/?next=/erp/index/", False
            .setrequestheader "Host", "www.lspipe.cn:8888"
            .setrequestheader "Content-Type", "application/x-www-form-urlencoded"
            .setrequestheader "Referer", "http://www.lspipe.cn:8888/erp/login_now/?next=/erp/index/"
            .send senddata
            .Open "POST", "http://www.lspipe.cn:8888/erp/inners/list/", False
            .setrequestheader "Host", "www.lspipe.cn:8888"
            .setrequestheader "Content-Type", "application/x-www-form-urlencoded"
            .setrequestheader "Referer", "http://www.lspipe.cn:8888/erp/page/inners/"
            .send "start=" & j & "&length=100"
            With CreateObject("msscriptcontrol.scriptcontrol")
                .Language = "jscript"
                .addcode "var mydata=" & winhttp.responsetext
                Set json = .codeobject.mydata.inners
            End With
            j = i * 100
        Next i
    End With
End Sub

yf475039349

没有人帮忙吗？