WPS宏编辑器读取身份证信息到电子表格

解决的实际问题

接访时，需要登记来访人的身份证信息，包括：姓名、性别、年龄、住址、身份证号码。在纸质表格中登记完一个人需要几分钟时间，有时候人数较多的时候需要花费更多的时间完成登记。登记完后，因为手写字迹潦草的原因，不便于识别；也不便于统计、检索。

设计这么一个WPS带宏的电子表格，依托身份证阅读器（本文是高拍仪上集成的身份证阅读器），可以实现3秒钟自动读取身份证上的所有信息并输入电子表格中。

开发环境

操作系统：银河麒麟V10

WPS版本：11.8.2.11653（建议使用较新版本）

具体步骤

01 在WPS表格第一个工作表（Sheet1）中设计好表式，如下图所示：

02 Alt+F11打开WPS宏编辑器，输入以下代码。

/**
 * getJson 解析JSON数据到WPS表格
 */
function getJson()
{
	//设置采集的网址
	const requestURL = "http://127.0.0.1:38088/card=idcard";
	//设置缓存文件路径，不同WPS版本会生成不同的缓存文件夹
	const tmpFile = "/tmp/wps-ht/tmp_05512cae147b468486000a4c73f8a2f4/card=idcard"

	//打开源工作簿
    var sourceWbook = Workbooks.Open(requestURL);
	//选择源工作簿中的工作表
    var sourceWsheet = sourceWbook.Sheets(1);
    
	//复制源工作表中的所有数据，源工作表中的JSON数据默认放在A1单元格
    var jsonString = sourceWsheet.Range("A1").Value2;
    
    //解析JSON数据
    var jsonObject = JSON.parse(jsonString);
    //提取出身份证信息，完成解析
    var obj = jsonObject.IDCardInfo;
    
    //源工作簿已经完成解析，关闭源工作薄
	sourceWbook.Close(false);
	
	//删除缓存文件
	Kill(tmpFile);
    
    //把解析到的身份证信息输入表格B3-I3单元格    
    var newRowIndex = 3;
    var rowRange = 360;
    
    //逐行遍历，在空行填充解析数据
	for(var i=newRowIndex; i<rowRange; i++){
		//仅根据B列单元格（姓名）判断所在行是否为空
	    txt = Range("B"+i).Value2
	    
	    //高拍仪未放入身份证时，obj为空
		if(obj==null){
			MsgBox("高拍仪未放入身份证，请放入身份证后再进行采集！")
			return;
		}
		
		//根据B列判断所在行为空时，填充数据
	    if(txt==null){
	    		//A列生成序号 
			Range("A"+i).Value2 = i-newRowIndex+1
			//把解析到的身份证信息输入表格B到I列 
		    	Range("B"+i).Value2 = obj.name;
			Range("C"+i).Value2 = obj.sex;
			Range("D"+i).Value2 = obj.nation;
			Range("E"+i).Value2 = obj.birthday;
			Range("F"+i).Value2 = obj.address;
			Range("G"+i).Value2 = obj.cardID;
			Range("H"+i).Value2 = obj.issueOrgan;
			Range("I"+i).Value2 = obj.validStart + "-" + obj.validEnd;
			Console.log(obj.name+":信息采集完毕。");
			return;
		}
	}
}

03 把身份证放入高拍仪（身份证阅读器），点击电子表格中“采集身份证信息”即可采集信息。

注意事项：不同的WPS版本会生成不同的缓存文件夹，请自行更改缓存文件夹路径。路径为：/tmp/wps-ht/