如何用VBA取这个网页中第2页或第3页的源码?
在下面这个网页中
http://www.p5w.net/kuaixun/index.htm
中页面的下边有这样的按钮:
上一页 下一页
它共有10页.如何用VBA取得下一页即第2页或者第三页的源码?
[解决办法]
你是想要HTML的源代码还是网页?如果是网页的话,可以这样操作:
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