Set ie = CreateObject("InternetExplorer.application")
ie.Visible = True
ie.navigate "https://login.yahoo.com/config/mail?.intl=tw"
With ie
Do While .busy: DoEvents: Loop
Do While .ReadyState <> 4: DoEvents: Loop
End With
Application.EnableCancelKey = False
With ie
.Document.getElementsByTagName("input")(1).Value = "username"
.Document.getelementbyID("password").Value = "password"
.Document.getElementsByTagName("input")(3).Click
End With
Application.EnableCancelKey = True
With ie
Do While .busy: DoEvents: Loop
Do While .ReadyState <> 4: DoEvents: Loop
End With
如何在此連線至己登入網頁的其他頁面,然後再根據TABLE的ID把他複製
Set ie = Nothing
End Sub作者: ck00 時間: 2012-7-5 12:48