获取网页数据中文不能正常显示

smiletwo

不知道是不是有防爬措施。请大神们指导。
http://www.pbc.gov.cn/zhengwugon ... 398ddc0/index1.html
查看源码内容：

1. Sub ss()
   
2.     url = "http://www.pbc.gov.cn/zhengwugongkai/4081330/4081344/4081407/4081702/4081749/4081783/9398ddc0/index1.html"
   
3.     With CreateObject("MSXML2.XMLHTTP")
   
4.         .Open "GET", url, False
   
5.         .Send
   
6.         Do Until .readyState = 4 And .Status = 200
   
7.             DoEvents
   
8.         Loop
   
9.         RespTxt = .responseText
   
10.         Debug.Print RespTxt
    
11.         RespTxt = StrConv(.responsebody, vbUnicode)
    
12.         Debug.Print RespTxt
    
13.     End With
    
14. End Sub

复制代码

显示内容相同：

smsn

用CreateObject("htmlfile")去解析就行。

smiletwo

smsn 发表于 2023-1-12 21:32
用CreateObject("htmlfile")去解析就行。

感谢帮助