Я хотел бы извлечь некоторую дату с веб-страницы с символами iso-8859-1 с коротким Sub. Я почти получил ожидаемый результат. Проблема связана с некоторыми конкретными символами, например: é, è, ç, à ... Вместо того, чтобы правильно их указать, у меня есть черный ящик со знаком вопроса для этого символа и двух следующих символов. Что ты предлагаешь ?
Вот как я туда попал:
my_url = "http://www.website.fr/"
Set html_doc = CreateObject("htmlfile")
Set xml_obj = CreateObject("MSXML2.XMLHTTP")
xml_obj.Open "GET", my_url, False
xml_obj.send
html_doc.body.innerhtml = xml_obj.responseText
Set xml_obj = Nothing
Sheets(1).Cells(1, 2).Value = html_doc.body.getElementsByTagName("div")(3).innertext
