VBA:登录在线网站--单击登录时出现问题（HTML）

我在编写VBA脚本以登录到网站并从该网站中获取一些数据时遇到问题。我可以输入用户名和密码，但无法正确配置登录代码

 Sub Basic_Web_Query()

Dim ieApp As InternetExplorer
Dim ieDoc As Object
Dim ieTable As Object
Dim clip As DataObject


Set ieApp = New InternetExplorer


ieApp.Visible = True


ieApp.Navigate "https://app.website.com/login"
Do While ieApp.Busy: DoEvents: Loop
Do Until ieApp.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop

Set ieDoc = ieApp.Document


With ieDoc.forms(0)
        .Document.all.Item("email").Value = "xx"
        .Document.all.Item("password").Value = "yy"
        .Document.getElementsByClassName("btn btn-primary-lg").Item("submit").form.submit
End With

Do While ieApp.Busy: DoEvents: Loop
Do Until ieApp.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop

End Sub

下面是HTML代码

<div class ="row">
    <div class = "form-group login-form-group">
    <button class="btn btn-primary-lg" type="submit">Login
    </button>

---

未经测试的建议：您是否尝试过类似于

ieDoc.forms（0）.Document.getElementsByClassName（“btn btn primary lg”）（0）的方法。单击
ieApp.LoginForm.submit
ieApp.Document.forms().submit