Обновлять из интернета данные в 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д