[求助]如何实现批量web查询?

smokinglog

web查询,需要一个个的输入地址,怎么样实现批量查询?

web地址是有规律的,采集网页中的一个数据表

*********/1998-1999/*.html

*********/1999-2000/*.html

~~~~~~~~~~~~~~

*********/2005-2006/*.html

请各位高手赐教

老鬼

利用WEB查询的代码，循环操作。

smokinglog

去问,   哪里可以得到代码?

怎么样操作?

我是新手,不懂

老鬼

录制宏

smokinglog

运行web查询,运行过程"录制宏"?

录制以后怎么办呢?看不到具体代码啊

szbyd

我也想知道！

http://www.excelpx.com/X_AdvCom_Get.asp?UserID=3484

smokinglog

这个问题很难么?各位高手,请不吝赐教啊

smokinglog

Range("A1").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.***.com/***/2005-2006/abc.html" _
        , Destination:=Range("A1"))
        .Name = "abc"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "6,7"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = True
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub


这是录制宏得到的代码,请问,应该怎么样才能实现批量查询?或者是,让它自动运行,循环进行?

其中,网址里面的***可以是任意字符,abc为分类,如何实现每个分类按照年份先后提取数据?