Excel基于VBA連續獲取身份證讀卡器信息的方法

黃紹龍 蔣維

摘要：該文介紹了在Excel中使用身份證讀卡器連續讀人多個身份證號碼并舉例說明利用VBA查詢對應的數據記錄后寫入信息的方法。

關鍵詞：身份證號;ActiveX控件;數組;讀卡器;VBA

中圖分類號：TP311 文獻標識碼：A

文章編號：1009-3044（2020）14-0094-03

1背景

在日常生活中，凡是需要進行身份驗證的場合大都需要使用公民的身份證，例如，出行乘坐交通工具需要實名制購票，居民每年繳納社保金等，辦理這些業務都需要提供身份證號。身份證號包含18位數字，位數較多，手工錄入效率較低且容易出錯。身份證讀卡器可快速、準確地提取身份證的相關信息。讀取身份證號碼后可以實現查詢和寫入等多種操作，這樣就大大提高了工作效率，特別是在1人為其他多人代購車票或代繳費時效果更加明顯。本文模擬居民到銀行根據身份證號繳納社保金為例進行說明。

2適用環境

2.1硬件環境

“華視CVR-100UC”身份證讀卡器，可實現信息的快速識別，支持XP-win7/8/10系統。

2.2軟件環境

Microsoft Excel 2016內置的VBA（Visual Basic for Applica-tions），它是Visual Basic的一種宏語言，VBA專門用于Office的各應用程序中，可以通過VBA編寫模塊來滿足特定的需要。

3身份證信息提取過程

3.1身份證讀卡器對于讀取信息的存儲

“華視CVR-100UC”身份證讀卡器每次成功讀取一個身份證就會發出提示音，并在本主機的“C：＼IDCardPhoto”目錄下生成兩個文件，存儲當前讀取的身份證信息，包括bmp格式照片文件和txt格式的身份證文本信息文件。讀取下一張身份證信息時，覆蓋之前存儲的bmp文件和txt文件。其中的txt文件的文件名是wz.txt，信息在一行上顯示，各個字段依次是：姓名，性別，名字，出生年月日，籍貫，身份證號碼。例如：張三，男，漢，19800810，河南省洛陽市，411023199005035548。

3.2身份證號的提取

現在需要把wz.txt中的身份證號提取出來。首先讀取文件中的全部信息到一個字符串變量中，由于不同的字段之間使用逗號間隔，可使用VBA中的Splitf）函數返回一個數組，其中包含基于逗號分隔符分割的各個字段的值。然后就可以讀取該數組身份證號字段值。SplitO函數語法是：split（expression，delim-iterl，其中，Expression是包含帶分隔符的字符串表達式，Delim-iter是字符串轉換為數組時使用的分隔符。

連續讀入的多個身份證號通過字符串連接符連接起來，中間用逗號分隔，以備將來依次寫入“客戶身份證號”對話框的文本框中。

3.3向文本框依次寫入身份證號信息

可接收的身份證號個數可以根據需要設定。插入用戶窗體，布局標簽和文本框如圖1所示。先使用Split（1函數將存儲多個身份證號并以逗號分隔的字符串用數組進行存儲。然后遍歷表單上的控件，若控件類型名是“TextBox”則依次向這些文本框中寫入各個身份證號。最后顯示用戶窗體和讀入的所有身份證號碼。

4應用舉例

以模擬居民通過銀行繳納社保為例。在啟用宏的工作簿中，工作表Sheetl中包含身份證號、姓名和繳納金額3列，另外包含“接受讀卡器信息”和“寫入查詢表單”兩個ActiveX按鈕控件。如圖1所示，初始時“寫入查詢表單”按鈕未激活，只有點擊“接受讀卡器信息”按鈕后，即至少讀人1個身份證號碼后，“寫入查詢表單”按鈕才被激活，以免產生誤操作。身份證讀卡器每次成功讀取身份證信息后（也就是聽到“滴”的一聲提示音后），點擊“接受讀卡器信息”按鈕讀入下一個身份證號碼。這里設置最多讀取5個身份證號碼。點擊“寫入查詢表單”按鈕后，彈出如圖2所示的“客戶身份證號”對話框。點擊對話框中的“查詢”按鈕可對Sheetl中的記錄進行檢索。若查詢項被命中，若繳費金額列不為空則提示已繳費，否則在圖3所示的繳費對話框中錄入繳費金額，并將繳費金額寫入Sheetl對應列。

5結束語

本文介紹的vBA利用讀卡器連續讀取身份證號的查詢系統界面簡潔，操作簡單，可以方便地移植到其他相關系統應用上。這種技術可以減輕操作人員的負擔并大幅度地提高工作效率，具有非常好的實踐意義。