Office中国论坛/Access中国论坛

标题: 问题完全解决, 谢谢老鬼! [打印本页]

作者: denzel 时间: 2005-2-24 03:07
标题: 问题完全解决, 谢谢老鬼!
各位高手, 我想要的数据是一系列的, 在网页中按年份分成了好几百个页面, 但是每个页面中我只需要部分数据, 本来可以用网页下载工具下载所有页面, 但是我需要把制定的数据转化到excel, 做一个filter, 我想问有没有办法获取网页部分数据变成XLS表格形式, 请高手指点!

[此贴子已经被作者于2005-3-7 21:43:42编辑过]

作者: 老鬼 时间: 2005-2-24 07:20
使用WEB查询试试

作者: denzel 时间: 2005-2-28 18:58
谢谢, 感谢上帝, EXCEL带这个功能excel查询功能把网页分成好几个块, 我可以下载制定的块了. 但是这个块仍然有我不需要的数据, 复制到了excel里我只需要一个列, 但是数据有10个列, 有没有办法批量删除列的? 谢谢老鬼!

作者: denzel 时间: 2005-3-7 06:08
谢谢老大,我已经成功录制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:34
for i=1 to 4

……

"URL;http://sports.xxxxxxx.com/scores/2005/06/02/03/0" & i & "/ninki_tfw.html"

next i

[此贴子已经被作者于2005-3-7 12:35:54编辑过]

作者: denzel 时间: 2005-3-8 05:44
问题完全解决, 谢谢老鬼!

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