• Home
  • WINDOWS
  • OFFICE
  • EXCEL
  • WORD
  • POWERPOINT
  • OUTLOOK
  • TEAMS
  • AZURE
What's Hot

企業IT 定時で上がろう! Excel関数の底力 第53回 複数の条件分岐を関数CHOOSE、MATCHで処理する 23時間前 連載

2023年11月28日

企業IT Power Automateで世界を変える⁉ Windows自動化のすゝめ 第19回 請求書作成も自動化!(3) 該当する請求データを取り出そう 2023/11/24 08:00 連載

2023年11月25日

企業IT マイクロメイツ、業務マニュアルの作成を効率化するテンプレートを提供開始 18時間前

2023年11月22日
Facebook Twitter Instagram
Facebook Twitter Instagram Vimeo
PC MEDIA
Subscribe Login
  • Home
  • WINDOWS
  • OFFICE
  • EXCEL
  • WORD
  • POWERPOINT
  • OUTLOOK
  • TEAMS
  • AZURE
PC MEDIA
ホーム » 書籍情報を検索するVBAを作成してみよう【楽天ブックス系API】
EXCEL

書籍情報を検索するVBAを作成してみよう【楽天ブックス系API】

TanakaBy Tanaka2022年11月25日コメントはまだありません1 Min Read
Facebook Twitter Pinterest LinkedIn Tumblr WhatsApp VKontakte Email
Share
Facebook Twitter LinkedIn Pinterest Email
Google Ads
Ad 4
Ad 3

目次

  • 連載第13回目の目的
  • ワークシートの準備
    • コントロールを配置する
    • 検索結果を収納する表を作成する
    • クレジット表記を配置する
  • VBA-JSONを準備する
  • スクリプトを書いていく

連載第13回目の目的

連載第13回では、前回の続きとしてExcel VBAにおける楽天ウェブサービスの活用について紹介します。前回で、APIの概要を紹介し、アプリケーションIDの取得やAPI呼び出しをテストしました。今回はワークシートを準備してスクリプトを作成し、サンプルを完成させます(図1)。

    図1:完成サンプル

▼完成サンプルのExcelファイル
https://github.com/wateryinhare62/mynavi_excelvba_webservice

なお、本連載では動作確認をWindows 10 Pro(64bit)、Microsoft 365(Excel 16.0、VBA 7.1)で行っています。旧バージョンや単体のExcelで試す場合にはご注意ください。

ワークシートの準備

APIが使えることを確認できたら、ワークシートを用意し、基本的なデザインを行っていきましょう。配置および書き込むものは、以下のとおりです。

  • アプリケーションのタイトルやコントロールのキャプション(説明は省略)
  • 「書名」「著者名」「出版社名」テキストボックス
  • 「ジャンル」「表示順」コンボボックス
  • 「前のページ」「次のページ」「検索開始」ボタン
  • 検索結果を収納する表
  • クレジット表示

上記のテキストおよびコントロールを、図2を参考に書き込み、配置してください。具体的な手順は、第6回などを参考にしてください。

    図2:ワークシートが準備された状態

コントロールを配置する

8つのコントロール(テキストボックス×3、コンボボックス×2、ボタン×3)をワークシート上部に配置して、プロパティを設定します。これらのプロパティの内容は、表1のとおりです。

▼表1:各コントロールに設定するプロパティ

コントロール プロパティ 値
「書名」テキストボックス Name TitleTextBox
「著者名」テキストボックス Name AuthorTextBox
「出版社名」テキストボックス Name PublisherTextBox
「並び順」コンボボックス Name SortComboBox
Style fmStyleDropDownList
「検索する」ボタン Name SearchCommandButton
「前のページ」ボタン Name PreviousCommandButton
「次のページ」ボタン Name NextCommandButton

検索結果を収納する表を作成する

表は、以下の構成とします。APIのデフォルトでは最大30個/ページが取得されるので、30個の検索結果が収納できるようにします。範囲の書式を「文字列」にしておくと、検索結果の書き込みで表示が乱れにくくなります。

  • ISBN(ISBNコード)
  • 書名(取得された書籍タイトル)
  • 著者(取得された著者)
  • 出版社(取得された出版社)
  • 発売日(取得された発売日)
  • サイズ(取得された判型、外形等)
  • 税込み価格(取得された税込み価格)
  • 説明(取得された商品説明)

クレジット表記を配置する

楽天グループ提供のWebサービスでは、クレジットの表記が義務付けられていますので、適当な形式で表記します。

▼楽天ウェブサービス: クレジット表示方法と注意 | ご利用ガイド
https://webservice.rakuten.co.jp/guide/credit

今回は、最もシンプルな「テキスト形式」を使用することにします。
ここで、ブックを保存しておきます。ブック名は何でもよいですが、VBAのスクリプトを実行できるようにするために、形式を「Excel マクロ有効ブック (*.xlsm)」にしてください。このあとも、適当なタイミングでブックを保存してください。

VBA-JSONを準備する

楽天ブックス系APIは、基本的に結果をJSONデータで返します。このようにVBAからJSONデータを使いますので、そのために必要なライブラリを準備します。第3回などと同様に、「VBA-JSON」を使用します。第3回の記事を参照して、「Microsoft Scripting Runtime」への参照設定を有効にすることを含めて、VBA-JSONを準備してください。

スクリプトを書いていく

この記事は
Members+会員限定記事です。

ログイン/会員登録する

Google Ads
Ad 1
書籍情報を検索するVBAを作成してみよう楽天ブックス系API
Share. Facebook Twitter Pinterest LinkedIn Tumblr WhatsApp Email
Previous Articleフランス政府、教育機関でOffice 365およびGoogle Workspaceの使用を禁止か | TECH+(テックプラス)
Next Article Windows 11搭載PCでCO2排出量を削減できる?
Tanaka
  • Website

Related Posts

企業IT 定時で上がろう! Excel関数の底力 第53回 複数の条件分岐を関数CHOOSE、MATCHで処理する 23時間前 連載

2023年11月28日

企業IT Power Automateで世界を変える⁉ Windows自動化のすゝめ 第19回 請求書作成も自動化!(3) 該当する請求データを取り出そう 2023/11/24 08:00 連載

2023年11月25日

企業IT 定時で上がろう! Excel関数の底力 第51回 改行を使って関数IFSをプログラムのように記述 2023/11/13 11:00 連載

2023年11月20日

企業IT Excelβ版に集計を手軽に行える新たな関数 2023/11/16 13:52

2023年11月19日

Leave A Reply Cancel Reply

人気記事

企業IT 定時で上がろう! Excel関数の底力 第53回 複数の条件分岐を関数CHOOSE、MATCHで処理する 23時間前 連載

2023年11月28日

企業IT Power Automateで世界を変える⁉ Windows自動化のすゝめ 第19回 請求書作成も自動化!(3) 該当する請求データを取り出そう 2023/11/24 08:00 連載

2023年11月25日

企業IT マイクロメイツ、業務マニュアルの作成を効率化するテンプレートを提供開始 18時間前

2023年11月22日

企業IT 定時で上がろう! Excel関数の底力 第51回 改行を使って関数IFSをプログラムのように記述 2023/11/13 11:00 連載

2023年11月20日

企業IT Excelβ版に集計を手軽に行える新たな関数 2023/11/16 13:52

2023年11月19日

企業IT Power Automateで世界を変える⁉ Windows自動化のすゝめ 第18回 請求書作成も自動化!(3) データを別ファイルに保管しておこう 2023/11/17 09:00 連載

2023年11月18日

企業IT Web版Excelに新たな数式作成支援機能 2023/10/26 11:20

2023年11月15日

企業IT Power Automateで世界を変える⁉ Windows自動化のすゝめ 第16回 請求書作成も自動化! セットアップ編 2023/10/27 08:00 連載

2023年11月14日

企業IT 定時で上がろう! Excel関数の底力 第49回 文字は数値より大きい? 「~以上」を正しく機能させる方法 2023/10/30 11:30 連載

2023年11月13日

パソコン 窓辺の小石 第138回 MSからの設定X 2023/11/03 12:47 連載

2023年11月12日
About Us
About Us
Our Picks
Facebook Twitter Instagram Pinterest
  • Home
  • WINDOWS
  • OFFICE
  • EXCEL
  • WORD
  • POWERPOINT
  • OUTLOOK
  • TEAMS
  • AZURE
Copyright © PC-MEDIA.JP All rights reserved.

Type above and press Enter to search. Press Esc to cancel.

Sign In or Register

Welcome Back!

Login to your account below.

Lost password?