帮忙用XMLHTTP 批量取对应数据

ppfjob · 发表于 2014-10-27 12:07

本帖最后由 ppfjob 于 2014-10-27 12:10 编辑

一般来讲可以用WEB查询导入取数, 但速度慢而且麻烦; 因为想的到批量数据, 考虑用XMLHTTP取数, 但是太高深, 有没大神挑战下批量网站取数?

附件只有三行, 实际可能有数百行, 是否可以实现, 大神帮忙看下, 谢谢. (依据A列网址, 取对应转发数到 B列).

对应网址取第二行的转发数

wudixin96 · 发表于 2014-10-27 12:42

当然能实现，但是不想挑战，哈哈

ppfjob · 发表于 2014-10-27 13:25

wudixin96 发表于 2014-10-27 12:42
当然能实现，但是不想挑战，哈哈

呵呵, 挑战一下吧, 我觉得挺麻烦的, 一般没人做批量的. Orz....

ppfjob · 发表于 2014-10-27 13:47

太复杂了!!研究了两天还是搞不定啊!!!

coby001 · 发表于 2014-10-27 14:14

无聊，又找免费肉工阿~~

ppfjob · 发表于 2014-10-27 14:23

好吧,等我做出来后共享给大家看看.

coby001 · 发表于 2014-10-27 14:34

ppfjob 发表于 2014-10-27 14:23
好吧,等我做出来后共享给大家看看.

http://club.excelhome.net/forum. ... 060&pid=7913583
一个批量例子

coby001 · 发表于 2014-10-27 15:05

本帖最后由 coby001 于 2014-10-27 15:07 编辑

ppfjob 发表于 2014-10-27 14:23
好吧,等我做出来后共享给大家看看.

Sub AJAX_test()
Const iMaxCnnxt = 10 ' 最大连接数
Const 同步 = False, 异步 = True, cDone = 4, cOk = 200
Dim xhrArr() As XMLHTTP, vArrRspBody()
ReDim xhrArr(1 To iMaxCnnxt)
ReDim vArrRspBody(1 To iMaxCnnxt)
Dim i&, iCnt&
For i = 1 To iMaxCnnxt
Set xhrArr(i) = New XMLHTTP
With xhrArr(i)
.Open "GET", "http://www.baidu.com", 异步
.Send
End With
Next
Do While iCnt < iMaxCnnxt
For i = 1 To iMaxCnnxt
DoEvents
If Not xhrArr(i) Is Nothing Then
With xhrArr(i)
If .readyState = cDone Then
iCnt = iCnt + 1
If .Status = cOk Then
vArrRspBody(i) = .ResponseBody
End If
Set xhrArr(i) = Nothing
End If
End With
End If
Next
Loop
End Sub

复制代码

--------
上面的例子是同步的，等待时间长
这个是异步的，可以同时下载所有链接。

ppfjob · 发表于 2014-10-27 16:52

谢谢帮找参考

VBA万岁 · 发表于 2014-11-3 17:05

coby001 发表于 2014-10-27 15:05
--------
上面的例子是同步的，等待时间长
这个是异步的，可以同时下载所有链接。

Mark一下。

		自动登录	找回密码
密码			免费注册

[求助] 帮忙用XMLHTTP 批量取对应数据