estou tentando ler um site de notícia, mas os caracteres especiais (como acentos e cedilhas) estão vindo errado. Exemplo:
No código html (e no site de notícias) está, por exemplo:
Exemplo1: "Brasil proíbe entrada de pessoas na fronteira com a Venezuela". Mas meu código retorna: "Brasil proÃbe entrada de pessoas na fronteira com a Venezuela"
Exemplo2: "Sem turistas e barcos, água de Veneza fica mais clara e nítida". Mas meu código retorna: "Sem turistas e barcos, água de Veneza fica mais clara e nÃtida"
Vi que uma solução seria introduzir um objeto ADO Stream, mas não consegui implementar. Alguém pode auxiliar?
Public Function getHTTP(ByVal Url As String) As String
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", Url, False: .Send
getHTTP = StrConv(.ResponseBody, vbUnicode)
End With
End Function
=====================================================================
Sub analisar()
Url = "https://g1.globo.com/"
Html = getHTTP(Url)
inicio_titulo = 1
i = 0
For Each c In Range("A1:A20")
inicio_titulo = InStr(inicio_titulo, Html, """title"":""") + 9
fim_titulo = InStr(inicio_titulo, Html, """,""url"":""")
titulo = Mid(Html, inicio_titulo, fim_titulo - inicio_titulo)
c.Value = titulo
Next
End Sub
.Charset = "utf-8"
noCreateObject
, antes do.Open
, funciona?