Excel VBA: получить Google View-источник

Question

В Excel VBA я хотел бы получить текст, отображаемый в браузере, если вы напишите

"view-source: https://www.google.com/search?q=Something"

.

Как я могу это сделать?

что-то вроде

Dim Str as String
Str = getText("view-source:https://www.google.com/search?q=Something")

Answer 1

Вам не нужен источник просмотра.Я верю, что подойдет:

Sub http()
    Dim MyRequest As Object

    Set MyRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
    MyRequest.Open "GET", "https://www.google.com/search?q=Something"

    MyRequest.Send

    'Output to immediate window
    Debug.Print MyRequest.ResponseText

End Sub