VBA获取新浪博客列表

Sub Blogsina() Const url As String = "http://www.google.cn/search?q=site%3Ablog.sina.com.cn/u/&num=100&start=" Dim n As Long, p As Long, s() As String, u() As String, i As Long With CreateObject("Microsoft.XMLHTTP") For p = 0 To 9 .Open "get", url & p * 100, False .send s = Split(.responsetext, "</a></h3>") For i = 0 To UBound(s) - 1 n = n + 1 Application.Goto "R" & n & "c1" Cells(n, 1).Hyperlinks.Add Anchor:=Cells(n, 1), Address:="http://" & Split(Split(s(i + 1), "<cite>")(1), "- </cite>")(0), TextToDisplay:=Mid(s(i), InStrRev(s(i), """>") + 2) Next Next End With End Sub