If tds2(1).GetElementsByTagName("a").Count > 0 Then
tds2(1).GetElementsByTagName("a")(0).GetAttribute("href")
Else
msgbox("没有链接")
End If
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=86263&skin=0