VBA抓取网页表格数据

mail249120

samsinn 发表于 2019-1-30 17:28
备注说明你没看懂吗？ 不要从i=1开始遍历
for i = 0 to ...

啊，我原来以为第一行是标题行，可以不要，就改成1了,自作聪明了看来

samsinn

mail249120 发表于 2019-1-31 12:36
啊，我原来以为第一行是标题行，可以不要，就改成1了,自作聪明了看来

照理来说，是可以跳过标题行从1开始，但是你为何什么会发生出错，可能是其他地方改得不对

samsinn

我有时运行也会出错，但提示不一样，之后几次又不会提示错误，可能网速也有关系

mail249120

samsinn 发表于 2019-1-31 17:18
我有时运行也会出错，但提示不一样，之后几次又不会提示错误，可能网速也有关系

是的啊，每次出错都不一样，我只能用resume next，但这样的结果就是数据没法抓全，而且每次抓同样的链接得到的数据量都是不一样的，苦恼

mail249120

samsinn 发表于 2019-1-31 17:18
我有时运行也会出错，但提示不一样，之后几次又不会提示错误，可能网速也有关系

所以为了防止出错，在这句Set tableX = HTML.all.tags("table")(0)后面我加了一个判断:If Not Tablex Is Nothing Then... 这样的结果就是数据抓不全，苦恼

xyxcc177

这个不难吧，还没有搞定

xyxcc177

、、、、、、、、、、、、、

mail249120

xyxcc177 发表于 2019-2-1 11:53
、、、、、、、、、、、、、

需要用Excel VBA代码来抓取，

samsinn

mail249120 发表于 2019-2-1 09:52
所以为了防止出错，在这句Set tableX = HTML.all.tags("table")(0)后面我加了一个判断:If Not Tablex Is  ...

找到一个运行比较稳定的方法，就是加时间延迟

1. Private Declare Function timeGetTime Lib "winmm.dll" () As Long
   
2. Sub Delay(ByVal num As Integer)
   
3. Dim t As Long
   
4. t = timeGetTime
   
5. Do Until timeGetTime - t >= num * 1000
   
6. DoEvents
   
7. Loop
   
8. End Sub

复制代码

使用方法，把这段代码放在模块最前面，然后在xmlhttp.send 后面加上delay 2
2表示秒数

mail249120

samsinn 发表于 2019-2-1 13:25
找到一个运行比较稳定的方法，就是加时间延迟

使用方法，把这段代码放在模块最前面，然后在xmlhttp.se ...

我试试看，希望能解决，感谢为先