[已解决]如何将网页里多页的数据导入工作表里

zhusong19989

雪舞子 发表于 2015-5-12 18:27
这个没什么难度，做个全部页码的吧，
数据已经全部抓取完，楼主可以直接拿去用。

亲呀，
我还有很多网页，是不是只要改动“For x = 0 To 63”中的数字
和            .Open "get", "链接" & 30 * x, False


改这两个地方就可以吗

但我改后，就出现整页整页的重复。

望指教！

zhusong19989

Option Explicit
Sub test()
    Dim HTML, tb, i&, j&, x&, n&, s$
    [a2:d9999] = ""
    Set HTML = CreateObject("htmlfile")
    With CreateObject("msxml2.xmlhttp")
        For x = 0 To 21
            .Open "get", "https:（省去双//）gaokao.chsi.com.cn/zzbm/mdgs/detail.action?oid=476733949&lx=" & 30 * x, False
            .Send
            Application.Wait (Now + TimeValue("00:00:02"))
            HTML.body.innerhtml = .responsetext
            Set tb = HTML.ALL.tags("table")(0).Rows
            For i = 1 To tb.Length - 1
                n = n + 1
                For j = 0 To tb(i).Cells.Length - 1
                    Cells(n + 1, j + 1) = tb(i).Cells(j).innertext
                Next
            Next
        Next
    End With
    MsgBox "获取完毕!"
End Sub
Option Explicit


这个是我改后的，导入后就是重复的。

zhusong19989

Excel学徒123 发表于 2015-5-12 17:41
下载我的附件吧，有进度条，直接复制代码要报错，具体结果 你检查下

我一改动链接，导入的数据就会重复，如果换网页，需要改动哪些呀。

亲，快教教我吧。

跪了！

Excel学徒123

zhusong19989 发表于 2015-5-12 21:20
我一改动链接，导入的数据就会重复，如果换网页，需要改动哪些呀。

亲，快教教我吧。

地址要改，网址抓取的页数也要改，也就是循环变量

zhusong19989

Excel学徒123 发表于 2015-5-12 21:22
地址要改，网址抓取的页数也要改，也就是循环变量

12楼就是都改了，但还是不行，笨死我了。

Excel学徒123

zhusong19989 发表于 2015-5-12 21:30
12楼就是都改了，但还是不行，笨死我了。

网址有你这种写法吗？我看得都醉了
https:（省去双//）gaokao.chsi.com.cn/zzbm/mdgs/detail.action?oid=476733949&lx=
你自己给的网址都在这乱写
https://gaokao.chsi.com.cn/zzbm/mdgs/detail.action?oid=476733949&lx=

zhusong19989

Excel学徒123 发表于 2015-5-12 21:35
网址有你这种写法吗？我看得都醉了
https:（省去双//）gaokao.chsi.com.cn/zzbm/mdgs/detail.action?oid ...

我是初级，不能发链接，只有把链接改成文本形式才能发的，实际在文件中是这样写的。

Excel学徒123

zhusong19989 发表于 2015-5-12 21:37
我是初级，不能发链接，只有把链接改成文本形式才能发的，实际在文件中是这样写的。

，那搞不懂了~~~

zhusong19989

Excel学徒123 发表于 2015-5-12 21:35
网址有你这种写法吗？我看得都醉了
https:（省去双//）gaokao.chsi.com.cn/zzbm/mdgs/detail.action?oid ...

是不是，第二次运行时，需要清空变量呀，我记得以前在某个程序里的变量被反复使用时，会出现变量失效的情况。

Excel学徒123

zhusong19989 发表于 2015-5-12 21:42
是不是，第二次运行时，需要清空变量呀，我记得以前在某个程序里的变量被反复使用时，会出现变量失效的情 ...

变量在代码运行完之后就自动释放了
，所以不是这个问题