Sub GetTitleAndUrl() Dim strText As String Dim i As Long Dim OneA Dim IsContent As Boolean Dim PageIndex As Long Dim URL As String For PageIndex = 1 To 10 URL = "http://blog.sina.com.cn/s/articlelist_1511572751_0_" & PageIndex & ".h…