<html>
<body>
<div>
<script></script>
<i># records: 1</i>
<br />
<br />
<i>critical_steps:</i>
exhaustion
<br />
<i>job_type:</i>
Replace Pole<br />
<br />
</div>
</body>
</html>Sub knute_gis()
Dim myurl As String
Dim iElement, iElements As Variant
Dim IE As MSXML2.XMLHTTP60
Dim HTMLDoc As MSHTML.HTMLDocument
Dim HTMLBody As MSHTML.HTMLBody
Dim i As Long
Dim sht As Worksheet
Set IE = New MSXML2.XMLHTTP60
Set HTMLDoc = New MSHTML.HTMLDocument
Set HTMLBody = HTMLDoc.body
myurl = "URL to Query here!"
IE.Open "GET", myurl, False
IE.send
On Error Resume Next
HTMLDoc.body.innerHTML = IE.responseText
Flat = False
i = 0
Set iElements = HTMLDoc.getElementsByTagName("i")
For Each iElement In iElements
i = i + 1
ThisWorkbook.Sheets("Sheet1").Cells(i, 1) = iElement.innerText
ThisWorkbook.Sheets("Sheet1").Cells(i, 2) = iElement.NextSibling.NodeValue
Next
End Sub| Book1 | ||||
|---|---|---|---|---|
| A | B | |||
| 1 | # records: 1 | |||
| 2 | critical_steps: | exhaustion | ||
| 3 | job_type: | Replace Pole | ||
Sheet1 | ||||
