通过excel实现高考成绩的快速查询

第十九层地狱

那你们那些查询的数据哪里来？

xmyjk

短信收到，程序如下：

1. Option Explicit
   
2. Sub a()
   
3. Dim ie1 As Object, dmt As Object, r As Object, ARR, p&, ZKZ As String, SFZ As String, URL As String
   
4. 'Load UserForm1
   
5. 'UserForm1.Show 0
   
6. On Error Resume Next
   
7. Cells.NumberFormat = "@"
   
8. 
   
9. Set ie1 = UserForm1.WebBrowser1
   
10. ie1.Silent = True
    
11. For p = 2 To [A65536].End(3).Row
    
12.    ZKZ = Cells(p, 1): SFZ = Cells(p, 2)
    
13.    URL = "http://www.sneac.com/gklqcx/lqjgcx_jg.jsp?wbzkzh=" & ZKZ & "&wbsfzh=" & SFZ
    
14.    Debug.Print URL
    
15.    With ie1
    
16.       .Navigate URL '网址
    
17.       Do Until .ReadyState = 4
    
18.          DoEvents
    
19.       Loop
    
20.       Set dmt = .Document
    
21.    End With
    
22. 
    
23. Set r = dmt.All.tags("table")(4).All.tags("table")(3).Rows
    
24. ARR = Array(r(0).Cells(1).innerText, Split(r(0).Cells(2).innerText, "：")(1), r(2).Cells(0).innerText, r(2).Cells(1).innerText, r(2).Cells(2).innerText)
    
25. Cells(p, 3).Resize(1, UBound(ARR) + 1) = ARR
    
26. Set dmt = Nothing
    
27. Set r = Nothing
    
28. Erase ARR
    
29. Next
    
30. 
    
31. Set ie1 = Nothing
    
32. 
    
33. End Sub
    

复制代码

1. Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
   
2. pDisp.Document.parentwindow.execScript "window.alert = null;window.confirm = null;window.open = null;window.showModalDialog = null;", "javascript"
   
3. End Sub

复制代码

wd干瘪豆腐干

xmyjk 发表于 2011-10-10 19:56
短信收到，程序如下：

谢谢xmyjk.以后要多向你学习！

zslyyy

收藏了，以备学习

smhf_6

谢谢xmyjk 老师的精彩讲解，我在网页这方面应用也很多，但碰到的问题也特多，其中有一个单位内部网站，我用LDY版主的“网页分析不求人”，我本想自动登录的，居然源代码中我看不出有用的信息，甚至版主的工具也不返回任何信息，这网页的变化太多了

VBA万岁

xmyjk 发表于 2011-10-10 19:56
短信收到，程序如下：

学习了，尤其是第二段代码给了我很大帮助，谢谢！

wsz5400558

wudixin96 发表于 2011-10-9 12:38
这样吗？？？？？

具体怎么实现的？代码中怎么没有网址？
<span class="qdstyle679706692_3118">准考证号：</span><input name="wbzkzh" id="wbzkzh"><font color="red">&nbsp;*</font>
     </td>
</tr>
<tr>
     <td align="center" nowrap>
     <span class="qdstyle679706692_3118">身份证号：</span><input name="wbsfzh" id="wbsfzh"><font color="red">&nbsp;*</font>
      </td>

</tr>
<tr>
                  <td align="center">
                     <span class="qdstyle679706692_3118"><br>注意：请输入10位准考证号码<br></span><br>
                 
     <img src="../../images/an_chaxun.gif" align="absmiddle" style="cursor: hand" onClick="checksearch()">&nbsp;&nbsp;&nbsp;&nbsp;
     
     <img src="../../images/an_chongtian.gif" align="absmiddle" style="cursor: hand" onClick="reset()">

wsz5400558

wudixin96 发表于 2011-10-9 12:38
这样吗？？？？？

这个附件能下载吗？

wsz5400558

wudixin96 发表于 2011-10-9 12:38
这样吗？？？？？

大师，能给个附件吗？

wudixin96

wsz5400558 发表于 2015-7-10 11:02
大师，能给个附件吗？

这个太多年前的东西了，哪里还有保存啊