如何调试计算两点之间距离的宏？

Question

我有一个计算两点之间距离的宏。我无法让它工作，需要一些帮助来调试它。

我创建了一个 Google API 密钥，并将其合并到其中，但由于某种原因，该宏不起作用

Public Function

GetDT(origin_city As String, _
origin_state As String, origin_country As String, _
destination_city As String, _
destination_state As String, destination_country As String _
)

Dim surl                As String
Dim oXH                 As Object
Dim bodytxt             As String

Dim distanc_e           As String


surl = "http://maps.googleapis.com/maps/api/distancematrix/xml?origins=" 
& _
Replace(origin_city, " ", "+") & "+" & Replace(origin_state, " ", "+") & 
"+" & Replace(origin_country, " ", "+") & _
"&destinations=" & _
Replace(destination_city, " ", "+") & "+" & Replace(destination_state, " 
", "+") & "+" & Replace(destination_country, " ", "+") & _
"&mode=driving&units=metric&key=MY_KEY"


Set oXH = CreateObject("msxml2.xmlhttp")

With oXH
    .Open "get", surl, False
    .send
    bodytxt = .responseText
End With

bodytxt = Right(bodytxt, Len(bodytxt) - InStr(1, bodytxt, "<text>") - 5)
tim_e = Left(bodytxt, InStr(1, bodytxt, "</text>") - 1)


bodytxt = Right(bodytxt, Len(bodytxt) - InStr(1, bodytxt, "<text>") - 5)
distanc_e = Left(bodytxt, InStr(1, bodytxt, "</text>") - 1)

GetDT = distanc_e

Set oXH = Nothing

End Function

Answer 1

使用提供的信息无法自信地回答这个问题。编写一个单独的函数来创建 url 将使您的代码更具可测试性。使用Option Explicit 强制声明所有变量将检测任何拼写错误。

如果 MY_KEY 是一个变量，那么 url 应该类似于 "..metric&key=" & MY_KEY。

surl = GetDTURL(origin_city, origin_state, origin_country, destination_city, destination_state, destination_country)

Function GetDTURL(origin_city As String, origin_state As String, origin_country As String, destination_city As String, destination_state As String, destination_country As String)
    Dim surl As String
    Const BaseURl As String = "http://maps.googleapis.com/maps/api/distancematrix/xml?origins=@origin_city+@origin_state+@origin_country&destinations=@destination_city+@destination_state+@destination_country&mode=driving&units=metric&key=MY_KEY"
    surl = BaseURl
    surl = Replace(surl, "@origin_city", origin_city)
    surl = Replace(surl, "@origin_state", origin_state)
    surl = Replace(surl, "@origin_country", origin_country)
    surl = Replace(surl, "@destination_city", destination_city)
    surl = Replace(surl, "@destination_state", destination_state)
    surl = Replace(surl, "@destination_country", destination_country)
    surl = Replace(surl, " ", "+")
    GetDTURL = surl
End Function