VBA如何从网页取xml特定列？

hbhm

请教各位大侠，如何取出特定列？ 谢谢。

http://biz.finance.sina.com.cn/stock/flash_hq/kline_data.php?symbol=sh000001&end_date=20161007&begin_date=19910102

Sub getindex()

  Dim td  
    td = Format$(Now(), "yyyymmdd")   
    ActiveWorkbook.XmlImport URL:= _
        "http://biz.finance.sina.com.cn/stock/flash_hq/kline_data.php?symbol=sh000001&end_date=" & td & "&begin_date=19910102" _
        , ImportMap:=Nothing, Overwrite:=True, Destination:=Range("$A$1")   
    End Sub

d	o	h	c	l	v	bl
2001/6/1	2216.56	2223.26	2219.59	2212.16	178100
2001/6/4	2223.91	2229.05	2226.78	2222.23	256400
2001/6/5	2229.25	2235.5	2234.99	2226.82	240400
2001/6/6	2237.99	2241.09	2238.5	2224.3	168800
2001/6/7	2241.01	2242.69	2229.81	2223.41	154000
2001/6/8	2229.21	2229.41	2223.07	2211.75	151200