Ошибка при использовании скрипта в VBA - PullRequest
Новая
       42

Ошибка при использовании скрипта в VBA

0 голосов
/ 06 мая 2020 
**Public Sub WebTest()
    Dim keys As New keys, arr(), ws As Worksheet, i As Long
    Dim temp1(), temp2() As String
    'Set ws = ThisWorkbook.Worksheets("Sheet1") '<==Adjust to your sheet
    arr = Application.Transpose(Selection) '<== Adjust to your range
    With bot
        .Start "Chrome"
        .Get "url here"
        For i = LBound(arr) To UBound(arr)
            If Not IsEmpty(arr(i)) Then
                If i > 1 Then
                    .ExecuteScript "window.open(arguments[0])", "url here"
                    .SwitchToNextWindow
                End If
                .FindElementByCss("[name=q]").SendKeys arr(i)
                .SendKeys bot.keys.Enter
            End If
        Next
    End With
End Sub**

Я использую приведенный выше код для получения значений из excel и поиска по определенному URL-адресу. При выполнении его загрузки два поиска и после этого отображается сообщение об ошибке «ошибка времени выполнения 17 javascript ошибка незаконного вызова» Я не знаю, что мне не хватает в коде или что мне нужно изменить.

...