批量下载网页

a4569874

coby001 发表于 2014-10-26 17:52
Sub AJAX_test()
    Dim xhrArr() As XMLHTTP, byteArr() As Byte     

提示编译错误,能否按照上面的excel排布和功能需求给个能批量下载的VBA?

coby001

a4569874 发表于 2014-10-26 18:03
提示编译错误,能否按照上面的excel排布和功能需求给个能批量下载的VBA?

Sub AJAX_test()
    Dim xhrArr() As XMLHTTP, vArrRspBody(), byteArr() As Byte   
    ReDim xhrArr(10)   
    ReDim vArrRspBody(10)

    Dim i&
    For i = 0 To 10
        Set xhrArr(i) = New XMLHTTP
        With xhrArr(i)
            .Open "GET", "http://www.baidu.com", False    ', bstrUser, bstrPassword
            .Send           
            byteArr = .ResponseBody  ' .ResponseText
            vArrRspBody(i) = byteArr
            Erase byteArr
        End With
    Next
End Sub


-----
示例~~

coby001

a4569874 发表于 2014-10-26 18:03
提示编译错误,能否按照上面的excel排布和功能需求给个能批量下载的VBA?

看 示例，自己动脑，动手。

a4569874

coby001 发表于 2014-10-26 18:10
Sub AJAX_test()
    Dim xhrArr() As XMLHTTP, vArrRspBody(), byteArr() As Byte   
    ReDim xhrAr ...

不成功啊

a4569874

coby001 发表于 2014-10-26 18:13
看 示例，自己动脑，动手。

好吧,         

coby001

a4569874 发表于 2014-10-26 18:14

这种小问题，就不要发图来问了
论坛里都问烂了
自己搜~~

a4569874

coby001 发表于 2014-10-26 18:18
这种小问题，就不要发图来问了
论坛里都问烂了
自己搜~~

个人愚钝,现在已经不提示编译错误了,但还是下载不了任何东西,刚接触VBA,你的代码看不懂什么意思,
我的问题很简单,就是如何依次将GET值为B2,Cookie值为C2,保存文件名为D2
然后就下一步依次取GET值为B3,Cookie值为C3,保存文件名为D3,一直循环下去就可以了,只是找不到这样循环的表示方法
还是谢谢你的热心解答了

coby001

a4569874 发表于 2014-10-27 15:10
个人愚钝,现在已经不提示编译错误了,但还是下载不了任何东西,刚接触VBA,你的代码看不懂什么意思,
我的问 ...

http://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=1161060&pid=7913528

看7楼~ 再看 12楼的例子，仔细看。

ak47ok

学习中，谢谢

xxxycw

突然发现要学习的东西太多了。