各位大侠们：
      你们好！下面的程序如何才能获取到我想要的内容呢，程序如下：
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
想要获取的内容如下（获取里面的总市值，振幅等值）：