Добрый день, форумчане помогите пожалуйста недавно начал заниматься парсингом , почему то не получается у меня этот макрос выдает ошибку runtime error 091
Public Sub parserhtml() Dim http As Object, html As New HTMLDocument, topics As Object, rows As Object, titleElem As Object, detailsElem As Object, row As HTMLHtmlElement Dim i As Integer Set http = CreateObject("MSXML2.XMLHTTP") http.Open "GET", "https://www.soccerstats.com/table.asp?league=germany&tid=c", False http.send html.body.innerHTML = http.responseText Set topics = html.getElementsByClassName("tabbertab") Set rows = html.getElementsByTagName("tr") i = 2 For Each row In rows Set titleElem = row.getElementsByTagName("tr") Sheets(3).Cells(i, 1).Value = titleElem.getElementsByTagName("a")(0).innerText i = i + 1 Next End Sub
Добрый день, форумчане помогите пожалуйста недавно начал заниматься парсингом , почему то не получается у меня этот макрос выдает ошибку runtime error 091
Public Sub parserhtml() Dim http As Object, html As New HTMLDocument, topics As Object, rows As Object, titleElem As Object, detailsElem As Object, row As HTMLHtmlElement Dim i As Integer Set http = CreateObject("MSXML2.XMLHTTP") http.Open "GET", "https://www.soccerstats.com/table.asp?league=germany&tid=c", False http.send html.body.innerHTML = http.responseText Set topics = html.getElementsByClassName("tabbertab") Set rows = html.getElementsByTagName("tr") i = 2 For Each row In rows Set titleElem = row.getElementsByTagName("tr") Sheets(3).Cells(i, 1).Value = titleElem.getElementsByTagName("a")(0).innerText i = i + 1 Next End SubAndrew464
Добрый день, форумчане помогите пожалуйста недавно начал заниматься парсингом , почему то не получается у меня этот макрос выдает ошибку runtime error 091[b] Макрос [vba]
Код
Public Sub parserhtml() Dim http As Object, html As New HTMLDocument, topics As Object, rows As Object, titleElem As Object, detailsElem As Object, row As HTMLHtmlElement Dim i As Integer Set http = CreateObject("MSXML2.XMLHTTP") http.Open "GET", "https://www.soccerstats.com/table.asp?league=germany&tid=c", False http.send html.body.innerHTML = http.responseText Set topics = html.getElementsByClassName("tabbertab") Set rows = html.getElementsByTagName("tr") i = 2 For Each row In rows Set titleElem = row.getElementsByTagName("tr") Sheets(3).Cells(i, 1).Value = titleElem.getElementsByTagName("a")(0).innerText i = i + 1 Next End Sub
[/vba]
Добрый день, форумчане помогите пожалуйста недавно начал заниматься парсингом , почему то не получается у меня этот макрос выдает ошибку runtime error 091[b] Макрос [vba]
Код
Public Sub parserhtml() Dim http As Object, html As New HTMLDocument, topics As Object, rows As Object, titleElem As Object, detailsElem As Object, row As HTMLHtmlElement Dim i As Integer Set http = CreateObject("MSXML2.XMLHTTP") http.Open "GET", "https://www.soccerstats.com/table.asp?league=germany&tid=c", False http.send html.body.innerHTML = http.responseText Set topics = html.getElementsByClassName("tabbertab") Set rows = html.getElementsByTagName("tr") i = 2 For Each row In rows Set titleElem = row.getElementsByTagName("tr") Sheets(3).Cells(i, 1).Value = titleElem.getElementsByTagName("a")(0).innerText i = i + 1 Next End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
