Help finishing simple VBA

[MrSolar]

Looking to return staterate and localrate from xml response to cells A1 and A2 in active WS

I will modify later so that street address, city, and zip can be in three other cells in the sheet so the commandbutton1 can query for tax rate when clicked.


This is what I have so far:


Private Sub CommandButton1_Click()

Dim Req As New XMLHTTP60

Req.Open "Get", "http://dor.wa.gov/AddressRates.aspx?output=xml&addr=700%205th%20Ave&city=Seattle&zip=98104", False
Req.send


End Sub

 

[John_w]

Private Sub CommandButton1_Click()

    Dim XMLdoc As MSXML2.DOMDocument60
    Dim XMLnode As MSXML2.IXMLDOMNode
            
    Set XMLdoc = New MSXML2.DOMDocument60
    XMLdoc.async = False
    XMLdoc.Load "http://dor.wa.gov/AddressRates.aspx?output=xml&addr=700%205th%20Ave&city=Seattle&zip=98104"
    Set XMLnode = XMLdoc.SelectSingleNode("/response/rate")
    ActiveSheet.Range("A1").Value = XMLnode.Attributes.getNamedItem("staterate").Text
    ActiveSheet.Range("A2").Value = XMLnode.Attributes.getNamedItem("localrate").Text
    
End Sub

 

[MrSolar]

You sir, are a lifesaver. Thank you very much!