XML読み込みのときのselectSingleNode関数はエラー処理できない

XML読み込みのときのselectSingleNode関数のnodeTypedValueは、 簡単に1行で目的のデータが取得できるので、便利に使っているのですが、データーがないときのエラー処理ができません。
戻り値には、何もエラー処理できる値が入ってきません。
それで、以下のようにしてみました。
selectSingleNode関数でnodeTypedValueを使う前に、selectSingleNode関数の戻り値を判断し、
Nothing のときは、データがないということで処理することができました。

‘ツ黴€ DOMドキュメント宣言
Private source As DOMDocument

Sub XML読み込み()
Set source = New DOMDocument
source.async = False
Dim mnode As MSXML2.IXMLDOMNode

source.Load (“
http://xxx.mmm.lll.com/test.xml)
Set mnode = source.selectSingleNode(“//データ”)
If mnode Is Nothing Then
msg “データがありません。”
Else
xxxx = source.selectSingleNode(“//データ”).nodeTypedValue
End If
End Sub



コメントを残す