スキップしてメイン コンテンツに移動

その3) Excel 蔵書リストに項目追加

イメージ
投稿者:

昨年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 "lowestUsedPrice", offerSummaryNode.SelectSingleNode("LowestUsedPrice/Amount").text
        map.Add "lowestCollectiblePrice", offerSummaryNode.SelectSingleNode("LowestCollectiblePrice/Amount").text
        
        map.Add "salesRank", itemNodes(i).SelectSingleNode("SalesRank").text

シートに書き出すところも追加して
ws.Cells(row, colPages).Value = map("pages")
    ws.Cells(row, colCurrencyCode).Value = map("currencyCode")
    ws.Cells(row, colListPrice).Value = map("listPrice")
    ws.Cells(row, colLowestNewPrice).Value = map("lowestNewPrice")
    ws.Cells(row, colLowestUsedPrice).Value = map("lowestUsedPrice")
    ws.Cells(row, colLowestCollectiblePrice).Value = map("lowestCollectiblePrice")
    ws.Cells(row, colSalesRank).Value = map("salesRank")

完成です。

今回の学び「継続行のコメントアウトってめんどくさい」
コメントアウトも継続してしまうとはね。そりゃそうなんだけど、、、。

ラベル:

コメント

  1. タットン2014年1月10日 18:47

    はじめまして。

    Excelで所有している商品の管理をしたいと思い検索していて辿り着きました。
    ISBNではなく、JANコードを入力したら隣のセルに商品名・Amazonランキング・最安値が
    入力されるようにすることも可能なのでしょうか？

    それと、現在もAmazonのアカウントとアフィリエイトタグは日本のものでは動作しないのでしょうか？

    返信削除
    返信
    1. anarchiStraw2014年2月1日 8:23


      返信遅くなってすみません。

      開発者ガイドを見た限りのお返事になりますが

      ・ItemIdにJANコードも使えます。パラメータIdType=JANを指定します。com, frなどにリクエストする際はEANとして送ればいいはず。

      ・ただしSearchIndexを指定する必要がでてきます。

      ・ItemLookupのResponseGroupにOfferSummaryとSalesRankを指定すれば価格とランキングがとれるでしょう。

      ・API開発者登録にはAmazon.comのアカウントが必要です。

      ・アフィリエイトタグは日本のものでいいはずです。というかリンク先がjpサイトなら日本のを使わないとダメな気がします。

      削除

コメントを投稿

このブログの人気の投稿

GAS 同一カラムを複数条件でfilterできない件

投稿者:
Google Apps Script でSpreadsheetをデータベース代わりにwebアプリをポチポチ作ってて、スクリプトからSpreadsheetにフィルタかける場合、同一カラムに複数条件を設定できないことを知って残念……。 フィルタのかけ方はこんな感じ。 日付を範囲指定したいけど、After、Before片方しかつけられない。 var dataFile = SpreadsheetApp.openById(DATA_FILE_ID); var sh = dataFile.getSheetByName(LOG_SHEET_NAME); var criteriaDateAfter = SpreadsheetApp.newFilterCriteria().whenDateAfter(new Date(targetDate)).build(); var criteriaUserEqual = SpreadsheetApp.newFilterCriteria().whenTextEqualTo(user.id).build(); if (sh.getFilter()) { sh.getFilter().remove(); } var r = sh.getRange(1, 1, sh.getLastRow(), sh.getLastColumn()) .createFilter() .setColumnFilterCriteria(DATE_COL, criteriaDateAfter) .setColumnFilterCriteria(USER_ID_COL, criteriaUserEqual) .getRange(); FilterCriteriaに2回条件設定してみたり var criteriaDateRange = SpreadsheetApp.newFilterCriteria() .whenDateAfter(new Date(date1)) .whenDateBefore(new Date(date2)).build(); 同じカラムに2回条件設定してみたり var r = sh.getRange(1, 1, sh.get...
コメントを投稿
続きを読む

ジップロックで堆肥づくり

投稿者:
2012/11/02『家庭でできる堆肥づくり百科』を見てビニール袋と生ゴミで堆肥づくりに初挑戦。 ・生ごみ　250ml　(細かく刻む) ・庭の土　120ml ・水　大さじ2 ・アルファルファ粉末　大さじ1 (ウサギのペレットを砕いた) 袋はジップロック大を使用。 毎日揉む(切り返し)、1日おきに空気を入れ替える。4～8週間でできるらしい。 保温のことは書いてなかったけど発砲スチロール箱に入れてみた。うまく行くといいなあ。 2012/11/07 道路掃除の方に落ち葉をもらったので一掴みいれてみる。生ゴミは窒素やや多めらしく、炭素系の落ち葉を足したらいいかなと。 2012/11/12 10日経ってニオイが落ちついてきたかも。腐ってる臭いではないけどツンとする臭いがずっとしてた。発泡スチロール箱を蓋すれば気にならない(ジップロックには全く遮断されないので、袋だけで室内に置くのは避けたい)。材料がネギとミカンなせいかなあ。見た目は一向に変わらず。
コメントを投稿
続きを読む

その4 Excel VBAでAmazon Product Advertising API

投稿者:
引っ越すためついに本気で書籍リストを作っていると、どれほど少しでも省力化したくなり、しつこくバージョンアップ。 ISBNのない外国の本も検索したい ISBNのない本が思ったより多かった。フランス語のアクサンとか入力したくない。ISBNでの検索はamazon.com, amazon.frなど検索先を切り替えているように、タイトル等での検索も各国サイトを利用したい。 最初は「jpで見つからなければcom、見つからなければfr、、、」と思ったけど、だいぶ待たされちゃうし、その本のデータをどこで探したいかは決まってるので、それぞれ別のプロシージャを定義して実行できるようにした。 Public Sub searchBookInfoFromAmazonFr(dummy As Integer) searchBookInfo (amazonFr) End Sub さて、クイックアクセスツールバーに登録するのだけど、用意されてるアイコンじゃわかりづらい。各国の旗がいいんじゃないか。と思ってからが長かった・・・が、まとめれば： 旗アイコンは ここ で入手。 Ribbon Editor でリボンに自前のタブ・ボタンを登録 対象のExcelファイルを開く 右のDocument Explorerペインで「CustomUI Parts」を追加 表示される編集ペインのImageタブを開き、好きな画像を追加(From File System) Codeタブに下記Xmlを書いて保存、終了 Excelを開くとカスタム・ボタンが登録されているので、ふつうにクイックアクセスツールバーにも登録 <customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui"> <ribbon startFromScratch="false"> <tabs> <tab id="customMacro" label="custom macro"> <group id="custo...
9 件のコメント
続きを読む