[已解决]EXCEL 获取网页数据

pc_12

从打开的网页中提取姓名、分数、录取学校。填入本表中
现在的问题是找不到带有成绩网页的代码郁闷

最佳答案

月排行榜 / 总排行榜

HYY514

2011-3-3 23:14

运行下面代码
Sub ff()
Dim Xl As Object
Dim shtm As String
Dim arr As Variant
Dim i As Integer, ict As Integer
Set Xl = CreateObject("MiCROSOFT.XMLHTTP")
With Sheet1
For i = 2 To 2742
    Xl.Open "post", "http://www.e37www.cn/ks/fsqueryProcess.jsp", False
    Xl.setRequestHeader "content-type", "application/x-www-form-urlencoded"
    Xl.send "zkz=" & .Cells(i, 1).Text & "&sfz=" & .Cells(i, 2).Text
    shtm = Xl.responseText
    arr = Split(shtm, "考生姓名")
    arr = Split(arr(1), "<span class=" & Chr(34) & "STYLE26" & Chr(34) & ">")
    arr = Split(arr(1), "</span>")
    .Cells(i, 3) = arr(0)
    Application.StatusBar = "正在获取：" & arr(0) & " 的数据,请稍候...按Esc键停止"
    arr = Split(shtm, "总分")
    arr = Split(arr(1), "<span class=" & Chr(34) & "STYLE27" & Chr(34) & ">")
    arr = Split(arr(1), "</span>")
    .Cells(i, 4) = "总分:" & arr(0)
    arr = Split(shtm, "录取结果:")
    If UBound(arr) > 0 Then
        arr = Split(arr(1), "</td>")
        .Cells(i, 5) = arr(0)
    Else
        .Cells(i, 5) = "[无录取]"
    End If
    ict = ict + 1
    DoEvents
Next
End With
Application.StatusBar = False

End Sub

跳转到最佳答案楼层

老糊涂

http://www.excelpx.com/forum.php ... 1%C8%A1%CD%F8%D2%B3

pc_12

试过几种办法，找不到要获取的值，真是郁闷。请高手点

开辆小富康

这个应该可以取下来，不能这样打开网页啊，这样打开，不怕电脑死机？没时间折腾这个了。多找找百度之类的想想办法吧

pc_12

这个我知道，如果能取下，网页就是不用打开了，这样可以省内存。

csmctjg

呵，碰到这种情况我只会用按键精灵和网页按键精灵的元素特征字符串来读取网页数据，再把数据在后台写入EXCEL工作表中。

csmctjg

速度也很快！

吕?布

留个记号

HYY514

运行下面代码
Sub ff()
Dim Xl As Object
Dim shtm As String
Dim arr As Variant
Dim i As Integer, ict As Integer
Set Xl = CreateObject("MiCROSOFT.XMLHTTP")
With Sheet1
For i = 2 To 2742
    Xl.Open "post", "http://www.e37www.cn/ks/fsqueryProcess.jsp", False
    Xl.setRequestHeader "content-type", "application/x-www-form-urlencoded"
    Xl.send "zkz=" & .Cells(i, 1).Text & "&sfz=" & .Cells(i, 2).Text
    shtm = Xl.responseText
    arr = Split(shtm, "考生姓名")
    arr = Split(arr(1), "<span class=" & Chr(34) & "STYLE26" & Chr(34) & ">")
    arr = Split(arr(1), "</span>")
    .Cells(i, 3) = arr(0)
    Application.StatusBar = "正在获取：" & arr(0) & " 的数据,请稍候...按Esc键停止"
    arr = Split(shtm, "总分")
    arr = Split(arr(1), "<span class=" & Chr(34) & "STYLE27" & Chr(34) & ">")
    arr = Split(arr(1), "</span>")
    .Cells(i, 4) = "总分:" & arr(0)
    arr = Split(shtm, "录取结果:")
    If UBound(arr) > 0 Then
        arr = Split(arr(1), "</td>")
        .Cells(i, 5) = arr(0)
    Else
        .Cells(i, 5) = "[无录取]"
    End If
    ict = ict + 1
    DoEvents
Next
End With
Application.StatusBar = False

End Sub

厦门行

试试上面的代码