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
Любая помощь будет принята с благодарностью.