网站登录宏故障排查：用户名密码填充正常但无法完成登录

老哥，我之前帮不少人排查过IE自动化登录的坑，你的情况一看就是典型的「元素定位不对」或者「没等页面完全加载就操作」——毕竟IE的DOM加载慢得离谱，而且很多网站的登录按钮根本不是标准的submit元素，都是绑定了JS事件的普通按钮。

先把你没写完的代码补全并修正，附详细注释，你可以直接改了用：

Dim HTMLDoc As HTMLDocument
Dim MyBrowser As InternetExplorer

Sub RepsolLogin()
    Dim MyHTML_Element As IHTMLElement
    Dim MyURL As String
    Dim btnLogin As IHTMLElement
    
    MyURL = "https://login.repsol.com/es/Landing/AuthnPage?returnUrl=https://www.repsol.com/es_es/"
    
    ' 初始化IE实例，调试时设为Visible=True方便看过程
    Set MyBrowser = New InternetExplorer
    With MyBrowser
        .Visible = True
        .Navigate MyURL
        
        ' 强制等待页面完全加载！这步绝对不能省，IE经常假加载
        Do While .Busy Or .ReadyState <> READYSTATE_COMPLETE
            DoEvents
        Loop
        
        Set HTMLDoc = .Document
    End With
    
    ' 填充用户名密码：这里的ID要根据页面实际元素改！
    ' 按F12打开IE开发者工具，找到输入框的ID，比如可能是"username"或"userIdentifier"
    On Error Resume Next ' 临时屏蔽找不到元素的报错
    HTMLDoc.getElementById("username").Value = "你的用户名"
    HTMLDoc.getElementById("password").Value = "你的密码"
    On Error GoTo 0
    
    ' 找登录按钮：优先按文本匹配（比如西班牙网站按钮文本可能是"Acceder"）
    Set btnLogin = Nothing
    For Each MyHTML_Element In HTMLDoc.getElementsByTagName("button")
        If Trim(MyHTML_Element.innerText) = "Acceder" Then
            Set btnLogin = MyHTML_Element
            Exit For
        End If
    Next
    
    ' 如果没找到button，再试试找submit类型的input
    If btnLogin Is Nothing Then
        For Each MyHTML_Element In HTMLDoc.getElementsByTagName("input")
            If MyHTML_Element.Type = "submit" Then
                Set btnLogin = MyHTML_Element
                Exit For
            End If
        Next
    End If
    
    ' 执行登录操作
    If Not btnLogin Is Nothing Then
        btnLogin.Click
        ' 再次等待登录跳转后的页面加载
        Do While MyBrowser.Busy Or MyBrowser.ReadyState <> READYSTATE_COMPLETE
            DoEvents
        Loop
        MsgBox "登录搞定！"
    Else
        MsgBox "找不到登录按钮啊兄弟，去开发者工具里核对下元素标签和文本！"
    End If
    
    ' 用完记得清理对象，避免IE进程残留
    ' MyBrowser.Quit
    ' Set MyBrowser = Nothing
    ' Set HTMLDoc = Nothing
End Sub

另外给你几个必看的调试技巧：

• 一定要用IE开发者工具定位元素：按F12，用选择器工具点一下输入框和登录按钮，看它们的ID、标签、文本是什么，别瞎猜
• 等待逻辑不能少：IE的ReadyState经常不准，所以要同时判断Busy和ReadyState
• 如果页面有iframe：登录表单可能嵌在iframe里，这时候要先切换到iframe的文档，比如Set HTMLDoc = MyBrowser.Document.frames("loginFrame").Document
• 警惕反爬：有些网站会检测自动化脚本，如果你试了上面的方法还是不行，可能得换Selenium这类更成熟的自动化工具

内容的提问来源于stack exchange，提问作者Remy