その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="customGroup" label="Search from...">
          <button id="button1" label="Com" image="usa" size="normal" onAction="'searchBookInfoFromAmazonCom 1'" />
          <button id="button2" label="France" image="France" size="normal" onAction="'searchBookInfoFromAmazonFr 1'" />
          <button id="button3" label="Spain" image="Spain" size="normal" onAction="'searchBookInfoFromAmazonEs 1'" />
        </group>
      </tab>
    </tabs>
  </ribbon>
</customUI>

まとめればそれだけなんだけどボタンを押すとマクロが2回実行されるという、どうも昔からあるらしい謎仕様にはまった。

onAction="'foo()'"

→「実行できません。このブックでマクロが使用できないか、またはすべてのマクロが無効になっている可能性があります。」

onAction="foo()"

→ 2回実行され、2回目は意味不明なエラー。

onAction="foo"
onAction="'foo'"

→「引数の数が一致していません。または不正なプロパティを指定しています。」
やっと動いたのは

• プロシージャにはダミー引数を定義する
• onAction にはシングルクォート・括弧なしで書く

onAction="'foo arg'"

だいぶ気持ち悪いけどやむなし。

ピッとしたらパッと入力させたい

バーコードリーダーでISBNをピッピッと軽快に入力しても、マクロ実行のためにEnter押さなきゃいけなかった。バーコードリーダーを置いて、キーボードに手を持っていくのが地味にめんどくさい。

こんなフォームを作り、ISBNが入力され次第、データを取得してシートに書き出し、次の入力を待つようにした。快適なり。
裏では10桁ないし13桁入力されるまでChangeイベントをスルーするとか、Changeイベントは描画更新前に起きるらしく最後の1桁が表示されないとか、雑な作りだけども、それも自分用マクロの楽しいところ。
もっと適したイベントがあれば知りたい・・・

Private Sub isbn_Change()
    If Len(isbn.Value) < 3 Then
        Exit Sub
    ElseIf (Left(isbn.Value, 3) = "978") And (Len(isbn.Value) < 13) Then
        Exit Sub
    ElseIf (Len(isbn.Value) < 10) Then
        Exit Sub
    End If
    
    Cells(ActiveCell.row, 1).Value = isbn.Value
    Application.Cursor = xlWait
    main.setBookInfo
    Cells(ActiveCell.row + 1, 1).Select
    isbn.Value = ""
    Application.Cursor = xlDefault
    isbn.SetFocus
    
End Sub