Ошибка выполнения VBA 1004 «Ошибка приложения или объекта» при вставке данных из Интернета - PullRequest
0 голосов
/ 26 марта 2019
    Set elemCollection = IE.document.getElementsByTagName("table")


    Range("A1") = "Table 1"


    For t = 0 To (elemCollection.Length - 1)
        For r = 0 To (elemCollection(t).Rows.Length - 1)
            eRow = Worksheets("All Tables").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
                For c = 0 To (elemCollection(t).Rows(r).Cells.Length - 1)
                    Worksheets("All Tables").Cells(eRow, c + 1) = elemCollection(t).Rows(r).Cells(c).innerText
                Next c
        Next r
        Cells(eRow + 1, 1) = "Table" & t + 2
        If t = elemCollection.Length - 1 Then
            Cells(eRow + 1, 1) = ""
        End If
    Next t

В настоящее время я работаю над кодом, который извлекает данные из таблиц онлайн и вставляет их в рабочий лист.Мой код переносит данные в мастер-лист, где я затем фильтрую необходимые данные и помещаю их в разные листы.Код зацикливается и очищает главную рабочую таблицу для извлечения данных из нового источника.

Кажется, что код работает правильно и зацикливается для получения данных из примерно 100 различных источников, но затем я получаю ошибку времени выполнения.

Я не уверен, почему это не происходит сразу же, и я могу повторять цикл много раз, прежде чем эта ошибка сгенерирована.

Ошибка возникает в строке

Worksheets("All Tables").Cells(eRow,c + 1) = elemCollection(t).Rows(r).Cells(c).innerText

Любая помощь будет принята с благодарностью.

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