根据地址得到相对应得经纬度 （vb）

根据地址得到相对应得经纬度 （vb）：
Private Sub CommandButton1_Click()
Dim Str$
For i = Range(“A65536”).End(3).Row To 2 Step -1 '从最后一行到倒数第二行循环
Str = “http://api.map.baidu.com/geocoder?address=” + Cells(i, 1) + “&output=json&key=2FvLG2BXZ58XpGF6V9kRB015&city=” + Cells(i, 2)
With CreateObject(“msxml2.xmlhttp”)
.Open “GET”, Str, False
.send
If .Status <> 200 Then Exit Sub
Str = .responsetext
End With
With CreateObject(“htmlfile”)
.write “”
With .parentwindow
.eval “var json=” & Str
If .eval(“json.status”) = “OK” Then
Debug.Print .eval(“json.result.location.lng”), .eval(“json.result.location.lat”)
Cells(i, 3) = .eval(“json.result.location.lng”)
Cells(i, 4) = .eval(“json.result.location.lat”)

    End If
End With

End With
Next i
End Sub