Страницы: 1
RSS
Как спарсить title у сайта с помощью VBA?
 
Всем привет, только начал знакомится с VBA и нужно спарсить title у сайта.
Эта функция отрабатывает и я получаю весь код сайта по заданному УРЛ.
Код
Function GetHTTPResponse(ByVal sURL As String) As String
    On Error Resume Next
    Set oXMLHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
    With oXMLHTTP
        .Open "GET", sURL, False
        .send
        GetHTTPResponse = .responseText
    End With
    Set oXMLHTTP = Nothing
End Function
Дальше я пытаюсь в полученном массиве найти вхождение "title".
Но не выходит получить результат.
Почему эта часть не отрабатывает? Как её нужно поправить?
Код
Function GetTitle()
Data = GetHTTPResponse("https://www.google.com/")
findTag = "<title>"
Search = InStr(1, Data, findTag)
End Function 
 
Цитата
пытаюсь в полученном массиве найти вхождение "title".
Код
Function GetTitle()
Dim Data
  Data = GetHTTPResponse("https://www.google.com/")
   With CreateObject("VBScript.RegExp")
     .Pattern = "<title>(.+)</title>"
   If .test(Data) Then
     Range("A1") = .Execute(Data)(0).SubMatches(0)
   End If
 End With
End Function
 
У меня с этого сайта код не возвращает никих титлов...
 
Приветствую Игорь.
Не может быть.
Вот часть страницы
<link href="/manifest?pwa=webhp" crossorigin="use-credentials" rel="manifest"><title>Google</title><script  
 
Привет Сергей!
А теперь ОК, с утра там в верхней части картинка открывалась, сейчас её нет, может поэтому.
 
Kuzmich, cпасибо тебе, добрый человек
Страницы: 1
Наверх