Скачать ссылки Wistia, используя селен - PullRequest
0 голосов
/ 27 мая 2019

Следующий код открывает несколько ссылок (wistia links)

Private bot As New Selenium.ChromeDriver

Sub Test()
Dim arr(), ws As Worksheet, i As Long

Set bot = New ChromeDriver
Set ws = ThisWorkbook.Worksheets("Links")
arr = Application.Transpose(ws.Range("A2:A" & ws.Cells(Rows.Count, 1).End(xlUp).Row))

Rem https://fast.wistia.net/embed/iframe/n3tweojtus
With bot
    .Start "Chrome"
    .Get arr(1)

    For i = LBound(arr) + 1 To UBound(arr)
        If Not IsEmpty(arr(i)) Then
            .ExecuteScript "window.open(arguments[0])", arr(i)
            .SwitchToNextWindow
        End If
    Next i
End With
End Sub

Как я могу сохранить видео на диск ..? Я заметил, что панель IDM не появляется в драйвере селена .. Какой самый простой способ загрузить несколько ссылок (ссылки указаны в A2: A & последняя строка)?

Я пробовал эту строку

    With bot
    .AddExtension ThisWorkbook.Path & "\extension_6_33_2_0.crx"

и я заметил, что расширение было добавлено, но код зависает и не открывает ни одну из существующих ссылок

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