ちょっとお仕事のめも

今更だけど、Access VBA で XML を読み込む方法で躓いてしまい
教えてもらったのでめも。

XML が繰り返し構造になっていて、その繰り返しの中の要素が1つ以上ある時
1つ目の要素だけ取り込むみたいなの
最初の一つ目だから、n = 0 ということでこんな感じ…
For Each In Next で XML から繰り返し毎に要素を読み取る…
XML のなか media が 繰り返し、その中に dc:name と dc:createor が複数存在する
まぁ、いまさらですけどね。

Dim XmlDoc As MSXML2.DOMDocument
Dim FValue As Boolean
Dim NLst0,NLst1,NLst2 As MSXML2.IXMLDOMNodeList
Dim NList As MSXML2.IXMLDOMNode

Dim Url0 As String
Dim n As Long
Dim a,b As String

Url0 = "https://hogehoge.jp/api/serarch ... "
Set XmlDoc = CreateObject("MSXML2.DOMDocument")
XmlDoc.async = False

FValue = XmlDoc.Load(Url0)

If FValue Then
Set NLst0 = XmlDoc.selectNodes("//media")

For Each NList In NLst0
Set NLst1 = NList.selectNodes("dc:name")
Set NLst2 = NList.selectNodes("dc:createor")
a = NLst1(n).Text
b = NLst2(n).Text
.
.
.

Next NList
Else
MsgBox(" Not Found ")
End If

個人的、覚えとしてです。

参考ページはこちら
zenn.dev