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

Excel VBAでAmazon Product Advertising API を使う

イメージ
投稿者:
Excelで蔵書リストを作りたい。

多いといっても数千冊の蔵書、改善されたといってもウェブ画面よりExcelが断然入力しやすいし、既存ウェブサービスはAmazonにない本を登録できないという残念仕様により不可。

昔作った Amazon Advertising API でISBNから本の情報を取得するVBAプログラム、署名が必要になったAPI仕様変更に対応できずお蔵入りしてたけどホコリを払って再挑戦した。はぁ～めんどかった。
みんな苦労してるようで、いろんな方のブログ等に助けられました。ありがとうございます。一式揃ってすぐ動く、というコード・説明は見当たらなかったので、ここにまとめてみます。

完成品

マクロを含むExcel(2010)ファイルをGithubで公開しています。ISBNを入力してマクロを実行するとタイトル等をAmazonから取得して書き出します。好きに使ってください。
https://github.com/anarchiStraw/excel/blob/master/BookList.xlsm
bas単体も置きました。2010でないバージョンでもインポートすれば動くと思います(未確認)。

ただし、使うためにはAmazon.comのアカウント、アフィリエイト・タグが必要です。
  1. Amazon.com(米国)にアカウント作成。日本とは別管理なのでややこしい。https://affiliate-program.amazon.com/
  2. 続けて Affiliate account を作る。WebサイトのURLや用途、どう収益をあげるつもりか、とか聞かれるけど適当に答える。
  3. VBAエディタでmainモジュールを開き、アクセス・キー、シークレット・アクセス・キー、アフィリエイト・タグ を自分のものに書き換える。

お世話になったページ

みなさまありがとうございます。
  1. VBAからAmazon Product Advertising API - 来月から本気出す。
    必要な情報源がリストアップされています。おかげで以下のページにたどりつけました。
  2. 【Access】vbaでhmacが正しく計算できた！！ - ﾌﾟﾗﾌﾟﾗ式技術系 Access流!
    困りごと(SHA256での署名作成)どんぴしゃのソースコード。ほぼそのまま取り込み。
    hmacがクリアできれば、AccessVBAからamazonのapiが使えると思います。
    （あと、base64エンコード、URLエンコード等の情報はネットで入手できます。）
    が私には高いハードルでその後半日かかりました、、、。
  3. スーの道具箱/VBでハッシュを求める
    SHAのハッシュ値を計算するモジュール。ほんとありがたい。そのままコピーさせていただきました。
  4. How do I base64 encode a string efficiently using excel vba - StackOverflow
    Base64エンコードのソースコード。Stringを受け取って関数内でバイト配列を作っていますが、2の関数からは16進数が返るので、16進数からバイト配列を作って渡すように変えました。
  5. 日本語URLをExcelで手軽にURLエンコードする方法 - Colo-ri.jp
    URLエンコードのソースコード
  6. VBA XMLデータをDOMで扱う方法 - smilejapan.net
    DOMのとっかかり。
  7. Signed Requests Helper - Amazon.com
    リクエストしたいURLから、署名対象文字列、署名、署名付きURLを生成してくれる。検算用に。

ソースコード、ちょっと説明

main、SHA、testの3モジュールあって、使うのは main.setBookInfo です。
、、、説明どころが思い当たらない、、、質問がもしきたら答えよう。
いちおう、AmazonへのリクエストURL生成箇所だけ載せておきましょう。
期待した結果が得られないときはイミディエイト・ウィンドウに出力されるURLをブラウザで見てみるといいです。
' asinに対するデータ取得URL
' optional引数はテスト用。
' 実際使うときは yourAccessKey, yourSecretKey, yourAssociateTag を正しい値に書き換えてください。
Function signedUrlFor(asin As String, _
        Optional accessKey As Variant, Optional secretKey As Variant, _
        Optional associateTag As Variant, Optional timestamp As Variant) As String
    
    Dim endpoint As String
    endpoint = "ecs.amazonaws.jp"
    
    Dim path As String
    path = "/onca/xml"
    
    Dim params As String
    params = "AWSAccessKeyId=" & IIf(IsMissing(accessKey), "yourAccessKey", accessKey) _
        & "&AssociateTag=" & IIf(IsMissing(associateTag), "yourAssociateTag", associateTag) _
        & "&ItemId=" & asin _
        & "&Operation=ItemLookup" _
        & "&ResponseGroup=ItemAttributes" _
        & "&Service=AWSECommerceService" _
        & "&Timestamp=" & urlEncode(IIf(IsMissing(timestamp), Format(Now, "yyyy-mm-ddThh:MM:ss+0900"), timestamp)) _
        & "&Version=2011-08-01"
    
    Dim stringToSign As String
    stringToSign = "GET" & vbLf & endpoint & vbLf & path & vbLf & params
    
    signedUrlFor = "http://" & endpoint & path & "?" & params _
                & "&Signature=" & getSignature(stringToSign, IIf(IsMissing(secretKey), "yourSecretKey", secretKey))
    Debug.Print signedUrlFor

End Function
ラベル:

コメント

  1. 匿名2015年12月28日 20:34

    けっこうな数の本の情報をまとめて欲しいと知り合いに頼まれて
    途方に暮れていたので、ほんとに助かりました！！
    ありがとうございました。

    返信削除

コメントを投稿

このブログの人気の投稿

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
コメントを投稿
続きを読む

兵士というもの

投稿者:
体制への信頼、懐疑、雰囲気といった変化していく現象を、あとから測定するためのひとつの方法が、行動を突き止めるというやり方である。 国立銀行への貯蓄高、死亡広告の文面、アドルフと命名された子どもの数、教会脱退者などなど。民族同胞の雰囲気が頂点に達したのは1937年から1939年の間、1941年以降は急速に低下した。 政治的に始まった抑圧を日常的実践へと移しかえたのは、人々が受動的であり、抑圧を容認し、批判的な言動を同じ考えの持ち主の間でしか行わなかったからであった。p.55 これこそが、近代的人間が一見暴力とは無縁であるかのように見える原因なのだ。人々は暴力を想定しておらず、暴力が起きたならば、それはなぜなのかつねに説明を探し求める。たとえ、何らかの手段としての暴力ではなかったとしてもである。それにたいして、自らの身体的不可侵性が保障されていると信じていない者は、常に暴力を想定し、それが起きても動揺することはない。したがって信頼と暴力のバランスはつねに微妙で難しいものとなる。p.77 暴力というものが反文明的なものであり、抑圧されなければならず、深刻な場合には撲滅しなければならないものという形を取るようになったのは、歴史的に見ればようやく近代になってからのことである。暴力それ自体が非難されるべきこととされ、もちろん手段としての暴力は避けられないとしてもその都度正当化が必要とされるか、もし起こってしまったとすれば説明が必要なものとなった。p.78 しかしたとえば、人間が性欲を持つということに理由づけは必要だろうか。食べたり飲んだり息をしたりすることに[中略]したがって説明が求められるのはその様態であって、根本的な動機ではないのだ。おそらく暴力の場合にも、そのように考えることが有益であろう。[中略]結局のところ人類が生き延びたのは、平和を作り出す能力ゆえではなく、狩猟のさいや、食料を争うあらゆる種類のライバルにたいして行使した暴力ゆえなのである。p.78 家庭という領域では依然としてパートナーや子供、ペットに対する暴力が存在しているし、教会や学生寮といった閉鎖された社会領域でも同様である。[中略]おそらく、日常生活から暴力が無縁になるにつれ、象徴的もしくは代理的に行使される暴力への欲求が高まるのだろう。そして国家間でも依然として、暴力は独占からはほど遠い。p.79
コメントを投稿
続きを読む

佐藤忠良・安野光雅『ねがいは「普通」』

投稿者:
創作の目標のひとつにしたい佐藤忠良さんの対談。 絵をまた描きはじめた目で読むと、あちこち響いてくる。 満州に行かされていたんです。じきにソ連が参戦し、突撃ってことになって――。僕は戦線から逃げ出したんですよ。隊長を誘惑してね。その時、逃げるっていっても行く先がはっきりしないんですよ。日本海を泳いで帰るわけにもいかない。あのころ三十三歳くらいでしたか、元気だったんですね。先が見えないなら、地続きの、かねて憧れていたパリまで、歩いて行くより仕方がない――真剣に考えたんです。 人の顔をつくるとき、その人の怒りや喜びや過ごしてきた時間――粘土の中にね、過去と現在と未来までも、かっこいい言い方すると時間性をぶち込もうとするんです。それが彫刻家の苦しさだと思う。[中略]永く鑑賞に耐える芸術は、時間性を持たなくては――。  彫刻って、手でいちばん苦労するんです。手の動き方一つで、きざになったり、甘ったれたものになってしまったり。手の位置にも苦労しますね。 たとえばリンゴを描きたいというときは、その作家の全内容が投影して、書きたくなるわけです。描きたいなって思ったときに、作者のあらゆる哲学的なものや、思想的なものが投影できれば、絵のリンゴのほうが実際のリンゴよりよく見えてくる――。 でも、シベリアに抑留されていた三年間、男ばかりで過ごしていると、本当に、すべてのことを見せ合ってしまう。その時、我々日本人っていうのは、教養と肉体がバラバラになっていると思いました。 僕は日本にいるときから、ヤギなんかずいぶん描いていて、シベリアにいたときは描く紙がないから、心に絵を描くみたいにしてヤギを見ていたんです。 いや、目の前にして言うのはなんですが、何度見ても飽きないものをつくるのは難しいことです。特に気品あるものを作るというのは――。(安野) 僕はいつも思うんですよ。隣人への憐れみがない芸術は嘘ですよ。<中略>気品のないもの、隣人へのいたわりのないものから本物の芸術は生まれてこない。芸術だけではないのですが。 (山根　いずれにせよ作品にまとめるとか、彫刻に生かそうということで、お二人はデッサンをなさるわけですよね) まあそうですが。彫刻に生かそうというか、何か栄養を蓄積するようなことなんですよ。<中略> 素描
コメントを投稿
続きを読む