用户定义类型未定义 windows 10答案

【问题标题】：User-defined Type not defined windows 10用户定义类型未定义 windows 10
【发布时间】：2017-04-18 14:15:55
【问题描述】：

我有这个从天气 API 获取天气信息的子程序。它适用于 Windows 7 计算机，但不适用于 Windows 10。我收到“未定义用户定义类型”错误，并突出显示 Dim Req As New XMLHTTP 行。我尝试将 DOMDocument 更改为 DOMDocument60，并尝试确保选中 MicrosoftXML V6.0。

Public Sub GetWeather(APIurl As String, sted As String)

    Dim i As Integer
    Dim ws As Worksheet: Set ws = ActiveSheet
    Dim city As String
    Dim omraade As String
    Dim Req As New XMLHTTP
    Dim Weather As IXMLDOMNode
    Dim wShape As Shape
    Dim thisCell As Range
    Dim Resp As New DOMDocument60

    i = 0
    omraade = ""
    omraade = sted

    Select Case omraade
        Case "Area1"
            i = 4
        Case "Area2"
            i = 6
        Case "Area3"
            i = 8
    Case Else
        Exit Sub
    End Select

    Req.Open "GET", "" & APIurl & "", False
    Req.Send
    Resp.LoadXML Req.responseText

    For Each Weather In Resp.getElementsByTagName("current_condition")

        Set thisCell = ws.Range(Cells(2, i), Cells(2, i))
        Set wShape = ws.Shapes.AddShape(msoShapeRectangle, thisCell.Left, thisCell.Top, thisCell.Width, thisCell.Height)

        wShape.Fill.UserPicture Weather.ChildNodes(4).Text 'img

        Cells(3, i).Value = "" & Weather.ChildNodes(7).Text * 0.28 & " m/s" 'windspeedkmph
        Cells(4, i).Value = Weather.ChildNodes(9).Text 'Direction
        Cells(5, i).Value = Weather.ChildNodes(1).Text & " C"  'observation time
    Next Weather

End Sub

有什么想法吗？

【问题讨论】：

在项目参考中查找缺失项。

标签： xml excel vba domdocument

【解决方案1】：

使用工具、参考中正确引用的 Microsoft XML v6.0 库，适当的调用是，

Dim req As New MSXML2.XMLHTTP60

【讨论】：

做到了。谢谢！你介意解释我为什么需要这样做吗？ :)
Microsoft XML v6.0 库中描述的 var 的“类型”不是 XMLHTTP，而是 MSXML2.XMLHTTP60。在排序上，它是一个版本的东西。

【解决方案2】：

我在工具、参考中从 XML 6.0 更改为 XML 3.0，现在可以在 Windows 7 和 Windows 10 上运行...

【讨论】：

当接受的答案在 XML 6.0 中有效时，切换回 XML 3.0 有什么好处？
如果您不更改代码，则需要较少的测试。