0

xml ドキュメントのヘッダー内でPrescriberOrderNumber上に移動する必要があります。Sent time以下のコードでは、ノードを作成できると、リストの一番下にスローされます。を使用しようとするとInsertBefore、ランタイム 5 エラーがスローされます。

XML:

<Message xmlns="http://www.ncpdp.org/schema/SCRIPT" version="010" release="006">
    <Header>
        <To Qualifier="D">6199568422001</To>
        <From Qualifier="P">0001060</From>
        <MessageID>992a39320ba04a53b1e44094389c063a</MessageID>
        <SentTime>2013-07-03T14:24:47.005371Z</SentTime>
        <PrescriberOrderNumber>ZSUR10009D</PrescriberOrderNumber>
    </Header>

VBA スクリプト:

    Case "SentTime"
        Dim objRoot As IXMLDOMNode
        Dim objMemberElem As IXMLDOMNode

        Set objRoot = oXMLDoc3.DocumentElement

        'Create 1 Child Element
        Set objMemberElem = oXMLDoc3.createElement("RelatesToMessageID")
        objMemberElem.Text = n.Text

        Set node = objRoot.SelectSingleNode("*/SentTime")
        objRoot.ChildNodes.Item(0).appendChild objMemberElem

        objRoot.InsertBefore objMemberElem, node

何か案は?

4

1 に答える 1