紧急~~VB抓取网页数据

1229775691

爱疯 发表于 2016-8-8 16:09
1）这是一种常用方式，即某个标签对里的文本。

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

你这个贴图从哪里调用出来的~~~能帮助告诉一下吗？谢谢！

1229775691

爱疯 发表于 2016-8-8 16:09
1）这是一种常用方式，即某个标签对里的文本。

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

你好这个是用VB抓取网页的数据生成excel表格。你能帮助理解一下下面的编码？有些我可以看懂有些我看不动~~情帮助谢谢！

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

爱疯

DHTML 手册.part1.rar (1.3 MB, 下载次数: 22)

2016-8-8 16:31 上传

点击文件名下载附件
DHTML 手册.part2.rar (1.3 MB, 下载次数: 27)

2016-8-8 16:31 上传

点击文件名下载附件
DHTML 手册.part3.rar (1.09 MB, 下载次数: 24)

2016-8-8 16:31 上传

点击文件名下载附件



我觉得，需能熟练分析出，要获取该网页的哪些元素（节点），这是主要的。
等实现上一步后，再用vba代码将其它存入表格。


我也是才开始看，还不大熟悉。
因此，现在我无法给出更具体的回复。

1229775691

好的非常感谢！

1229775691

你好这个是用VB抓取网页的数据生成excel表格。你能帮助理解一下下面的编码？有些我可以看懂有些我看不动~~请帮助谢谢！
尤其是对下面绿色部分的理解！！非常感激！
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

QCW911

你的了解javascript

1229775691

QCW911 发表于 2016-8-8 17:19
你的了解javascript

能帮助详细的说明情况吗？javascript这个是网页的脚本吗？？

Excel学徒123

问题一大堆

1229775691

Excel学徒123 发表于 2016-8-8 17:47
问题一大堆

你好这个是用VB抓取网页的数据生成excel表格。你能帮助理解一下下面的编码？有些我可以看懂有些我看不动~~请帮助谢谢！ 尤其是对下面绿色部分的理解！！非常感激！ 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

1229775691

QCW911 发表于 2016-8-8 17:19
你的了解javascript

你能帮我理解一下，如何获得这些网页上的信息！是从网页的代码里面找的吗？还是~~