VBAでのXMLノードの削除

Question

お世話になっております。
ExcelのVBAでのXML操作について質問をさせてください。
現在XMLを使用したデータ管理システムを作成しています。
その中でノードの削除を行おうと考えているのですが、実行時エラーが発生してしまい、抜け出せない状態になっています。

XMLデータは以下です

<?xml version="1.0" encoding="UTF-16" standalone="no"?>
<personal_code_master xmlns="http://xml.personal-code.jp">
    <person>
        <personal_code>ONMC-100001</personal_code>
        <name>山田　太郎</name>
        <birthday>1970/5/21</birthday>
        <hold>
            <hold_item>
                <id>1</id>
                <date>2019/11/28</date>
            </hold_item>
        </hold>
    </person>
</personal_code_master>

作成したコードは以下です

Set xmlDocPCM = New MSXML2.DOMDocument
xmlDocPCM.Load (ThisWorkbook.Path & "\personal_code_master.xml")
personal_code = "ONMC-100001"

Dim personNode As IXMLDOMNode
Dim holdNode As IXMLDOMNode
'XMLパーサを使って検索する
Set personNode = xmlDocPCM.SelectSingleNode("personal_code_master/person[personal_code='" & personal_code & "']")

personNode.RemoveChild (holdNode)

実行時、上記コードの最後の行にて「実行時エラー '438':オブジェクトはこのプロパティ又はメソッドをサポートしていません。」とエラーが吐かれます。
しかしコーディングの際、候補のメソッドにremoveChildは存在します。
但し、メソッド選択後に頭文字が大文字になってしまうのが気になるところです。

該当行を

holdNode.ParentNode.RemoveChild (holdNode)

としても結果は同じでした。

XMLを読み込んだり、appendChildでのノードの追加処理は出来ている状況です。

ライブラリはMicrosoft XML, v3.0を参照しています。

各ソフトウェアのバージョンは以下になります

• Windows10 Enterprise LTSC
• Microsoft Office Standard 2013
• VBA: Retail 7.1.1068

ライブラリのバージョン的にremoveChildは対応していないのでしょうか？
無事目的の処理を行えるよう助言の程よろしくお願いいたします。

Answer 1

実行時エラー '438' の原因は、単純にコードミスだと思います。

holdNode.ParentNode.RemoveChild (holdNode)

() が余分です。

holdNode.ParentNode.RemoveChild holdNode

とします。
()を付けるなら、

Call holdNode.ParentNode.RemoveChild(holdNode)

とするか、Kazusakaさんの回答のように返り値を受け取って

Dim deletedChild As IXMLDOMNode
Set deletedChild = holdNode.ParentNode.RemoveChild(holdNode)

とします。

呈示のコードが完全でないので動作確認はしてません。

Comments

[KazuSaka]

hatena19さんのおっしゃる通りでした。
動作確認した所、提示されていたcall と括弧なしで正常に動作しました。
勉強になりました。

[BOLSTUMP]

hatena19さんのおっしゃる通りで無事解決出来ました。
Callステートメントについてちゃんと理解してませんでした。
大変助かりました。ベストアンサーとさせていただきます。

Answer 2

###回答

色々、試行錯誤してみました。

私の環境でも同じようなエラーが出ました。
RemoveChildの定義を見たら、削除された子要素が戻り値として返されるみたいです。
ですので、下記のようにしてみたら、438エラーは消え、正常に動作しました。
※personNodeの最初の子要素が削除されたのを確認しました。
※deletedChildに削除した子要素が入ったのを確認しました。

    Dim deletedChild As IXMLDOMNode
    Set deletedChild = personNode.RemoveChild(personNode.FirstChild)

質問者さんのコードを見る限り、削除対象のholdNode に何も入ってないと思いますが、記載されているコードがすべてではない感じですか？

###補足
同じXMLで検証しましたが、encoding="UTF-16"だと私の環境ではloadで失敗し、UTF-8にしたら、動きました。
ちなみに、appendChildも同じような形式で書かないと438エラーになりました。
（質問者さんの方では、appendChildは通ってるみたいなので、完全に現象が同じとは言えないかもしれませんね）

以上です。解決しましたら幸いです。

Comments

[BOLSTUMP]

返事遅れてすみませんでした。
修正についてはhatena19さんの方法を取らせていただきました。
検証いただいて大変ありがたいです。

またUTF-16についてですが、私が参考にしたサイトのXMLがそうなっていたのでそのまま使っていたのですが、文字コードを変換したらloadでのエラーは解消できると思います。
エディタはメモ帳を使っているのですが（環境的に好きなエディタを入れられない）、文字コードをUnicode、またはUTF16 LEを選択して保存で解消出来ました。