SModel = strone.SelectNodes('SystemModel')(0).TextĪctiveCell.Value = sType & ' ' & sModelįor Each strtwo In xmlDoc.getElementsByTagName('EntitlementData') SType = strone.SelectNodes('SystemType')(0).Text XmlDoc.Save 'Path to Servicetag' & sSvctag & '.xml'įor Each strone In xmlDoc.getElementsByTagName('AssetHeaderData') setRequestHeader 'Accept-encoding', 'zip'
setRequestHeader 'Content-Type', 'text/xml charset=utf-8' ' The i, j, k are used to keep the active cell where we want it to beĭim WS As Worksheet: Set WS = ActiveSheetĭim sStart As String, sEnd As String, sShip As String, sWarrend As String
'2.0 - Added Excel Spreadsheet Functionalityĭim sSelect As Range, sVendor As Range, sAddr As Variantĭim i As Integer, j As Integer, k As Integer 'COMMENT: Attach this macro to a Button Click action etc You can add more fields as you wish to suit your needs.
Now it is time to run it within Excel on a selected range of service tags and fill up the 3 columns to the right with Model Number, Ship Date and Warranty Expiry Date. In my previous post we saw how to perform a SOAP request to Dell’s Warranty lookup web service.
