紧急~~VB抓取网页数据

1229775691

我在别人写好的代码里面改为我想要的地址。为什么总在Set tb = HTML.ALL.tags("table")(0).Rows 出错。 请哪位高人指点一下。

另外我有一个网站登陆后被网站被加密了，是否有办法抓取上面的信息。也请高手指点一下。谢谢

• Sub test()
•     Dim HTML, tb, i&, j&, x&, n&, s$
•     [a2:d9999] = ""
•     Set HTML = CreateObject("htmlfile")
•     With CreateObject("msxml2.xmlhttp")
•         For x = 0 To 63
•             .Open "get", "网址& 30 * x, False
•             .Send
•             Application.Wait (Now + TimeValue("00:00:02"))
•             HTML.body.innerhtml = .responsetext
•             Set tb = HTML.ALL.tags("table")(0).Rows
•             For i = 1 To tb.Length - 1
•                 n = n + 1
•                 For j = 0 To tb(i).Cells.Length - 1
•                     Cells(n + 1, j + 1) = tb(i).Cells(j).innertext
•                 Next
•             Next
•         Next
•     End With
•     MsgBox "获取完毕!"
• End Sub
  

1229775691

有高手吗？？？？指点一下 ~~~~

1229775691

我要抓取这个网页http:（增加双//)fz.people.com.cn/skygb/sk/index.php/Index/seach?&p=1
的数据，请问该如何修改下面的代码? ~~~紧急请大神赐教~~~

Option Explicit
Sub test()
    Dim HTML, tb, i&, j&, x&, n&, s$
    [a2:d9999] = ""
    Set HTML = CreateObject("htmlfile")
    With CreateObject("msxml2.xmlhttp")
        For x = 0 To 63
            .Open "get", "http:（增加双//)fz.people.com.cn/skygb/sk/index.php/Index/seach?&p=1
& 20 * x, False
            .Send
            Application.Wait (Now + TimeValue("00:00:02"))
            HTML.body.innerhtml = .responsetext
            Set tb = HTML.ALL.tags("table")(0).Rows
            For i = 1 To tb.Length - 1
                n = n + 1
                For j = 0 To tb(i).Cells.Length - 1
                    Cells(n + 1, j + 1) = tb(i).Cells(j).innertext
                Next
            Next
        Next
    End With
    MsgBox "??è?íê±?!"
End Sub

    MsgBox "获取完毕!"
End Sub

叫我赵日天

Set tb = HTML.ALL.tags("table")(2).Rows

1229775691

不行啊！~~

叫我赵日天

1. Sub test()
   
2.     Cells.Clear
   
3.     Set HTML = CreateObject("htmlfile")
   
4.     With CreateObject("msxml2.xmlhttp")
   
5.         For x = 1 To 6
   
6.             .Open "get", "http://fz.people.com.cn/skygb/sk/index.php/Index/seach?&p=" & x, False
   
7.             .Send
   
8.             HTML.body.innerhtml = .responsetext
   
9.             Set tb = HTML.ALL.tags("table")(2).Rows
   
10.             For i = 1 To tb.Length - 1
    
11.                 n = n + 1
    
12.                 For j = 0 To tb(i).Cells.Length - 1
    
13.                     Cells(n + 1, j + 1) = tb(i).Cells(j).innertext
    
14.                 Next
    
15.             Next
    
16.         Next
    
17.     End With
    
18. End Sub

复制代码

1229775691

你发的代码我试了~~会停止在sned出现黄色！

叫我赵日天

1229775691 发表于 2016-8-6 13:50
你发的代码我试了~~会停止在sned出现黄色！

我的可以

1229775691

请教一下这个为什么要改成 0变成2

请帮助我理解这两句话！非常感谢！
HTML.body.innerhtml = .responsetext
Set tb = HTML.ALL.tags("table")(2).Rows

1229775691

在我的电脑上还是不能运行时为什么？？？高手指点一下！