求助，网抓数据

zhczhy2016

如何抓取以下ASP架构的数据，因为太多，最好是可以输入起始页，分批抓取。
http://59.49.34.87:2016/Application/gongs.aspx

suse360

MARK一下，坐等高手出来。

Excel__Boy

1. <div class="blockcode"><blockquote>Sub test()
   
2. Dim ie, dmt, tb, x, y, i
   
3.     Set ie = CreateObject("InternetExplorer.Application")
   
4.     With ie
   
5.         .Visible = True '显示它
   
6.         .navigate "http://59.49.34.87:2016/Application/gongs.aspx" '加载某个页面
   
7.         Do Until .ReadyState = 4 '等待页面加载完毕
   
8.             DoEvents
   
9.         Loop
   
10.         Set dmt = .document
    
11.         Debug.Print dmt.body.outerhtml
    
12.         'Stop
    
13.         For i = 1 To 1241
    
14.         
    
15.         
    
16.         Set dmt = .document
    
17.         Set tb = dmt.all.tags("table")(0)
    
18.         For x = 0 To tb.Rows.Length - 1
    
19.             For y = 0 To tb.Rows(x).Cells.Length - 1
    
20.                 Cells(x + 1, y + 1) = tb.Rows(x).Cells(y).innertext
    
21.             Next y
    
22.         Next x
    
23.         dmt.getElementById("GridView1_txtGoPage").Value = i
    
24.         dmt.getElementById("GridView1_btnTurn").Click
    
25.         Do Until .ReadyState = 4 '等待页面加载完毕
    
26.             DoEvents
    
27.         Loop
    
28.         Stop
    
29.         Next i
    
30.         
    
31.     End With
    
32. End Sub
    
33. 
    

复制代码

Excel__Boy

1. Sub test()
   
2. Dim ie, dmt, tb, x, y, i
   
3.     Set ie = CreateObject("InternetExplorer.Application")
   
4.     With ie
   
5.         .Visible = True '显示它
   
6.         .navigate "http://59.49.34.87:2016/Application/gongs.aspx" '加载某个页面
   
7.         Do Until .ReadyState = 4 '等待页面加载完毕
   
8.             DoEvents
   
9.         Loop
   
10.         Set dmt = .document
    
11.         Debug.Print dmt.body.outerhtml
    
12.         'Stop
    
13.         For i = 1 To 1241
    
14.         
    
15.         
    
16.         Set dmt = .document
    
17.         Set tb = dmt.all.tags("table")(0)
    
18.         For x = 0 To tb.Rows.Length - 1
    
19.             For y = 0 To tb.Rows(x).Cells.Length - 1
    
20.                 Cells(x + 1, y + 1) = tb.Rows(x).Cells(y).innertext
    
21.             Next y
    
22.         Next x
    
23.         dmt.getElementById("GridView1_txtGoPage").Value = i
    
24.         dmt.getElementById("GridView1_btnTurn").Click
    
25.         Do Until .ReadyState = 4 '等待页面加载完毕
    
26.             DoEvents
    
27.         Loop
    
28.         Stop
    
29.         Next i
    
30.         
    
31.     End With
    
32. End Sub
    
33. 
    

复制代码

Kaohsing

好像有过类似的，那是四川的。

Excel__Boy

1. Sub test()
   
2. Dim ie, dmt, tb, x, y, i
   
3.     Set ie = CreateObject("InternetExplorer.Application")
   
4.     With ie
   
5.         .Visible = True '显示它
   
6.         .navigate "http://59.49.34.87:2016/Application/gongs.aspx" '加载某个页面
   
7.         Do Until .ReadyState = 4 And .busy = False '等待页面加载完毕
   
8.             DoEvents
   
9.         Loop
   
10.         Set dmt = .document
    
11.         Debug.Print dmt.body.outerhtml
    
12.         'Stop
    
13.         For i = 1 To 10
    
14.         
    
15.         
    
16.         Set dmt = .document
    
17.         Set tb = dmt.all.tags("table")(0)
    
18.         For x = 0 To tb.Rows.Length - 1
    
19.             For y = 0 To tb.Rows(x).Cells.Length - 1
    
20.                 Cells(x + 1, y + 1) = tb.Rows(x).Cells(y).innertext
    
21.             Next y
    
22.         Next x
    
23.         dmt.getElementById("GridView1_txtGoPage").Value = i + 1
    
24.         dmt.getElementById("GridView1_btnTurn").Click
    
25.         Do Until .ReadyState = 4 And .busy = False '等待页面加载完毕
    
26.             Debug.Print .busy
    
27.             DoEvents
    
28.         Loop
    
29.         'Stop
    
30.         Worksheets.Add after:=Worksheets(Worksheets.Count)
    
31.         Next i
    
32.         
    
33.     End With
    
34. End Sub
    
35. 
    

复制代码

Excel__Boy

1. Sub test()
   
2. Dim ie, dmt, tb, x, y, i
   
3.     Set ie = CreateObject("InternetExplorer.Application")
   
4.     With ie
   
5.         .Visible = True '显示它
   
6.         .navigate "http://59.49.34.87:2016/Application/gongs.aspx" '加载某个页面
   
7.         Do Until .ReadyState = 4 And .busy = False '等待页面加载完毕
   
8.             DoEvents
   
9.         Loop
   
10.         Set dmt = .document
    
11.         Debug.Print dmt.body.outerhtml
    
12.         'Stop
    
13.         For i = 1 To 10
    
14.         
    
15.         
    
16.         Set dmt = .document
    
17.         Set tb = dmt.all.tags("table")(0)
    
18.         For x = 0 To tb.Rows.Length - 1
    
19.             For y = 0 To tb.Rows(x).Cells.Length - 1
    
20.                 Cells(x + 1, y + 1) = tb.Rows(x).Cells(y).innertext
    
21.             Next y
    
22.         Next x
    
23.         dmt.getElementById("GridView1_txtGoPage").Value = i + 1
    
24.         dmt.getElementById("GridView1_btnTurn").Click
    
25.         Do Until .ReadyState = 4 And .busy = False '等待页面加载完毕
    
26.             Debug.Print .busy
    
27.             DoEvents
    
28.         Loop
    
29.         'Stop
    
30.         Worksheets.Add after:=Worksheets(Worksheets.Count)
    
31.         Next i
    
32.         
    
33.     End With
    
34. End Sub

复制代码

Kaohsing

数据太多，下载时间较长。