ExcelVBAマクロ　NFC(ICカード)と連携してデータを取得する方法

Twitterで勤怠管理について話が出てきて昔ExcelVBAマクロとNFC(ICカード)を連携させてデータを取ってくる物を作った事を思い出しました。

そのVBAマクロを使って「こんなん出来るよ」的な紹介をしようと過去のデータを漁ってたけど見当たらりませんでした。

そこで思い出しも兼ねてNFC(ICカード)読み取り機を引っ張り出して再度ExcelVBAマクロを作ったのでここで紹介します。

概要

今回作成するマクロはICカードでリーダーにて読み取ったIDを元に登録情報を引っ張ってきて表示するという簡単なマクロです。

必要なもの

このVBAマクロを作るために以下の物が必要になってきます。

• NFC読み取り機
• ICカード
• NFC読み取り機の制御用API

NFC読み取り機は基本どれでも可能だと思います。

ちなみに僕が今回のマクロで使用したNFC読み取り機はSONY製の物です。

ICカードについては今回IDの読み取りだけを使っているため、読み取り可能な物であれば何でもOKです。(上記NFC読み取り機ではmanaca(交通系ICカード)やスマホ(おサイフケータイ機能付き)でも読み取りできました)

NFC読み取り機の制御用APIについて、昔は「株式会社オレンジタグス」さんで公開してくれていたAPIを使って実装したのですが現在は見当たらず断念しました。

ホーム｜NFC会員カード、ICカード・ICタグ、スマートフォン、NFC開発・総合支援の株式会社オレンジタグス

NFC(FeliCa,Mifare)会員カード・ポイントカード、開発キット、ICカード・ICタグ、スマートフォン、コンサルティングまで提供するNFC（近距離無線通信）の総合支援を行う株式会社オレンジタグス

www.orangetags.co.jp

代わりを探したところ、「ひつじかいの雑記帳」さんのところで「Sheep Smart Card Dll」を公開してくれているのでこれを使いました。(ありがとうございます)

404 Error

www.eclip.jp

32bit版と64bit版でわかれているので環境に合った物をダウンロードします。(OSではなくExcelに合ったバージョンを選びましょう)

ダウンロードした「Sheep Smart Card Dll」は環境に合った場所へ格納します。

• OS、Excelともに64bit：SheepSmartCard64.dllをC:\Windows\System32
• OS64bit、Excel32bit：SheepSmartCard32.dllをC:\Windows\SysWOW64
• OS、Excelともに32bit：SheepSmartCard32.dllをC:\Windows\System32

サンプルデータを確認

Sheep Smart Card Dllと一緒にExcelマクロ用のサンプルデータも公開してくれています。

まずはサンプルデータを使って動作の確認をしていきましょう。(事前にNFC読み取り機が動作することを確認しておきましょう)

NFC読み取り機にICカードを置き、「ID読み取り」ボタンをクリックすることで「カードID」にICカードのIDが表示されます。(OS、Excelともに64bitの環境であれば動きますがそれ以外の環境ではソースコードの修正が必要です)

サンプルデータのソースの最初ではSheep Smart Card Dllの宣言をしています。

環境に応じて(a)(b)(c)のいずれか1つだけコメントを外して残りはコメントにしておきます。(さきほど「ID読み取り」ボタンを押してもエラーとなった方はこちらを見直してみましょう)

プロシージャは「ID読み取り」ボタンのクリックイベント1つだけです。

「GetSmartCardUID()」関数を使うことでICカードからIDを取得することができます。

たいへんシンプルでわかりやすかったです。

ICカードのIDから名前を取得してみる

IDの表示だけではつまらないのでサンプルデータをベースにIDに紐づく名前を表示するソースに変更してみます。

「ID読み取り」ボタンのクリックイベントの最初でIDと名前の紐づけ情報をCollectionに詰め込む処理を追加しました。(今回は軽く確認のためだけの改変だったのでFor文で1～2行目のデータだけ詰め込んでいます)

サンプルデータでは取得したIDをそのまま表示していたのでIDから名前を取得してそれを表示するように変更しました。

IDと名前の紐づけ情報はSheet3にA列にID、B列に名前を書いて対応しています。

実際に動作させて確認してみました。

ExcelとNFCの連携マクロをやってみた(´∀｀) https://t.co/Ma6HcnfFIu pic.twitter.com/Moo1balIzl

— 渡り鳥@ウッドりストック (@m_wataridori) February 21, 2021

IDによる紐づけが出来るので前回記事にて紹介したaccdb(mdb)と連携することで更にパワフルなシステム構築もできると思います。

Excelマクロ　Access不要、Excelマクロからaccdb(mdb)を操作する方法

ここ最近、「エクセルの神髄」さんが企画するVBA100本ノックについて記事を書いています。その記事(その1、その2)へのアクセス数も徐々に増えてきているのですが本ブログではExcelマクロに関する記事がこのVBA100本ノックのみとなってい

w-tori.net

まとめ

「ひつじかいの雑記帳」さんの「Sheep Smart Card Dll」のおかげで簡単なソースを組むだけでICカードと連携できるVBAマクロを容易に作成できるようになります。

ICカードからIDを読み取るだけの機能ですがタイムカードの代替えやポイントカードの導入などアイデア次第でいろんなシステムを作ることができそうです。