Опубликовать комментарий на YouTube с Inte rnet Explorer - PullRequest
1 голос
/ 01 мая 2020

Я пытаюсь комментировать видео на 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
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...