VBAによるYahoo!Web APIで<ResultSet部分の取込み方法教えてください。

Question

下記をエクセルVBVで動かしてます。

Function getTitleFromISBN2(ISBN As String) As String
    Dim xml, result As Object
    Dim url, status As String
    Dim xlmtxt As String
    
    url = "http://shopping.yahooapis.jp/ShoppingWebService/V1/itemSearch?appid=*****************************&isbn=" & ISBN
        
        
       
        
    Set xml = CreateObject("Microsoft.XMLDOM")
    xml.async = False
    xml.Load (url)
    
    
'    Set result = xml.SelectSingleNode("/ResultSet")
    
   
'    If result.SelectSingleNode("totalResultsAvailable").nodeTypedValue = 0 Then '検索件数0なら
'        getTitleFromISBN = "該当なし"
'        Exit Function
'    End If
    
    Set result = xml.SelectSingleNode("/ResultSet/Result/Hit")
    getTitleFromISBN2 = result.SelectSingleNode("Name").nodeTypedValue
    

  
    
End Function

ahoo!Web APIからは

<?xml version="1.0" encoding="UTF-8"?>

-<ResultSet firstResultPosition="1" totalResultsReturned="1" totalResultsAvailable="11" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="urn:yahoo:jp:itemSearch" xsi:schemaLocation="urn:yahoo:jp:itemSearch http://shopping.yahooapis.jp/ShoppingWebService/V1/itemSearch.xsd">

(function() {window.klTabId_kis='ie_2852_0x4b58d38';})();(function () { var klTabIdEventName = "klTabId_kis"; if (document.createEvent) { var fireEvent = document.createEvent("Event"); fireEvent.initEvent(klTabIdEventName, true, true); window.dispatchEvent(fireEvent); } else if (document.createEventObject) { // Due to ie8 limitations (it doesn't support user custom events) // we use document.documentElement.klTabId_%PRODUCT% attribute for custom event emulation. // Incrementing this attribute emits 'propertychange' event, // for supporting ie8 you should attach 'propertychange' handler on document.documentElement // and skip all calls except then event.propertyName == klTabIdEventName if (document.documentElement[klTabIdEventName]) { document.documentElement[klTabIdEventName] = 1; } else { document.documentElement[klTabIdEventName]++; } } })(); 

-<Result>


-<Request>

<Query/>

</Request>

<Modules/>


-<Hit index="1">

<Name>ブライトンネット VAIOデジタイザースタイラスペン替え芯 BM-VDTSIN/S</Name>

<Description/>

<Headline/>
以下略

見たいに帰ってきます。
Nameは

Set result = xml.SelectSingleNode("/ResultSet/Result/Hit")

getTitleFromISBN2 = result.SelectSingleNode("Name").nodeTypedValue

でとれるのですが

-<ResultSet firstResultPosition="1" totalResultsReturned="1" totalResultsAvailable="11"

部分のfirstResultPosition等の値を取り込む方法が判りません。
教えて頂けないでしょうか。

Answer 1

getAttributeで取れませんでしたっけ？

Comments

[kakeru]

```VBA
Set result = xml.SelectSingleNode("/ResultSet")
test_firstResultPosition = resul.getAttribute("firstResultPosition")
MsgBox (test_firstResultPosition)

コード
```

を追加して見ましたが、2行目でVBAが終了してしまいました。

[dojikko]

取りたいのはElementのAttributeですよね？
Dim Pos
For Each e In [XMLDocument].getElementsByTagName("ResultSet")
　　Pos = e.getAttribute("firstResultPosition")
Next

コードがあってるか？ですが
とりあえずステップ実行で何に何が入っているのかを確認しながらやってみてください

[kakeru]

有難うございます。
1回しかループしませんでしたがPosに望みのデータが入りました。
１個しか無いと判ってれば、For Each以外の方法有りますか、有りましたらご教授願います。

[kakeru]

dojikkoさん有難うございました。
1回しか無い場合は下記で行ける事が判りましたので、完了といたします。
Set e = xml.getElementsByTagName("ResultSet")(0)
Pos = e.getAttribute("totalResultsAvailable")

[dojikko]

そのコードは、本当に1件必ずあると保証されているんならいいですが、なんらかの原因でElementが取れなかった時にエラーになってしまうので、決め打ちは良くないです
無駄なループに見えるかもしれませんが、0件でもエラーにならないのがForEachで処理することのメリットだと思いますので..

[kakeru]

有難うございます。
今回のYahoo!Web APIは検索結果の件数を返すのでどんな場合も１件だけ発生しますが、条件によって出ない場合が有る時はForEachで処理すべきなんですね。
ソート済で１番目がほしい時は
For Each e In [XMLDocument].getElementsByTagName("ResultSet")
　　Pos = e.getAttribute("firstResultPosition")
　　Exit For
Next
になりますね、For Next の使い方からすればおかしな構文ですがエラー対策上必要て事ですね。