Office中国论坛/Access中国论坛

标题: [求助]如何实现批量web查询? [打印本页]

作者: smokinglog 时间: 2006-8-31 03:07
标题: [求助]如何实现批量web查询?
web查询,需要一个个的输入地址,怎么样实现批量查询?

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

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

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

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

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

请各位高手赐教

作者: 老鬼 时间: 2006-8-31 04:38
利用WEB查询的代码，循环操作。

作者: smokinglog 时间: 2006-8-31 04:51
去问, 哪里可以得到代码?

怎么样操作?

我是新手,不懂

作者: 老鬼 时间: 2006-8-31 08:07
录制宏

作者: smokinglog 时间: 2006-9-1 00:10
运行web查询,运行过程"录制宏"?

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

作者: szbyd 时间: 2006-9-1 00:15
我也想知道！

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

作者: smokinglog 时间: 2006-9-1 01:09
这个问题很难么?各位高手,请不吝赐教啊

作者: smokinglog 时间: 2006-9-1 03:01
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为分类,如何实现每个分类按照年份先后提取数据?

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