VBA使用EXCEL讀取身份證閱讀器獲得證件信息

/VBA使用EXCEL讀取身份證閱讀器獲得證件信息本代碼實現(xiàn)了在EXCEL中調(diào)用精倫身份證閱讀器控件（可在網(wǎng)上百度精倫二次開發(fā)包，里面有）讀取身份證信息，可根據(jù)實際情況修改相關(guān)代碼,源文件可在EXCELhome網(wǎng)站搜索下載。PrivateDeclareFunctionInitCommLib"Sdtapi.dll"(ByValiPortAsInteger)AsIntegerPrivateDeclareFunctionCloseCommLib"Sdtapi.dll"()AsIntegerPrivateDeclareFunctionAuthenticateLib"Sdtapi.dll"()AsIntegerPrivateDeclareFunctionReadBaseInfosLib"Sdtapi.dll"(ByValinameAsString,ByValisexAsString,ByValfolkAsString,ByValbirthdayAsString,ByValcodeAsString,ByValaddrAsString,ByValagencyAsString,ByValstartdateAsString,ByValenddateAsString)AsIntegerSub啟動_Click()'OnErrorResumeNextDimn,ret,nLenDiminameAsString*31DimisexAsString*3DimfolkAsString*10DimcodeAsString*19DimaddrAsString*71DimbirthdayAsString*9DimstartdateAsString*9DimenddateAsString*9DimagencyAsString*31DimMsgAsString*300DimMsg1AsString*256DimIINSNDNAsString*64DimSAMIDAsString*36DimLenTAsIntegerret=InitComm("1001")IfErrThenErr.ClearMsgBox"端口錯誤",vbOKOnly,"提示"ExitSubEndIfret=Authenticate()If(ret)Then''MsgBox"找到卡，正在讀卡..."'ret=MsgBox("找到卡，正在讀卡...",vbOKOnly+vbInformation,"提示")ret=ReadBaseInfos(iname,isex,folk,birthday,code,addr,agency,startdate,enddate)If(ret)Then'MsgBox"讀卡成功！"'姓名Range("a1")=Trim(iname)'性別Range("a2")=Trim(isex)'民族Range("a3")=Trim(folk)'出生年Range("a4")=Left(Trim(birthday),4)+"年"+Mid(Trim(birthday),5,2)+"月"+Mid(Trim(birthday),7,2)+"日"Range("b4")=Trim(birthday)'住址Range("a5")=Trim(addr)'公民身份號碼Range("a6")=Trim(code)'簽發(fā)機關(guān)Range("a7")=Trim(agency)'有效期限Range("a8")=Trim(enddate)IfTrim(enddate)="長期"ThenRange("b8")=Left(Trim(startdate),4)+"."+Mid(Trim(startdate),5,2)+"."+Mid(Trim(startdate),7,2)+"長期"ElseRange("b8")=Left(Trim(startdate),4)+"."+Mid(Trim(startdate),5,2)+"."+Mid(Trim(startdate),7,2)+""+Left(Trim(enddate),4)+"."+Mid(Trim(enddate),5,2)+"."+Mid(Trim(enddate),7,2)EndIf'顯示照片'Pic.Picture=LoadPicture(App.Path+"\photo.bmp")Else