[已解决]网页数据提取问题！

cxzfy12758

怎么从网站上下载数据！谢谢

最佳答案

月排行榜 / 总排行榜

HYY514

2011-8-27 22:45

回复 cxzfy12758 的帖子

网页提取数据.rar (52.72 KB, 下载次数: 101)

2011-8-27 22:45 上传

点击文件名下载附件
Dim WithEvents objDocument As HTMLDocument
Dim objHtml As New HTMLDocument
Sub ff()
Set objDocument = objHtml.createDocumentFromUrl("http://www.okooo.com/League/LeagueInfoIndex.php?TurnID=" & Cells(2, "i").Text & "&GroupID=2693", vbNullString)
End Sub
Private Sub objDocument_onreadystatechange()
Dim a As Object, i&, j&
Columns("a:h") = ""
If objDocument.readyState = "complete" Then
   Set a = objDocument.getElementsByTagName("table")(2).Rows
    For i = 1 To a.Length - 1
        For j = 0 To a(i).Cells.Length - 1
           Cells(i + 2, j + 1) = a(i).Cells(j).innerText
        Next
    Next
    Range("a1") = objDocument.URL
    Set objDocument = Nothing
    Set objHtml = Nothing
End If
End Sub

跳转到最佳答案楼层

太得闲

我是来学习学习 不是路过的

cxzfy12758

欢迎学习

HYY514

回复 cxzfy12758 的帖子

网页提取数据.rar (52.72 KB, 下载次数: 101)

2011-8-27 22:45 上传

点击文件名下载附件
Dim WithEvents objDocument As HTMLDocument
Dim objHtml As New HTMLDocument
Sub ff()
Set objDocument = objHtml.createDocumentFromUrl("http://www.okooo.com/League/LeagueInfoIndex.php?TurnID=" & Cells(2, "i").Text & "&GroupID=2693", vbNullString)
End Sub
Private Sub objDocument_onreadystatechange()
Dim a As Object, i&, j&
Columns("a:h") = ""
If objDocument.readyState = "complete" Then
   Set a = objDocument.getElementsByTagName("table")(2).Rows
    For i = 1 To a.Length - 1
        For j = 0 To a(i).Cells.Length - 1
           Cells(i + 2, j + 1) = a(i).Cells(j).innerText
        Next
    Next
    Range("a1") = objDocument.URL
    Set objDocument = Nothing
    Set objHtml = Nothing
End If
End Sub

cxzfy12758

回复 HYY514 的帖子

非常感谢老师！但测试后发现一个问题。比赛日期怎么都是2011年。还有就是能不能把指数和初盘盘口链接到其他网页并下载数据。

cxzfy12758

昨天上传的附件没有正确。5楼从新更新附件。谢谢

cxzfy12758

下载60多次，没能解决吗

太得闲

绝对不是路过 来学习学习 谢谢

cxzfy12758

回复 太得闲 的帖子

兄弟，共同学习！

cxzfy12758

求助飞翔老师！