VBA 操作网页跳转后，如何继续操作呢。代码如下。

Dim n, m, o, p

n = "idInput"
m = "pwdInput"
o = "loginBtn"
p = "spnHideFolders"

With CreateObject("InternetExplorer.Application")
.Visible = True
.Navigate "http://mail.126.com/"

Do Until .ReadyState = 4
DoEvents
Loop
.Document.Forms(0).all(n).Value = "ceshivba"
.Document.Forms(0).all(m).Value = "a123456"
.Document.Forms(0).all(o).Click

Do Until .ReadyState = 4
DoEvents
Loop

.Document.Forms(0).all(p).Click '跳转后的操作

End With

Exit Sub

邮箱登陆成功后页面中没有名为 spnHideFolders 这个元素，所以代码会在下面这行报错。

.Document.Forms(0).all(p).Click '跳转后的操作

而后续的 Click 操作都要建立在你邮箱页面中存在 p 变量中的字符串这个基础之上。

登陆进去之后，如果网址没有变化，刷新，只要网页加载完成即可 do while ie.readystate = 4        doevents loop 如果有弹出网页，用  以下代码  遍历一下网页就行了 dim oshellapp, oshellappwindows, owin             set oshellapp = createobject("shell.application")             set oshellappwindows = oshellapp.windows             do '                 for each owin in oshellappwindows                     if instr(owin.locationurl, "gldu9068569") then                         'owin.quit                         a = owin.locationurl                         exit for                     end if                 next                 doevents             loop until a <> ""