![]() |
|
#1
|
|||
|
|||
![]() Quote:
<?xml version="1.0" encoding="UTF-8"?> <tns:updateVendorFileRepairAcknowledgementRespon se xmlns:ervmt="http://xmlschema.tmi.name.com/xsd/Resource/Resource/EquipmentRepairVendorManagement_v1" xmlns:tns="http://xmlschema.tmi.name.com/srv/RMO/ResourceMgmt/EquipmentRepairVendorManagementSvcRequestResponse_ v1" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://xmlschema.tmi.name.com/srv/RMO/ResourceMgmt/EquipmentRepairVendorManagementSvcRequestResponse_ v1 EquipmentRepairVendorManagementSvcRequestResponse_ v1_1.xsd <tns:vendorFileRepairAckInfo> <tns:equipmentRepairReturnMessageHeader> <tns:repairOrderAck> <ervmt:fileID>0</ervmt:fileID> <ervmt:fileName>Name</ervmt:fileName> <ervmt:messageType>ACKNOWLEDGEMENT</ervmt:messageType> <ervmt:fileCreationDate>2014-04-02T18:46:19.428-07:00</ervmt:fileCreationDate> <ervmt:numberOfRecords>1</ervmt:numberOfRecords> <ervmt:vendorID>1234567</ervmt:vendorID> <ervmt:vendorName>Name2</ervmt:vendorName> </tns:repairOrderAck> </tns:equipmentRepairReturnMessageHeader> <tns:repairOrderAck> <ervmt:repairID>11111111</ervmt:repairID> <ervmt:rejectReasonInfoList> <ervmt:rejectReasonInfo> <ervmt:rejectReasonCode/> <ervmt:rejectReasonComment>Cannot cancel order - order not found.</ervmt:rejectReasonComment> <ervmt:rejectFieldName>RepairId</ervmt:rejectFieldName> <ervmt:rejectFieldOriginalValue>8980997</ervmt:rejectFieldOriginalValue> <ervmt:rejectFieldExpectedValue>N/A</ervmt:rejectFieldExpectedValue> </ervmt:rejectReasonInfo> </ervmt:rejectReasonInfoList> </tns:repairOrderAck> </tns:vendorFileRepairAckInfo> </tns:updateVendorFileRepairAcknowledgementResponse> Code:
Sub ParseXmlDocument() Dim doc As New MSXML2.DOMDocument Dim success As Boolean success = doc.Load("Path & File.xml") If success = False Then MsgBox doc.parseError.reason Else Dim nodeList As MSXML2.IXMLDOMNodeList Set nodeList = doc.SelectNodes("/tns:updateVendorFileRepairAcknowledgementResponse/tns:vendorFileRepairAckInfo/tns:equipmentRepairReturnMessageHeader/tns:repairOrderAck") If Not nodeList Is Nothing Then Dim node As MSXML2.IXMLDOMNode Dim name As String Dim value As String For Each node In nodeList ' Could also do 'name = node.Attributes.getNamedItem("ervmt:fileID").Text name = node.SelectSingleNode("@ervmt").Text 'this is where the error is ??? value = node.SelectSingleNode("@:fileID").Text ' I'm not sure what goes here ?? Debug.Print name & ": " & value Next node End If End If End Sub |
![]() |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
Insert a hyperlink in body of email | ChuckDrago | Outlook | 0 | 06-28-2013 06:51 AM |
add hyperlink in body of Outlook email | ChuckDrago | Word | 0 | 06-27-2013 01:13 PM |
![]() |
dunndealpr | Excel | 3 | 06-07-2013 08:29 AM |
![]() |
bal-007 | Word | 3 | 11-25-2011 01:08 PM |
![]() |
zssteen | Excel | 1 | 06-19-2009 02:32 AM |