Question

excel里面用vba中如何读取网页特定数据，可追加100分

如题，excel里面用vba中如何读取网页特定位置的数据。读取全部网页的程序我已经知道了，就是网页的特定位置如何确定？

注明：要求写出程序。

本来想直接给高分，但是万一没有答案，分就白费了，因此特别承诺：如果提供正确答案，追加100分，决不食言。违反承诺可请管理员扣分处罚
说明下，之所以不直接写110分不是不相信回答问题的各位，而是baidu系统的一个缺点，无论有无正确答案，悬赏分都会扣，这对于高分悬赏有没有正确答案的很不划算。我曾经就出现过这样的情况。可是xtuintx这样说就有点对我的不信任了。没关系，我已经加分了，请回答吧。谢谢！（看看我曾经的情况吧？我可不是吝惜分的人，只要有好的答案）http://zhidao.baidu.com/question/6723009.html，
http://zhidao.baidu.com/question/35769771.html，http://zhidao.baidu.com/question/37455967.html

问题具体一点，便于你直接写好程序。读取http://www.icbccs.com.cn/中右上的基金净值和日期

xtuintx你好，虽然我分比较高，可是vba上的确没有你好。你的程序的确可以读取源代码，但是如何取特定位置的数还要你继续指教。（这也是我提问的主要原因）你直接写这个程序吧，否则我可能读不太懂。读取http://www.icbccs.com.cn/中右上的基金净值和日期，
我的问题是读取网页特定位置数据的程序，我已经申明过了，读取整个网页的程序我会。你提供给我的程序是读取源代码的，相当于整个网页读取。望进一步提供程序。因为我已经按照你的要求加上了100分了。盼赐教！

Answer 1

供参考

Sub test()
Dim myQuery

With ActiveSheet
.Cells.Delete
.[a1] = "Conneting, Please Wait..."

Set myQuery = ActiveSheet.QueryTables _
.Add(Connection:="URL;http://www.boshi.com.cn", _
Destination:=.Cells(1, 1))
End With
With myQuery
.Refresh
End With

补充：grhsc你不是知道读取全部网页的程序吗？那里可以先把整个网页以表格的方式读取到excel中，建立一个临时sheet，然后删除掉多余的数据，或者在excel中在读取需要的数据不就行了？

Answer 2

如果是表格数据比较容易，你用excel的"导入web数据"的功能录制宏试试
复杂一点的用webBrowser控件

Answer 3

我所知道的最快的一个方法

使用HTTPHTM，取网页源码。
用正则表达式取特定内容。

加一百分后，追加全部答案。

本来想直接给答案，但是万一没有加分，分就白费了，因此特别承诺：如果提供全部答案，追加全部答案，决不食言。违反承诺可请管理员扣分处罚

'取网页源码
Sub htmtext()
With CreateObject("Msxml2.XMLHTTP")
.Open "GET", "http://www.google.cn", False
.Send
Open "c:\google.txt" For Output As #1
Print #1, , .responseText
Close #1
End With
Shell "notepad.exe c:\google.txt", vbNormalFocus
End Sub

提取特定数据，要视数据而定！

彼此彼此！