Office中国论坛/Access中国论坛

标题: 老鬼大哥, 帮帮忙救救我! [打印本页]

作者: denzel 时间: 2005-3-7 03:43
标题: 老鬼大哥, 帮帮忙救救我!
求助：有关使用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次查询，试问该如何操作？

作者: 老鬼 时间: 2005-3-7 05:38
把WEB查询用宏录制下来，然后套用FOR……NEXT语句循环

作者: denzel 时间: 2005-3-7 06:19
回复错了, 应该是这帖谢谢老大,我已经成功录制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/我应该怎么改啊, 再教教我吧, 因为我不懂编程.

作者: 老鬼 时间: 2005-3-7 20:37
for i=1 to 4……"URL;http://sports.xxxxxxx.com/scores/2005/06/02/03/0" & i & "/ninki_tfw.html"next i

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)