老鬼大哥, 帮帮忙救救我!

denzel

求助：有关使用Web查询导入外部数据的问题



Q1.在使用Excel过程中，需要重复的使用Web查询导入外部数据，次数高达上千次，且每次查询的Web页面地址不同，规则如下：



http://www.xxx.xxx/xxx/xxx.jsp?page=n (n=1,1xxx)



请教各位“大虾”，该如何操作？



Q2.在Q1的结果中，根据sheet中字段A的值str，使用Web查询http://www.xxx.xxx/xxx/yyy.jsp?A=str，每次返回所需字段B的值Addr，存储于sheet中，共需进行3xxxx次查询，试问该如何操作？

老鬼

把WEB查询用宏录制下来，然后套用FOR……NEXT语句循环

denzel

回复错了, 应该是这帖谢谢老大,我已经成功录制Sub Macro1()

'

' Macro1 Macro

' ･ﾞ･ｯ･橆帛hﾈﾕ : 2005/3/6  ･讖`･ｶｩ`ﾃ・: Denzel

''

    With ActiveSheet.QueryTables.Add(Connection:= _

        "URL;http://sports.xxxxxxx.com/scores/2005/06/02/03/01/ninki_tfw.html", _

        Destination:=Range("B1"))

        .Name = "ninki_tfw"

        .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 = "29"

        .WebPreFormattedTextToColumns = True

        .WebConsecutiveDelimitersAsOne = True

        .WebSingleBlockTextImport = False

        .WebDisableDateRecognition = False

        .WebDisableRedirections = False

        .Refresh BackgroundQuery:=False

    End With

    Range("E24").Select

End Sub"URL;http://sports.xxxxxxx.com/scores/2005/06/02/03/01/ninki_tfw.html", _我要改的是上面url里面的最后一串数字, 就是说/2005/06/02/03/01//2005/06/02/03/02//2005/06/02/03/03//2005/06/02/03/04/我应该怎么改啊, 再教教我吧, 因为我不懂编程.

老鬼

for i=1 to 4……"URL;http://sports.xxxxxxx.com/scores/2005/06/02/03/0" & i & "/ninki_tfw.html"next i