请问如何从网页上抓取数据 QueryTables不能用！

lalasnoopy

蓝天630902 发表于 2012-7-3 17:23
更一般地：
http://www.hsi.com.hk/HSI-Net/HSI-Net?cmd=downloads

这个page有什么用处呢？.... 问题很弱 但是对网页真的是一点都不懂... 这个是java script？ 要补习什么内容，才可以掌握用vba操作 IE的技巧呢？ 没学过VBA 只学过C++  全靠自己摸索 请老师们多指点 ：）

蓝天630902

lalasnoopy 发表于 2012-7-3 17:38
这个page有什么用处呢？.... 问题很弱 但是对网页真的是一点都不懂... 这个是java script？ 要补习什么内 ...

Sub test()
On Error Resume Next
    Set r = CreateObject("Microsoft.XMLHTTP")
    r.Open "get", "http://www.hsi.com.hk/HSI-Net/HSI-Net?cmd=downloads", False
    r.Send
    Set x = r.responseXML.getElementsByTagName("entry")
    For i = 0 To x.Length - 1
        Cells(i + 1, 1) = x(i).getAttributeNode("id").NodeValue
        Cells(i + 1, 2) = x(i).getAttributeNode("date").NodeValue
        Cells(i + 1, 3) = x(i).getAttributeNode("timestamp").NodeValue
        Cells(i + 1, 4) = "http://www.hsi.com.hk/HSI-Net/static/revamp/contents" & x(i).ChildNodes(0).getAttributeNode("href").NodeValue
        Cells(i + 1, 5) = x(i).ChildNodes(0).Text
        Cells(i + 1, 6) = x(i).ChildNodes(1).getAttributeNode("index").NodeValue
        Cells(i + 1, 7) = x(i).ChildNodes(1).ChildNodes(0).getAttributeNode("page").NodeValue
        Cells(i + 1, 8) = x(i).ChildNodes(1).ChildNodes(0).Text
        Cells(i + 1, 9) = x(i).ChildNodes(1).ChildNodes(1).getAttributeNode("page").NodeValue
        Cells(i + 1, 10) = x(i).ChildNodes(1).ChildNodes(1).Text
    Next i
End Sub

引子玄

蓝天630902 发表于 2012-6-25 20:35
Sub Hang_Seng_Indexes()
    On Error Resume Next '
    With CreateObject("internetexplorer.appli ...

解释后更明白了

引子玄

蓝天630902 发表于 2012-6-25 22:00
哦，下面是一劳永逸地把所以标签全查一遍：

http://club.excelhome.net/forum.php?mod=attachment&aid ...

这个好，收藏了，谢

引子玄

lalasnoopy 发表于 2012-6-26 10:32
啊... 我2003 打不开 2010 也打不开，那得找个2007才行呀

我这边正常E2003

facklaoer

大神，膜拜中{:soso_e196:}

sdcpzzg

{:soso_e179:}{:soso_e179:}

赵莲

responseXML

592rmb

好,有蓝天的地方就能学到东西

heric221

蓝天630902 发表于 2012-6-25 20:35
Sub Hang_Seng_Indexes()
    On Error Resume Next '
    With CreateObject("internetexplorer.appli ...

回答的很详细，终于知道一点点关于网页抓取数据的知识。
非常感谢！