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

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

2012-03-01 
如何用VBA取这个网页中第2页或第3页的源码?在下面这个网页中http://www.p5w.net/kuaixun/index.htm中页面

如何用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 

热点排行