Excel VBA щелчок по кнопке веб-сайта не работает - PullRequest
0 голосов
/ 19 июня 2020

Я пытаюсь очистить веб-сайт. После входа в систему появляется экран цифровой подписи, к которому я уже прикрепил цифровую подпись. Затем мне нужно нажать на это изображение. После нескольких попыток у меня ничего не вышло.

Мой код:

Sub Click_on()  
Dim IE As New SHDocVw.InternetExplorer
Dim HTMLDoc As HTMLDocument
Dim HTMLInput As MSHTML.IHTMLElement

IE.Visible = True
IE.Navigate "Name of Site"

Do While IE.ReadyState <> READYSTATE_COMPLETE
Loop

Set HTMLDoc = IE.Document

'Now Login the site
HTMLDoc.forms("LogonForm").elements("userName").Value = "********"
HTMLDoc.forms("LogonForm").elements("password").Value = "******"
IE.Document.forms("LogonForm").elements("imageField").Click

'After Login Site this will takes time so below code
Do While IE.ReadyState <> READYSTATE_COMPLETE
Loop
```
**My Website text is :-**
```
<>input name="imageField" title="For Existing User" class="buttonStyle" id="imageField"
onclick="javascript:return doSubmit(); " type="submit" value="Attach Digital Signature Certificate and Login"</>
```
**'After that I put this code where the error is coming, This is not working**
```
Set HTMLInput = HTMLDoc.getElementsByTagName("imageField")
HTMLDoc.getElementsByTagName("imageField").Click

End Sub
```

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...