вставить данные из интернет страницы в эксель таблицу

Пользователь

Сообщений: 47 Регистрация: 14.02.2017

21.02.2017 01:47:40

здравствуйти, скажите такую штуку!!!
в этом блоке первая тема называется Избушка формулистов-3 и справа 4 столбца, из которые средние это - ответы и -просмотры
в настаящий момент это 563 и 236769
внимание вапрос!!!!!
можно эти данные вставить в таблицу эксель и что бы они там сами минялись по ходу их изминения на сайте???
я нашел строки в браузере этих данных, вот они:
<td class="forum-column-replies"><span>563</span></td>
<td class="forum-column-views"><span>236769</span></td>

я попробавал нажать данные - вставить из интирнета, там ввел сайт этот и окей, он мне весь сайт пиритащил в таблицу, а мне нужны цифри только, памагите
как написать нужную ссылку? или вообще как это делаетса?

Прикрепленные файлы

вставить из интирнета.xlsx (10.36 КБ)

Игорь

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

21.02.2017 01:55:27

Делаете автообновляемый веб-запрос на отдельном (втором) листе
Потом этот второй лист можно будет скрыть
На первый лист, в нужные ячейки, подтягиваете значение формулами
Например, формула ВПР(), которая сможет найти нужную строку в результатах запроса

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

A_I_HAN_RILI Пользователь Сообщений: 47 Регистрация: 14.02.2017	#3 21.02.2017 02:10:10 Игорь, а если у меня много форумов, штук 300, все штоли так обрабатывать

A_I_HAN_RILI Пользователь Сообщений: 47 Регистрация: 14.02.2017	#4 21.02.2017 02:13:26 можно вставить как-то сразу конкретное значение?

Игорь

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

21.02.2017 02:21:58

Можно и конкретное значение
Если много разных форумов, - проще макрос написать
Не видя исходных данных (реальные ссылки на форумы), вряд ли вам кто поможет с решением
Что для одного форума подойдет, - может для других не подойти

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

A_I_HAN_RILI

Пользователь

Сообщений: 47 Регистрация: 14.02.2017

21.02.2017 02:26:03

Игорь,я думал там проще, главное нужную строку выбрать надо.. вот например для данного форума как вставить макросом? можете помочь написать? а дальше я сам попробую отредактировать под другие форумы, а то меня заблакировали што у меня ник длинный, а ссылку если отправлю на форум чей-то то вабще забанят пожизненно

Юрий М

Модератор

Сообщений: 61089 Регистрация: 14.09.2012

Контакты см. в профиле

21.02.2017 02:27:44

Цитата
A_I_HAN_RILI написал: вабще забанят пожизненно

Не бойтесь )

A_I_HAN_RILI Пользователь Сообщений: 47 Регистрация: 14.02.2017	#8 21.02.2017 13:24:47 никто ни знает как это сделать чтоли

Doober

Пользователь

Сообщений: 2378 Регистрация: 09.04.2013

21.02.2017 13:54:58

Цитата
A_I_HAN_RILI написал: никто ни знает

Никто.

Один сайт один макрос.

Скрытый текст

Код

Sub ReadHtml()
    Dim S As String, TR, Html As String
    S = GetHTTPResponse("http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=list&FID=1")
    TR = Split(S, "<tr")
    Html = ""
    For n = 1 To UBound(TR)
        If InStr(1, TR(n), "Избушка формулистов-3", vbTextCompare) > 0 Then
            Html = TR(n)
            Exit For
        End If
    Next
    If Html = "" Then Exit Sub
    Set RegExp = CreateObject("VBScript.RegExp")
    RegExp.Global = True
    RegExp.IgnoreCase = True
    RegExp.Pattern = "\r"
    Html = RegExp.Replace(Html, "")
    RegExp.Pattern = "\n"
    Html = RegExp.Replace(Html, "")
    RegExp.Pattern = ">\s+<"
    Html = RegExp.Replace(Html, "><")
    RegExp.Pattern = "<td class=""forum\-column\-replies""><span>(\d+)</span></td>" & _
                     "<td class=""forum\-column\-views""><span>(\d+)</span></td>"
    Set oMatches = RegExp.Execute(Html)
    If oMatches.Count > 0 Then
        replies = Val(oMatches(0).SubMatches(0))
        views = Val(oMatches(0).SubMatches(1))
    End If
    Set RegExp = Nothing
 
End Sub
 
 
Function GetHTTPResponse(ByVal sURL As String)
    GetHTTPResponse = ""
    On Error Resume Next
    Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    With oXMLHTTP
        .Open "GET", sURL, False
        .setRequestHeader "If-Modified-Since", "Thu, 1 Jan 1970 00:00:00 UTC"
        .send
        GetHTTPResponse = .responseText
    End With
 
    Set oXMLHTTP = Nothing
 
End Function

Изменено: Doober - 21.02.2017 13:55:21

Читают тему