网页采集(网页抓取)教程第二课-用WinHTTP提交Post，viewstate获取和URLEncode编码方法

zss427607

上充裕的时间、坚定的信念、充分的耐心和一点点运气

VBA万岁

suwenkai 发表于 2014-9-16 22:17
回91楼

Mark......

VBA万岁

suwenkai 发表于 2014-9-16 22:17
回91楼

整理学习本例如附件：
北京交大招生取数.zip (1.39 MB, 下载次数: 111)

2015-4-16 17:11 上传

点击文件名下载附件

VBA万岁

suwenkai 发表于 2014-9-16 22:17
回91楼

        另，想请教一下suwenkai大师，我用以下代码将网页中各查询下拉选项的值下载至Excel的各查询下拉选项中了，然后想通过第2段代码将Excel的各查询下拉选项中的值填入网页中的各查询下拉选项，可之后网页并没有自动显示查询结果（手动输入查询值时网页是会自动显示查询结果的）。有什么办法解决这一问题？因为只有网页自动显示了查询结果时，才可以将其导回Excel表。
        或者，不用IE法，直接用XMLHTTP获得查询结果更好。

1. 
   
2. 
   
3. Sub 更新下拉列表值()
   
4. Dim html, op, arr, brr, i%, j%
   
5. Set html = CreateObject("htmlfile")
   
6. arr = Array("ctl04$sysq", "ctl04$nf", "ctl04$xkml", "ctl04$zymc", "ctl04$pyfs", "ctl04$pyfs")
   
7. ReDim brr(0 To 4)
   
8. With CreateObject("msxml2.xmlhttp")
   
9.     .Open "GET", "http://zsw.bjtu.edu.cn/JHFS/Default.aspx", False
   
10.     .send
    
11.     html.body.innerHTML = .responseText
    
12.     'For Each sl In html.all.tags("select")
    
13.         't = t & sl.Name & ","
    
14.     'Next
    
15.     't = Mid(t, 1, Len(t) - 1)
    
16.     'arr = Split(t, ",")
    
17.     For i = 0 To UBound(arr) - 1
    
18.         For Each op In html.all.tags("select")(arr(i)).all.tags("option")
    
19.             brr(i) = brr(i) & op.Value & ","
    
20.         Next
    
21.     Next i
    
22. End With
    
23. Range("b1,d1,f1,h1,j1").Validation.Delete
    
24. For j = 0 To 8 Step 2
    
25.     Range("b1").Offset(, j).Validation.Add Type:=xlValidateList, Operator:=xlBetween, Formula1:=Mid(brr(j / 2), 1, Len(brr(j / 2)) - 1)
    
26. Next j
    
27. Range("j1").Select
    
28. End Sub
    
29. Sub 北京交大招生取数查询()
    
30. Dim shp As Shape, r0 As Long, p%, i%, j%, r, t
    
31. ActiveSheet.UsedRange.Offset(2).Clear
    
32. On Error Resume Next
    
33. arr = Array("ctl04$sysq", "ctl04$nf", "ctl04$xkml", "ctl04$zymc", "ctl04$pyfs", "ctl04$pyfs")
    
34. With CreateObject("internetexplorer.application")
    
35.     .Visible = True
    
36.     .Navigate "http://zsw.bjtu.edu.cn/JHFS/Default.aspx"
    
37.     Do Until .ReadyState = 4
    
38.         DoEvents
    
39.     Loop
    
40.     For i = 0 To UBound(arr) - 1
    
41.         .Document.all.tags("select")(arr(i)).Value = Range("b1").Offset(, 2 * i).Value
    
42.     Next i
    
43. End With
    
44. End Sub
    

复制代码

VBA万岁

VBA万岁 发表于 2015-4-16 17:27
另，想请教一下suwenkai大师，我用以下代码将网页中各查询下拉选项的值下载至Excel的各查询下拉 ...

问题已解决，原来需要用suwenkai大师的URLEncodePlus函数对PostData数据中的省份、年份、科类、专业、培养方式这5个提交信息进行转码。

丶曾曾曾

楼主   我是白白，但是手头有就有个任务要这样的知识，看看能代工吗

丶曾曾曾

或者可以教教我   其他好说

lb971216008

非常好，终于找到你了

geryjun

内容很强大，慢慢学习。

billzhaopa

不错，学习，感谢。