当前位置: 代码迷 >> VBA >> 怎么用VBA取这个网页中第2页或第3页的源码
  详细解决方案

怎么用VBA取这个网页中第2页或第3页的源码

热度:5218   发布时间:2013-02-26 00:00:00.0
如何用VBA取这个网页中第2页或第3页的源码?
在下面这个网页中
http://www.p5w.net/kuaixun/index.htm
中页面的下边有这样的按钮:
上一页 下一页
它共有10页.如何用VBA取得下一页即第2页或者第三页的源码?


------解决方案--------------------------------------------------------
你是想要HTML的源代码还是网页?如果是网页的话,可以这样操作:
VB code
Sub Macro1()Dim i As LongFor i = 1 To 9Worksheets.Add After:=Sheets(Sheets.Count)'    With ActiveSheet.QueryTables.Add(Connection:= _        "URL;http://www.p5w.net/kuaixun/index_" & i & ".htm", Destination:=Sheets(Sheets.Count).Range("$A$1"))        .Name = "index"        .Refresh BackgroundQuery:=False    End With    NextEnd Sub
  相关解决方案