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。