Я пытаюсь вставить название компании в Google Finance в свой файл Excel. Однако, похоже, это не работает. Будем рады любой помощи.
Sub get_name()
Dim oHtml As HTMLDocument
Dim oElement As Object
Dim i As Integer
Set oHtml = New HTMLDocument
With CreateObject("WINHTTP.WinHTTPRequest.5.1")
'On Error Resume Next
For i = 0 To 29
.Open "GET", "https://finance.google.com/finance?q=" & Range("A32").Offset(i, 0).Value, False
.send
oHtml.body.innerHTML = .responseText
Range("H32").Offset(i, 0).Value = oHtml.getElementsByClassName("appbar-snippet-primary")(0).innerText
Next i
End With
End Sub