Excel 提交登录表单只是刷新页面
我试图写一个宏打开并登录到一个网页下载一个特定的数据集,但我坚持提交登录详细信息 一切似乎都按预期运行,页面打开,详细信息显示在相关的用户名/密码框中,但页面中的我并没有签名,而是刷新为空白。我一辈子都搞不清楚是什么导致了这一切 这是网站- 这是我的密码-Excel 提交登录表单只是刷新页面,excel,vba,Excel,Vba,我试图写一个宏打开并登录到一个网页下载一个特定的数据集,但我坚持提交登录详细信息 一切似乎都按预期运行,页面打开,详细信息显示在相关的用户名/密码框中,但页面中的我并没有签名,而是刷新为空白。我一辈子都搞不清楚是什么导致了这一切 这是网站- 这是我的密码- Sub Opensite() 'open caredata URL and login Dim IEapp As Object, WebURL As String, HTMLdoc As HTMLDocument Se
Sub Opensite()
'open caredata URL and login
Dim IEapp As Object, WebURL As String, HTMLdoc As HTMLDocument
Set IEapp = CreateObject("InternetExplorer.Application")
WebURL = "https://www.caredata.co.uk/login_register.cfm"
With IEapp
.silent = True
.Visible = True
.Navigate WebURL
Do Until IEapp.readyState = 4
DoEvents
Loop
Set HTMLdoc = IEapp.document
End With
With HTMLdoc.forms(0)
.UserName.Value = "myusername"
.Password.Value = "mypassword"
.submit
End With
End Sub
我自己修好了,不知道我最初是怎么解决的。工作代码-
Sub Opensite()
'open caredata URL and login
Dim IEapp As Object, WebURL As String, HTMLdoc As HTMLDocument
Set IEapp = CreateObject("InternetExplorer.Application")
WebURL = "https://www.caredata.co.uk/customer_downloads.cfm"
With IEapp
.silent = True
.Visible = True
.Navigate WebURL
Do Until IEapp.readyState = 4
DoEvents
Loop
Set HTMLdoc = IEapp.document
End With
With HTMLdoc.forms(0)
.UserName.Value = "username"
.Password.Value = "password"
.btn_signin.Click
End With
downloadfile IEapp, HTMLdoc
End Sub
为什么不点击按钮
btn\u sign
?感谢您的回复,我最初尝试过,但无法让代码识别正确的按钮。这段代码的实际外观如何?我可以看到您试图获取按钮的代码吗?修复了它,使用了令人尴尬的简单单行,.btn_sign.click。