昨年12月に作った 、Amazonからデータを取ってくるExcelマクロにコメントをいただいたのが嬉しくて、項目追加版を作りました。 githubのブランチ にあります。 追加した項目: ページ数、通貨、定価、最安値(新品、中古、コレクター)、売上ランク このうち最安値は、これまで取得していたResponseGroup(ItemAttributes)ではなく、OfferSummaryの属性です。 こちらの記事 に複数のResponseGroupが欲しければカンマでつなぐと書かれていたのですが、なぜかSignatureが正しくないと言われ(深夜のうっかりミスかも)、単純にResponseGroup=Largeにしたら欲しいもの全部入りでした。 & "&ResponseGroup=Large" _ レスポンスから使いたい属性を取り出す処理を追加して map.Add "pages", attributesNode.SelectSingleNode("NumberOfPages").text map.Add "listPrice", attributesNode.SelectSingleNode("ListPrice/Amount").text map.Add "currencyCode", attributesNode.SelectSingleNode("ListPrice/CurrencyCode").text Dim offerSummaryNode As MSXML2.IXMLDOMNode Set offerSummaryNode = itemNodes(i).SelectSingleNode("OfferSummary") map.Add "lowestNewPrice", offerSummaryNode.SelectSingleNode("LowestNewPrice/Amount").text map.Add &qu