摘要：
Sub PartFiterQuestion() Application.DisplayAlerts = False Dim Wb As Workbook Dim Sht As Worksheet Dim dHow As Object Dim dWhat As Object Dim HasHow As Boolean Dim HasWhat As... 阅读全文
摘要：
Sub FiterQuestion() Dim Wb As Workbook Dim Sht As Worksheet Dim dHow As Object Dim dWhat As Object Dim HasHow As Boolean Dim HasWhat As Boolean Dim Dic As Object Dim I... 阅读全文
摘要：
Sub GetCatalogPages() For n = 1 To 20 CatalogURL = "http://blog.sina.com.cn/s/_" & n & ".html" Call GetCatalogByUrl(CatalogURL) Next n End Sub Sub GetCatalogByUrl(B... 阅读全文