网爬程序纠错

hehex

sjvkik 发表于 2018-6-20 14:16
Sub cc()
    Dim arr(1 To 100000, 1 To 16)
    Cells.ClearContents

看的出来，你压根就是抄来的代码本身对这个一窍不通。
这种代码不是万灵丹，拿一个直接套就能用。

附件程序已经做好了，自动采集73页你需要的相应数据。我测试了一页没有问题，直接点按钮让它跑吧。

sjvkik

hehex 发表于 2018-6-21 15:44
看的出来，你压根就是抄来的代码本身对这个一窍不通。
这种代码不是万灵丹，拿一个直接套就能用。

真是太感谢了，可是程序一直在跑第一页，后来就说下标出界了，跑了13次，麻烦您再劳神看看。

hehex

sjvkik 发表于 2018-6-22 15:31
真是太感谢了，可是程序一直在跑第一页，后来就说下标出界了，跑了13次，麻烦您再劳神看看。

构造翻页url 的小bug, 用新的附件吧。我测试了10页没问题

sjvkik

太感谢了！！