Странный язык ошибок при просмотре веб-страниц с помощью vba - PullRequest
0 голосов
/ 30 ноября 2018

Я, все.Я представляю вам странную проблему, которая иногда возникает.Я написал код VBA для очистки данных с веб-сайта, который использует английский.Итак, поскольку мне нужно сравнить извлеченные данные с некоторыми другими, которые я хочу обработать, я всегда ожидаю их на английском языке, поэтому я смогу найти их в таблице ACCESS.Однако бывает так, что данные неожиданно появляются на немецком языке, что сводит на нет мои исследования.Я проанализировал WEB-страницу, и HTML-код всегда на английском, но иногда извлечение происходит на немецком языке.

На самом деле установленная мной MS Windows 10 - немецкая версия, но это не должно вызыватьпроблемы, потому что я ожидаю, что язык, который я читаю на странице, (всегда) тот, который я извлекаю.Браузер, к которому я обращаюсь для очистки, - это Mozilla Firefox.

Код следующий (в своеобразной части):

sAPPOGGIO = UrlWEB(1)
With CreateObject("msxml2.xmlhttp")
    .Open "GET", sAPPOGGIO, False
    .setRequestHeader "Content-Type", "text/xml"
    .setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; rv:25.0) Gecko/20100101 Firefox/25.0"
    .send
     Do While .ReadyState <> 4
        DoEvents
        Pausa (2)
    Loop
    sHTM = .responseText
End With
'assegnazione dell pagina estratta
Set ohtm = New HTMLDocument
ohtm.body.innerHTML = sHTM

Затем, работая внутри объекта 'ohtm',иногда извлечение находит термины на немецком языке, когда большую часть времени они на английском языке.

Есть ли кто-нибудь, кто холодно объяснит мне, что происходит?

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...