VBA使用EXCEL读取身份证阅读器获得证件信息

/VBA使用EXCEL读取身份证阅读器获得证件信息本代码实现了在EXCEL中调用精伦身份证阅读器控件（可在网上百度精伦二次开发包，里面有）读取身份证信息，可根据实际情况修改相关代码,源文件可在EXCELhome网站搜索下载。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)'签发机关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