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

その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日経ってニオイが落ちついてきたかも。腐ってる臭いではないけどツンとする臭いがずっとしてた。発泡スチロール箱を蓋すれば気にならない(ジップロックには全く遮断されないので、袋だけで室内に置くのは避けたい)。材料がネギとミカンなせいかなあ。見た目は一向に変わらず。
コメントを投稿
続きを読む

2013/05/02

投稿者:
研修。ひたすら葱を植える。今日はペーパーポットの苗を「ひっぱりくん」で定植し、もみ殻と堆肥をかける。「ひっぱりくん」を使うには30cm位の幅で中央が盛り上がった(W字型の)溝を掘っておく。ペーパーポットの端をセットして引っ張ると、苗が埋められ土もかけてくれる優れもの・・・だけどうまく土がかからなかったり、根が絡んでポットがほぐれなかったり、そうそう簡単でもない。でも1反弱を5人で植えきった。 はじめて1人で昼食当番。大根飯、味噌汁、がんもどき、豚肉と蕪の炒め、カレーグラタンのようなもの。ちょっと少なかったか。 なんかの取材があり、私ふくめ4人の研修生が自己紹介してみると改めて各人各様。10代、20代、30代、研修歴は1ヶ月から2年まで。でも「どうして有機農業なんですか?」にはみんな戸惑う。慣行か有機かって悩んだりしてないから。 帝国ホテルは自前の堆肥工場を持っていると聞いた。悪くない、けど、残飯じゃなく、食べるに事欠く人にお裾分けできればもっといい。かつて折詰のおみやがごく普通だったし、王侯貴族の飽食の残りもゴミになったはずがない。タイ?では幾つもの皿に盛り分け、手をつけた皿だけ請求する仕組みもあるとか。そういうものって感覚が広まればなんなく成立すると思うんだけど。 ---- 迎えにいったらフミさんは音楽を聴いてご機嫌。庭のままごとハウスで遊んだり、プランターの花を見たりして帰る。「八高線、いっぱいの人が乗ってるの」
コメントを投稿
続きを読む