XMLHTTP и специальные символы (например, акценты)

Я использую Microsoft.XMLHTTP через VBA для извлечения тела веб-страницы. При этом такие символы, как é, заменяются на "?" или что-то столь же бесполезное.

Вот основной код:

Set objHTTP = CreateObject("Microsoft.XMLHTTP")

objHTTP.Open "GET", ThisWebPage, False
objHTTP.setRequestHeader "Content-Type", _
      "application/x-www-form-urlencoded; charset=UTF-8"
objHTTP.Send ("")

strResponse = objHTTP.responseText

Есть ли способ получить страницу с неповрежденными специальными символами?

Примечание: Я также безуспешно пытался использовать этот заголовок запроса:
objHTTP.setRequestHeader "Content-Type", "content = text / html; charset = iso-8859-1"

Заранее спасибо.

Решение
Благодаря Ben.Vineyard (и беглому поиску в Google) я могу извлекать символы с диакритическими знаками с помощью следующего кода:

 ' Create the XMLHTTP object
  Set objHTTP = CreateObject("Microsoft.XMLHTTP")

 ' Send the request
 objHTTP.Open "GET", WhatWebPage, False
 objHTTP.Send ("")

 Dim BinaryStream
 Set BinaryStream = CreateObject("ADODB.Stream")

 With BinaryStream
    .Type = adTypeBinary
    .Open
    .Write objHTTP.ResponseBody

    'Change stream type To binary
    .Position = 0
    .Type = adTypeText

    'Specify charset For the source text (unicode) data.
    .Charset = "iso-8859-1"

    'Open the stream And get binary data from the object
    strResponse = .ReadText
End With
6
задан variant 18 August 2011 в 13:49
поделиться