[已解决]谢谢阿童木老师，求代码解释和简化,提取网页数据

lhj323323

老师:
上传的附件中有详细的需求,请老师看看,谢谢.
老师：
我把问题改到第四楼了，请看看，谢谢

最佳答案

月排行榜 / 总排行榜

amulee

2011-1-18 09:04

代码就不说了，自己看帮助来简化吧。
网址部分，DATE=20110105&year=2011&month=01&day=05&x=17&y=6都是网页查询参数的传递。

跳转到最佳答案楼层

lhj323323

回复 lhj323323 的帖子

求助,顶一下

lhj323323

回复 lhj323323 的帖子

向老师求助

lhj323323

回复 lhj323323 的帖子

老师：
下面这段代码能再进行简化吗？
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.sse.com.cn/sseportal/ ... TE=20110105&year=2011&month=01&day=05&x=17&y=6" _
        , Destination:=Sheets("数据").Range("A1"))
        .Name = "ExternalData_1"
        .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 = "18"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
另外：

http://www.sse.com.cn/sseportal/webapp/datapresent/SSENewTradeInfoPublishAct?DATE=20110105&year=2011&month=01&day=05&x=17&y=6
这个网址表示2011年1月5日的数据，那么后面的&x=17&y=6代表什么意思呢？

lhj323323

回复 lhj323323 的帖子

向老师求助

amulee

代码就不说了，自己看帮助来简化吧。
网址部分，DATE=20110105&year=2011&month=01&day=05&x=17&y=6都是网页查询参数的传递。