Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Парсинг таблиц HTML - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Парсинг таблиц HTML (Макросы/Sub)
Парсинг таблиц HTML
Andrew464 Дата: Понедельник, 01.10.2018, 13:21 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день, форумчане помогите пожалуйста недавно начал заниматься парсингом , почему то не получается у меня этот макрос выдает ошибку 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 Sub

Автор - Andrew464
Дата добавления - 01.10.2018 в 13:21
SLAVICK Дата: Понедельник, 01.10.2018, 13:47 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2286
Репутация: 751 ±
Замечаний: 0% ±

2019
Andrew464, оформите код тегами (#), согласно правил форума


Иногда все проще чем кажется с первого взгляда.
 
Ответить
СообщениеAndrew464, оформите код тегами (#), согласно правил форума

Автор - SLAVICK
Дата добавления - 01.10.2018 в 13:47
Andrew464 Дата: Понедельник, 01.10.2018, 16:14 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день, форумчане помогите пожалуйста недавно начал заниматься парсингом , почему то не получается у меня этот макрос выдает ошибку 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
[/vba]

Автор - Andrew464
Дата добавления - 01.10.2018 в 16:14
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Парсинг таблиц HTML (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!