高价求助！！关于vba获取网络数据

各位大侠们：
      你们好！下面的程序如何才能获取到我想要的内容呢，程序如下：
Sub test()
    Dim xmlobject As Object
    Dim strHTML As String
    strURL = "http://finance.sina.com.cn/realstock/company/sh600118/nc.shtml"
    Application.ScreenUpdating = False
    Set xmlobject = CreateObject("Microsoft.XMLHTTP")
    xmlobject.Open "GET", strURL, False
    xmlobject.Send
    If xmlobject.readyState = 4 Then
       strHTML = xmlobject.Responsetext
    End If
    Set xmlobject = Nothing
    Application.ScreenUpdating = True
End Sub
想要获取的内容如下（获取里面的总市值，振幅等值）：

同问，帮忙顶一个！

这个。。。帮顶一下吧~

https://bbs.pinggu.org/thread-1522845-1-1.html

可参考上述方法，网址需要改一改，祝好

whwchem 发表于 2013-12-12 18:38
https://bbs.pinggu.org/thread-1522845-1-1.html

可参考上述方法，网址需要改一改，祝好

没那么简单，改改就可以的啊，那么简单，还找论坛上发做什么，sina的数据我也会获取的哦

shm清泉石上流 发表于 2013-12-12 19:50
没那么简单，改改就可以的啊，那么简单，还找论坛上发做什么，sina的数据我也会获取的哦

网站上很多数据都是在封装结构里的，你不一定都能获取。那我只能祝你好运了。。。