Всем привет, только начал знакомится с VBA и нужно спарсить title у сайта.
Эта функция отрабатывает и я получаю весь код сайта по заданному УРЛ.
Дальше я пытаюсь в полученном массиве найти вхождение "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 |
Но не выходит получить результат.
Почему эта часть не отрабатывает? Как её нужно поправить?
Код |
---|
Function GetTitle() Data = GetHTTPResponse("https://www.google.com/") findTag = "<title>" Search = InStr(1, Data, findTag) End Function |