我修改了这个现有代码,以从国家气象服务提要中解析出一些 XML 数据。它在我的家用电脑(excel 2007)上运行没有问题。它不能在我的工作电脑/网络上运行 excel 2013。
抛出以下错误。
运行时错误“-2147012894 (80072ee2)”:
自动化错误
有什么见解吗?网络问题还是 2007 到 2013 的兼容性问题?我可以毫无问题地在浏览器中解析提要。
Option Explicit
Sub GetData()
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Variables
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim ws As Worksheet
Set ws = ActiveSheet
Dim Req As New ServerXMLHTTP
Dim Resp As New DOMDocument
Dim i As Integer
Dim Wthr As IXMLDOMNode
Dim geo As IXMLDOMNode
Dim cell As Range
Dim fn As WorksheetFunction
Dim y As Integer
Dim x As Integer
Set fn = Application.WorksheetFunction
Dim Eff, Exp, et, severity As String
Dim splitstring As Variant
ws.Range("A6").CurrentRegion.Clear
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Get Weather Alerts
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Req.Open "GET", "https://alerts.weather.gov/cap/us.atom", False
Req.send
Resp.LoadXML Req.responseText
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Write alerts to worksheet
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
y = 1
For Each Wthr In Resp.getElementsByTagName("entry")
i = i + 1
severity = Wthr.SelectNodes("cap:severity")(0).Text
et = Wthr.SelectNodes("cap:event")(0).Text
For Each geo In Wthr.SelectNodes("cap:geocode")
splitstring = Split(geo.SelectNodes("value")(0).Text, " ")
For x = LBound(splitstring) To UBound(splitstring)
y = y + 1
ws.Cells(y, 1).Value = splitstring(x)
ws.Cells(y, 2).Value = severity
ws.Cells(y, 3).Value = et
Next x
Next
Next Wthr
End Sub