用户定义types未定义的窗口10
我有这个从天气API获取天气信息的子。 它适用于Windows 7的计算机，但不是Windows 10.我得到一个“用户定义的types没有定义”的错误，并突出显示“作为新的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 有任何想法吗？
在Tools，References中正确引用了Microsoft XML v6.0库后，适当的调用是，
Dim req As New MSXML2.XMLHTTP60