Обновлять из интернета данные в Excel - VBA

Узнай цену своей работы

Формулировка задачи:

Здравствуйте дорогие друзья, у меня есть очень интересный вопрос, каким образом обновлять с сайта ютуб данные по просмотрам из нескольких страницhttps://www.youtube.com/watch?v=M9zQtyGNS0Uhttps://www.youtube.com/watch?v=_svy-IAeVF8 285 599 просмотров обновлять эти данные каждые 10 минут или только, когда данные меняются в интернете в ячейке обрабатывать запрос кодом и формулой оставив в ячейке только цифры к примеру возьмем ячейку E5 и занести туда данные 285 599 а в ячейку E6 занести туда данные 3 022 967 со второй ссылки

Решение задачи: «Обновлять из интернета данные в Excel»

textual
Листинг программы
Function YOUTUBEVIEW(ByVal URL As String) As Long
    Dim t$, v$
'---------------
    With CreateObject("msxml2.xmlhttp")
        .Open "GET", URL, False
        .send
        Do: DoEvents: Loop Until .ReadyState = 4
        t = .responsetext
    End With
    With CreateObject("htmlFile")
        .Body.innerHTML = t
        For Each tg In .GetElementsByTagName("div")
            If tg.className = "watch-view-count" Then
                v = tg.innertext
                Exit For
            End If
        Next
    End With
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "\D+"
        YOUTUBEVIEW = .Replace(v, "")
    End With
End Function

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4 из 5