问题完全解决, 谢谢老鬼!

denzel

各位高手, 我想要的数据是一系列的, 在网页中按年份分成了好几百个页面, 但是每个页面中我只需要部分数据, 本来可以用网页下载工具下载所有页面, 但是我需要把制定的数据转化到excel, 做一个filter, 我想问有没有办法获取网页部分数据变成XLS表格形式, 请高手指点!

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

老鬼

使用WEB查询试试

denzel

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

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

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

denzel

问题完全解决, 谢谢老鬼!