网页采集(网页提交)教程第一课-用XMLHTTP获取数据并用Adodb.Stream转换编码提取信息

引子玄

向前辈请教，如何翻动网页？
这5页地址分别是：
http://www.sdzs.gov.cn/score/gaokao/2012/0715/Book1.files/sheet001.htm
http://www.sdzs.gov.cn/score/gaokao/2012/0715/Book2.files/sheet001.htm
http://www.sdzs.gov.cn/score/gaokao/2012/0715/Book3.files/sheet001.htm
http://www.sdzs.gov.cn/score/gaokao/2012/0715/Book4.files/sheet001.htm
http://www.sdzs.gov.cn/score/gaokao/2012/0715/Book5.files/sheet001.htm

========================================================
附代码如下（QueryTables对象法），能否帮修改一下？（代码中的Book1如何写变量？）

Sub 如何翻动网页()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 5

    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.sdzs.gov.cn/score/gaokao/2012/0715/Book1.files/sheet001.htm", _
        Destination:=Range("A" & 78 * (i - 1) + 1))
        .Name = "sheet001"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With

Next i
Application.ScreenUpdating = True

End Sub

liucqa

我认为你应该发一个新贴，而不是在这个贴里面等着我给你改代码。

要知道，俺最不愿意干的事情就是改代码了

引子玄

被前辈逼上梁山，自己改出来了，参考了蓝天大师的点拨。
==========================================
Sub 翻动网页已解决()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 5
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.sdzs.gov.cn/score/gaokao/2012/0715/Book" & i & ".files/sheet001.htm", _
        Destination:=Range("A" & 78 * (i - 1) + 1))
        .Name = "sheet001"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
Next i
Application.ScreenUpdating = True
End Sub

leroy

QueryTables在分析多个网页数据的时候还是不方便。
为了得到最终需要的数据，可能需要用到正则。
需要从这个帖子里面学的东西太多了，谢谢楼主分享，期待楼主更多教程

zealot30

这必须要学习一下，一直挺有兴趣

一条狗

liucqa 发表于 2012-7-16 14:28
用winhttp，get重定向之前的就行
.Option(6)=True

如果碰到无法获得网址的情况怎么办..地址栏通过一些手段隐藏起来,就无法获得网页信息

liucqa

一条狗 发表于 2012-7-17 09:47
如果碰到无法获得网址的情况怎么办..地址栏通过一些手段隐藏起来,就无法获得网页信息

举一个链接的例子？

一般这种情况可以通过抓包软件解决。

kangatang

咋么没有第二课了。
题材来了
http://club.excelhome.net/thread-892195-3-1.html
帮我看看，网址中有个该死的  sid号码，过期会失效(虽然时间足够长)
基本上已经可以下载。但并不那么方便，有时候还要找个SID。(见29楼)

liucqa

kangatang 发表于 2012-7-17 10:43
咋么没有第二课了。
题材来了
http://club.excelhome.net/thread-892195-3-1.html

呵呵，这个网站的有登录密码，不适合做教程。

我之前回帖说过，要从初始链接开始进入，在网页源代码中取得post提交的参数，然后再进入提取数据的链接，这样就可以了

俺一直就没登录进这个网站，只能提个建议了

kangatang

liucqa 发表于 2012-7-17 12:22
呵呵，这个网站的有登录密码，不适合做教程。

我之前回帖说过，要从初始链接开始进入，在网页源代码中 ...

https://libproxy.eku.edu/login
user        Bridgette_knight8
pass        comma14down

就进去了，点击"Web of Knowledge"进入搜索页面