Я хочу нажать на кнопку в VBA

Question

Я новичок и не техник, я застрял здесь

Я хочу нажать кнопку «Новый проект» с помощью VBA

Вот кнопка «Проверить элемент для нового проекта» <button tabindex="0" class="xui-button xui-button-create xui-button-small" type="button" data-automationid="project-modal-new-button">New project</button>

Ниже приведен код, который я создал до сих пор, он работает без каких-либо проблем и перенесет меня на вкладку проекта из вкладки Проект. Мне нужно нажать на кнопку нового проекта с помощью VBA

Sub Xero()

Dim i As SHDocVw.InternetExplorer
Set i = New InternetExplorer
i.Visible = True
i.navigate ("https://login.xero.com/")
Do While i.readyState <> READYSTATE_COMPLETE
Loop
Dim idoc As MSHTML.HTMLDocument
Set idoc = i.document
idoc.all.UserName.Value = "XXXXX"
idoc.all.Password.Value = "123"

Dim ele As MSHTML.IHTMLElement
Dim eles As MSHTML.IHTMLElementCollection
Set eles = idoc.getElementsByTagName("button")

For Each ele In eles
    If ele.ID = "submitButton" Then
    ele.Click
    Application.Wait (Now + TimeValue("0:00:10"))
    Else
    End If
Next ele

i.navigate ("https://projects.xero.com/?CID=!QhJgj")

Do While i.readyState <> READYSTATE_COMPLETE
Loop

End Sub

Я хочу нажать кнопку «Новый проект», чтобы двигаться дальше

Answer 1

Попробуйте использовать селектор класса css (та же идея, что и getElementsByClassName, но быстрее)

While i.Busy Or i.readyState < 4: DoEvents: Wend
Application.Wait Now + Timeserial(0,0,2)
i.document.querySelector(".xui-button-create").click

Кроме того, используйте правильное ожидание страницы после .click и .navigate, т. Е.

While i.Busy Or i.readyState < 4: DoEvents: Wend

Итак, дождитесь правильного ожидания между .navigate и попыткой нажать кнопку и снова после нажатия кнопки.