В общем, разобрался.
1.
2.
3.
4.
5.
6.
7.
8.
'Вместо
Do Until IE.Busy Or IE.READYSTATE = 4
DoEvents
Loop
'написал так
Do IE.READYSTATE = 4
DoEvents
Loop
VBA
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
Option Explicit
Sub IE_Autiomation_Variant0()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
Dim URL As String
URL = "https://www.google.com/"
'If GetURLstatus(URL) = 200 Then
IE.Navigate URL
Do Until IE.READYSTATE = 4
DoEvents
Loop
'Вариант 1
'IE.document.getElementsByClassName("gLFyf gsfi")(0).Value = "vba"
'Dim HTMLButton As MSHTML.HTMLInputElement
'Set HTMLButton = IE.document.getElementsByClassName("gNO89b")(0)
'Вариант 2
Dim html_Doc As Object
Set html_Doc = IE.document
DoEvents
Dim oEl_el
Set oEl_el = html_Doc.getElementsByClassName("gLFyf gsfi")(0)
DoEvents
oEl_el.Value = "vba"
Dim HTMLButton As MSHTML.HTMLInputElement
Set HTMLButton = html_Doc.getElementsByClassName("gNO89b")(0)
HTMLButton.Click
'End If
End Sub
Теперь нормально работает.
Но возникает вопросы.
1. После строки
HTMLButton.Click по логике нужно дождаться окончания обновления страницы. Правильно ли будет, если добавить строки
Do Until IE.READYSTATE = 4: DoEvents: Loop или тут по другому надо писать?
2. Когда заходим на главную страницу, то нужна проверка
If GetURLstatus(URL) = 200 Then , если потом есть строки
Do Until IE.READYSTATE = 4: DoEvents: Loop ?
3. Даже если код работает, то лучше оставлять как пошаговое назначение ссылок на объекты документа, то есть вариант 2?
4. Есть еще что-то чего не учитывается?
