第一辑、网页：点击标签，翻页

xd0718

确实很神奇。看来也可以在B/S架构的网页中自动提交表单数据了。改天给您发个需求，请大师指点一下吧/

xd0718

求蓝天大侠帮忙。我的大问题已解决，但有一些小问题：抓取能够成功，但在写入EXCEL时存在跳页现象，写入不完整。代码如下：
sub 自动登录抓取数据()
On Error Resume Next
Application.DisplayAlerts = False
Set ie1 = CreateObject("internetexplorer.application")
With ie1
    .Visible = True
    .Navigate "http://51.64.3.17:7008/login.do"   '初始登录页面，有用户名和密码框
    Do Until .Readystate = 4 And .Notbusy
        DoEvents
    Loop
    .Document.all("username").Value = "999999999"  '用户名
    .Document.all("password").Value = "123456"     '密码
    .Document.all("submit").Click                   '提交        
    Do Until .Readystate = 4 And .Notbusy
        DoEvents
    Loop
    k = k + 1                                           '我也不知道原因，只是用K来控制登录        
    .Navigate "http:51.64.3.17:7008/information/deposit/getT47_agreementList.do?newsearchflag=" & k  '系统默认为                                             'http:51.64.3.17:7008/information/deposit/getT47_agreementList.do?newsearchflag=2，但多次登录
                               '提示session错误，加入K后能够解决
    Do Until .Readystate = 4 And .Notbusy
        DoEvents
    Loop
    .Document.all("organkey").Value = "999999999"          '单位分配的号，也即用户名
    .Document.all("deposit_type").option.Value = "2"       '账户类型，为对私账户，但不起作用，应该是使用错误，求指正
    .Document.all("input")(9).onclick
    Do Until .Readystate = 4
        DoEvents
    Loop
    For p = 1 To 10000
        .Navigate "http://51.64.3.17:7008/information/deposit/getT47_agreementList.do?&intPage=" & p   '翻页
        Do Until .Readystate = 4
            DoEvents
        Loop
        Set r1 = .Document.all.tags("table")(5).Rows
        n = Range("a65536").End(xlUp).Row
        For m = 1 To r1.Length - 1
            For j = 0 To 6
                Cells(m + n, j + 1) = r1(m).Cells(j).innerText
            Next j
        Next m
    Next p
    End With

蓝天630902

xd0718 发表于 2012-10-30 21:54
求蓝天大侠帮忙。我的大问题已解决，但有一些小问题：抓取能够成功，但在写入EXCEL时存在跳页现象，写入不完 ...

.Document.all("deposit_type").option.Value = "2"       '账户类型，为对私账户，但不起作用，应该是使用错误，求指正

改成：

.Document.All("deposit_type").All.tags("option")(2).Selected = True     '账户类型，对私账户

应该可以。

gwfzh

{:soso__7754280061308968573_2:}

xd0718

多谢蓝天老师，但还是存在抓取内容跳页的问题，不知是何原因。

xd0718

老大，我按你的代码作了，但还是不行，而且还是有跳页的现象/抓取不全。我把内容输出到文本文件中也是不行。请帮我看看吧。

840205910

我对蓝天老师越来越崇拜了

xd0718

蓝天老师，我的抓取页面很规律，都是每页20行数据，但现在还是存在跳页现象，抓取不完整，而且还有重复数据出现。而且我打算在.document.all("intPage").value赋值后点击“GO”按钮翻页，但无法实现，只是输入框里数字变化，但不番页，求助。

xd0718

蓝天老师，我重上源码，再帮小弟看一下吧。谢谢了。我现在的情况是用Click,onClick和submiit方法都不管用。代码是.Document.al("input").all.tags("a")(22).click,我在前面加了个判断标签<a>index值的语句。但是没有反应。

suwenkai

收藏一下。以后有用。