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

1、VBA使用EXCEL讀取身份證閱讀器獲得證件信息本代碼實(shí)現(xiàn)了在EXCEL中調(diào)用精倫身份證閱讀器控件（可在網(wǎng)上百度精倫二次開發(fā)包，里面有）讀取身份證信息，可根據(jù)實(shí)際情況修改相關(guān)代碼,源文件可在EXCELhome網(wǎng)站搜索下載。 Private Declare Function InitComm Lib "Sdtapi.dll" (ByVal iPort As Integer) As Integer Private Declare Function CloseComm Lib "Sdtapi.dll" () As Integer Private Declare

2、 Function Authenticate Lib "Sdtapi.dll" () As Integer Private Declare Function ReadBaseInfos Lib "Sdtapi.dll" (ByVal iname As String, ByVal isex As String, ByVal folk As String, ByVal birthday As String, ByVal code As String, ByVal addr As String, ByVal agency As String, ByVal st

3、artdate As String, ByVal enddate As String) As Integer Sub 啟動_Click() 'On Error Resume Next Dim n, ret, nLen Dim iname As String * 31 Dim isex As String * 3 Dim folk As String * 10 Dim code As String * 19 Dim addr As String * 71 Dim birthday As String * 9 Dim startdate As String * 9 Dim enddate

4、As String * 9 Dim agency As String * 31 Dim Msg As String * 300 Dim Msg1 As String * 256 Dim IINSNDN As String * 64 Dim SAMID As String * 36 Dim LenT As Integer ret = InitComm("1001") If Err Then Err.Clear MsgBox "端口錯誤", vbOKOnly, "提示" Exit Sub End If ret = Authenticate

5、() 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&q

6、uot;) = 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(birt

7、hday) '住址 Range("a5") = Trim(addr) '公民身份號碼 Range("a6") = Trim(code) '簽發(fā)機(jī)關(guān) Range("a7") = Trim(agency) '有效期限 Range("a8") = Trim(enddate) If Trim(enddate) = "長期" Then Range("b8") = Left(Trim(startdate), 4) + "." + Mid

8、(Trim(startdate), 5, 2) + "." + Mid(Trim(startdate), 7, 2) + "-長期" Else Range("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) End If '顯示照片 'Pic.Picture = LoadPicture(App.Path + "phot