请教各位大神 为什么VBA网抓获取到的数据中文全部变成了问号

颜师古都

请问是要进行什么转码吗 百度了一下尝试了几种办法都不行 还望懂的大神指点一二代码如下 ：
Sub 天气查询1()
    Dim winHttp As Object, ulr As String, 数据值 As String
    Set winHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
    ulr = "http://d1.weather.com.cn/calendar_new/2022/101270101_202202.html?_=1657260619993"
    With winHttp
        .Open "GET", ulr, False
        .setRequestHeader "Referer", "http://www.weather.com.cn/"
        .send
        数据值 = .responsetext
        Debug.Print 数据值
    End With
End Sub
抓取到的数据如下

E式丶男孩

有可能是编码问题，中文显示不出来

颜师古都

E式丶男孩 发表于 2022-7-8 16:22
有可能是编码问题，中文显示不出来

解决了是编码的问题 我获取到二进制的数据 然后在用编码进行转置就可以了