首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

关于自动从网站下载数据的有关问题

2012-01-16 
关于自动从网站下载数据的问题我想从财经网上下载数据 但是每次只能下载一天的数据到EXCEL表格,但是一次只

关于自动从网站下载数据的问题
我想从财经网上下载数据 但是每次只能下载一天的数据到EXCEL表格,但是一次只能下载一天的数据
,我想自动化下载n天的数据,于是我录了一个宏(如下),但是我不知道怎样写一个循环,比如日期的循环怎样写,
在URL中有一个date=2009-10-6,在name中有一个date=2009-10-6,如果要改怎么改。谢谢!

Sub 下载财经数据() 
' 下载财经数据 Macro
' 宏由 微软用户 录制,时间: 2009-10-21
'
'
  With ActiveSheet.QueryTables.Add(Connection:= _
  "URL;http://www.fx678.com/indexs/ecalendar.asp?date=2009-10-6", Destination:= _
  Range("A1"))
  .Name = "ecalendar.asp?date=2009-10-6"
  .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 = """GridView1"""
  .WebPreFormattedTextToColumns = True
  .WebConsecutiveDelimitersAsOne = True
  .WebSingleBlockTextImport = False
  .WebDisableDateRecognition = False
  .WebDisableRedirections = False
  .Refresh BackgroundQuery:=False
  End With

End Sub


[解决办法]
dim dat as date
dat =#2009-10-2#
do while dat <= #2009-10-6# and dat > # 2009-10-1#

'调用你的宏
dat=dateadd("D",1,dat)
loop

你的宏中
"URL;http://www.fx678.com/indexs/ecalendar.asp?date=2009-10-6"
换为
"URL;http://www.fx678.com/indexs/ecalendar.asp?date=" & dat

热点排行