[已解决]请问我把提取网址换一下就提取不到了

hanjia · 发表于 2015-4-14 20:29

我把 url = "http://www.1396me.com/pk10/kaijiang"
改成 url = "http://www.1396me.com/gdkl10/kaijiang/"
就出现错误了  请高手帮忙看一下谢谢

Sub 按钮1_Click()
Dim url, html
url = "http://www.1396me.com/pk10/kaijiang"
Set html = CreateObject("htmlfile")
With CreateObject("msxml2.xmlhttp")
      .Open "GET", url, False
      .send
      html.body.innerhtml = .responsetext
      Set tr = html.all.tags("tr")
      For i = 0 To tr.Length - 1
         If tr(i).classname = "odd" Or tr(i).classname = "even" Then
         myno = ""
            For j = 0 To tr(i).ChildNodes.Length - 1
                  If tr(i).ChildNodes(j).classname = "nums" Then
                     For Each no In tr(i).ChildNodes(j).ChildNodes
                        If myno = "" Then
                              myno = Replace(no.classname, "pk-no", "")
                        Else
                              myno = myno & "," & Replace(no.classname, "pk-no", "")
                        End If
                     Next
                  End If
                  Cells(i + 1, j + 1) = Replace(tr(i).ChildNodes(j).innertext, vbCrLf, " ")
            Next
            Cells(i + 1, 2) = myno
         End If
      Next
End With
End Sub
Sub 按钮2_Click()
Range("a2:j65536").ClearContents
End Sub

最佳答案

月排行榜 / 总排行榜

zjdh

2015-4-15 16:54

网页提取数据（开奖）.rar (23.01 KB, 下载次数: 22)

zjdh · 发表于 2015-4-14 21:30

不同网页的数据格式都有不同，当然很难用同一格式提取啦！

hanjia · 发表于 2015-4-14 22:59

zjdh 发表于 2015-4-14 21:30
不同网页的数据格式都有不同，当然很难用同一格式提取啦！

哦请帮忙改一下谢谢

zjdh · 发表于 2015-4-15 16:54

网页提取数据（开奖）.rar (23.01 KB, 下载次数: 22)

hanjia · 发表于 2015-6-21 05:09

zjdh 发表于 2015-4-15 16:54

zjdh 教授  先谢谢你的帮忙
请帮忙再帮我改一下后面那3页
北京，广东是教授你帮忙改的
后面  那样页是我复制你写的  不好使  请再帮帮忙    谢谢

网页提取数据（开奖）.rar (31.18 KB, 下载次数: 3)

		自动登录	找回密码
密码			注册

[已解决]请问我把提取网址换一下就提取不到了

评分