Excel 2016 - 未定义用户定义的类型

Question

难以接受BingMaps API编译错误，基本上它在Microsoft Office 2010中运行没有问题，但是当我尝试在Office 2016中运行它时，它无法运行并认为是vba调试错误。

Function GetDistance(sPCode As String, ePcode As String) As Double
    Dim t As String
    Dim re As XMLHTTP

    t = "http://dev.virtualearth.net/REST/V1/Routes/Driving?o=xml&wp.0=" & sPCode & "&wp.1=" & ePcode & "&avoid=minimizeTolls&du=mi&key=AjfyHbOP6UDABNbXmV59momsvs6cRqjrIz4g0bbsmGyBAJz1TgTgqRXS_PfWcm5k"

    Set re = New XMLHTTP

    re.Open "get", t, False
    re.send
    Do
    DoEvents
    Loop Until re.readyState = 4

    With re
        s = Split(.responseText, "<TravelDistance>")
    End With

    GetDistance = Val(s(1))

End Function

Answer 1

我遇到了同样的问题！

不确定这是否适合您，但在工具上，引用取消选择Microsoft XML V6并选择V3.0。

这对我有用。

问候