关于http请求返回结果错误的问题

0102034

求教各位大神，因对http这部份不是很懂，从网上找的代码，自已也研究了半天，但还是没有成功，想请大定帮忙看一下。

问题：发送请求后，http.responseText返回的内容是错误的，查找了请求先关的代码，实在找不出原因。求指点。

1. Private Sub 收件信息识别()
   
2. 
   
3.     For i = 2 To Range("A1").End(xlDown).Row
   
4.    
   
5.         addaress = Range("a" & i).Value
   
6.         
   
7.         Url = "https://www.youbianku.cn/api/search_street_custom.php?address=" & addaress & "&key=MjAyMS02LTMweW91Ymlhbmt1c3RyZWV0youbianku"
   
8.         
   
9.         Dim http As Object
   
10.    
    
11.             Set http = CreateObject("Microsoft.XMLHTTP")     ' 创建 http 对象以发送请求
    
12.             
    
13.             http.Open "POST", Url, False                      ' 设置请求地址
    
14.             
    
15.             http.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"     '设置请求头
    
16.         
    
17.             http.send    '发送请求
    
18. 
    
19.             
    
20.             If http.Status = 200 Then
    
21.                
    
22.                Dim json                      '定义字符串 json
    
23.                
    
24.                json = http.responseText       '获取相应结果
    
25.                
    
26.                MsgBox json
    
27.                
    
28.                '接下来是解析 json
    
29.             
    
30.                strJSON = "var json=" & json
    
31.                
    
32.                objSC.AddCode (strJSON)        '将 json 由字符串解析为对象
    
33.                
    
34.                Dim geocodes
    
35.                
    
36.                geocodes = objSC.Eval("json.geocodes")
    
37.                
    
38.                If geocodes <> "" Then
    
39.                
    
40.                 Dim province$
    
41.                
    
42.                 province = objSC.Eval("json.geocodes[0].province")
    
43.               
    
44.                     If province <> "" Then
    
45.                
    
46.                         Cells(i, "C").Value = objSC.Eval("json.geocodes[0].province")   '将省填入 Excel 表格
    
47.                         
    
48.                         Cells(i, "D").Value = objSC.Eval("json.geocodes[0].city")   '将市填入 Excel 表格
    
49.                         
    
50.                         Cells(i, "E").Value = objSC.Eval("json.geocodes[0].district")   '将区填入 Excel 表格
    
51.                         
    
52.                     End If
    
53.                
    
54.                 End If
    
55.                
    
56.             End If
    
57.     Next
    
58. 
    
59. End Sub
    

复制代码

0102034

请大家帮忙看一下，感谢

0102034

再頂一下, 求大家幫忙解決.