Я пытаюсь комментировать видео на YouTube с помощью IE ссылки на видео открываются нормально, но при вводе значения поля комментария и кода кнопки комментария выдается ошибка (переменная объекта не установлена (Ошибка 91)
Sub test()
Application.ScreenUpdating = False
Dim ie As Object: Set ie = CreateObject("internetexplorer.application")
Dim i, lastRow As Long
Dim wb As Workbook: Set wb = ThisWorkbook
Dim ws As Worksheet: Set ws = wb.Worksheets("Sheet1")
ie.Visible = True
lastRow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
' On Error Resume Next
For i = 1 To lastRow
ie.navigate ws.Cells(i, 1)
Do While ie.readyState <> READYSTATE_COMPLETE
Application.Wait (Now + TimeValue("0:00:10"))
Loop
комментарий поле ввода (переменная объекта не задана (ошибка 91)
Dim iDOC As MSHTML.HTMLDocument: Set iDOC = ie.document
iDOC.getElementsByTagName("div").Item("comment-simplebox-text").Value = "nice video"
комментарий в поле комментария (переменная объекта не задана (ошибка 91)
Dim doc_ele As MSHTML.HTMLDocument
Dim doc_eles As MSHTML.IHTMLElementCollection: Set doc_eles =
iDOC.getElementsByTagName("button")
For Each doc_ele In doc_eles
If doc_ele.className = "style-scope ytd-commentbox style-primary size-default" Then
doc_ele.Click
Else
End If
Next
Next
MsgBox "done"
' ie.Quit
Application.ScreenUpdating = True
End Sub