原创力文档- 1、本文档共5页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
PAGE/NUMPAGES
VBA使用EXCEL读取身份证阅读器获得证件信息
本代码实现了在EXCEL中调用精伦身份证阅读器控件（可在网上百度精伦二次开发包，里面有）读取身份证信息，可根据实际情况修改相关代码,源文件可在EXCELhome网站搜索下载。
PrivateDeclareFunctionInitCommLibSdtapi.dll(ByValiPortAsInteger)AsInteger
PrivateDeclareFunctionCloseCommLibSdtapi.dll()AsInteger
PrivateDeclareFunctionAuthenticateLibSdtapi.dll()AsInteger
PrivateDeclareFunctionReadBaseInfosLibSdtapi.dll(ByValinameAsString,ByValisexAsString,ByValfolkAsString,ByValbirthdayAsString,ByValcodeAsString,ByValaddrAsString,ByValagencyAsString,ByValstartdateAsString,ByValenddateAsString)AsInteger
Sub启动_Click()
OnErrorResumeNext
Dimn,ret,nLen
DiminameAsString*31
DimisexAsString*3
DimfolkAsString*10
DimcodeAsString*19
DimaddrAsString*71
DimbirthdayAsString*9
DimstartdateAsString*9
DimenddateAsString*9
DimagencyAsString*31
DimMsgAsString*300
DimMsg1AsString*256
DimIINSNDNAsString*64
DimSAMIDAsString*36
DimLenTAsInteger
ret=InitComm(1001)
IfErrThen
Err.Clear
MsgBox端口错误,vbOKOnly,提示
ExitSub
EndIf
ret=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)
文档评论（0）