vba 获取网页状态栏的地址

我将http://live.500wan.com/，这个网页复制粘贴到excel的sheets1中，当鼠标停在这个网页的某一行（比如停在表格“数据”这列的任一行的“析”上），状态栏会出现它的相关链接的网址，这在excel中如何获取这个网址？

Private Sub CommandButton2_Click()
'
    Dim s As String
    Dim HL As Hyperlink
    
    Sheets("1").Select
    For Each HL In Sheets("1").Hyperlinks
        HL.Range.Offset(0, 1).Value = HL.Address
    Next



这个代码可以获得其他的地址，就是无法获得，http://live.500wan.com/这个网页中，表格“数据”这列的任一行的“析”上的地址，


哪位帮小弟一下？ 录制一个宏看看。

补充：VB ,  VBA