その2) Excel VBA で Amazon Product Advertising API

ISBNでAmazonデータを取ってくるマクロが完成して喜んでたけど、まだまだ面倒な作業が残っているのを思い出した。

1. ISBNがない本 発行年が昔だったりカバー無かったり。奥付にしか書かない拘りデザインとか。
2. 洋書 amazon.co.jp未登録なこと多し。これがまた手入力しづらい。キーボード切り替えたり、奥付(ていうか表紙裏)の読み方もよくわからないし。
3. そして雑誌、、、 特集を書かないと特定できないとか、年月・巻の書き方悩ましいとか、一番の難物。

とりあえず1と2に対処してGithubに置きました。

タイトル・作者・出版社でAmazonのデータを検索する

たとえばタイトルの一部を入力して、マクロを実行すると:

妥当なのを選んで「入力」。ほ～ら嬉しい。

ユーザーフォーム作ったり、なんだかんだ半日はかかっちゃった。ユーザーフォームのことって毎度忘れてる!

• ユーザーフォームと呼び出し元プロシージャのデータ授受に フォーム名.Tag が便利。

ということを知りました。

---

ISBNに応じてリクエスト先(endpoint)を切り替える

Product Advertising APIのDeveloper guideに各国のURLが載っていた。

Locale	Endpoint
CA	http://ecs.amazonaws.ca/onca/xml
CN	http://webservices.amazon.cn/onca/xml
DE	http://ecs.amazonaws.de/onca/xml
ES	http://webservices.amazon.es/onca/xml
FR	http://ecs.amazonaws.fr/onca/xml
IT	http://webservices.amazon.it/onca/xml
JP	http://ecs.amazonaws.jp/onca/xml
UK	http://ecs.amazonaws.uk/onca/xml
US	http://webservices.amazon.com/onca/xml

ASINすなわちISBN10は、先頭1～3桁が国・言語・地域を示す。International ISBN Agencyで上のLocaleに対応しそうなものを拾ったらこうなった：

Function endpoints(asin As String) As String
    Dim countryNumber As Integer
    countryNumber = CInt(IIf(CInt(Left(asin, 1)) <= 7, Left(asin, 1), Left(asin, 2)))
    Select Case countryNumber
    Case 2
        endpoints = "ecs.amazonaws.fr"
    Case 3
        endpoints = "ecs.amazonaws.de"
    Case 4
        endpoints = "ecs.amazonaws.jp"
    Case 7
        endpoints = "webservices.amazon.cn"
    Case 84
        endpoints = "webservices.amazon.es"
    Case 88
        endpoints = "webservices.amazon.it"
    Case Else
        endpoints = "webservices.amazon.com"
    End Select
End Function

中南米のスペイン語諸国は84(Spain)と別の国番号なんだけど、esにしたらよかったかなぁ。まぁ数冊もないからいいや私は。

わ～い嬉しい。フランス語は特に嬉しい。

---

そして雑誌は、、、

やりようあるのかなぁ?
図書館検索 カーリル は雑誌を対象外にしてるようだし、 楽天ブックス雑誌検索APIはJANコードで検索できるけど

• 実際雑誌に書いてあるのは「雑誌コード」である
• JANコードへ変換するには、出版社の登録番号を調べないといけない
• 出品された号しかない。つまり(雑誌によっては)ほとんどない。

うーむむむ。