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

我被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

函数GetDistance（sPCode为字符串，ePcode为字符串）为双精度
调暗t作为字符串
Dim re作为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
重新打开“get”，t，False
重新发送
做
多芬特
循环直到re.readyState=4
带re
s=拆分（.responseText，“”）
以
GetDistance=Val（s（1））
端函数

我也有同样的问题

不确定这是否适用于您，但在工具上，参考取消选择MicrosoftXMLV6并选择V3.0

这对我有用

---

关于

错误是什么，在哪一行？检查以确保设置了所有需要的参考。可能发生的情况是XMLHTTP未被识别为有效类型。如果不包括XMLHTTP类型所需的库，则可能发生这种情况。在将re定义为XMLHTTP时，您是否获得intellisense？当使用re的属性时会发生什么？如果没有，则编译器无法识别它。@ScottCraner这是Excel中调试的错误代码2016@BrandonBarney当我在Office2010中使用它时，我只需要启用MicrosoftoXML，6.0就可以了，所以我不知道它为什么会停止，为什么我无法解决，所以我把它带给大家：-）