Как извлечь исходный код HTML с помощью VBA?

Question

Определенный URL-адрес веб-сайта, который я пытаюсь извлечь из HTML, не работает. Другие работают.

Я попробовал опубликованный код, а также его разновидности. Однако я не получил его для этого URL: https://www.genome.jp/kegg-bin/show_genomemap?ORG=vph&ACCESSION=VPUCM_0536

Этот же код прекрасно работает для этого URL с того же сайта: https://www.genome.jp/kegg-bin/show_organism?org=T03116

Public Function getHTTP(ByVal url As String) As String
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", url, False: .Send
        getHTTP = .responseBody
    End With
End Function

Фактический HTML-код не отображается, только ошибка # ЗНАЧЕНИЕ. Когда я MsgBox концентрируюсь на getHTTP, он показывает первые 2500 символов исходного кода HTML.

Answer 1

Я думаю, вам будет лучше использовать:

getHTTP = .responseText

Как вы можете видеть здесь , свойство .responseBody:

Получаеттело сущности ответа в виде массива байтов без знака.

При этом свойство .responseText:

Извлекает тело сущности ответа в виде текста.