怎样查询多个工作表中不同姓名使用一个身份证号码的人员，谢谢！

ztd123

怎样查询多个工作表中不同姓名使用一个身份证号码的人员，谢谢！ 在多个工作表中查询一个身份证多人使用.zip (36.69 KB, 下载次数: 15)

2023-5-11 14:08 上传

点击文件名下载附件

准提部林

查出來的結果要如何表示或放在哪???

ztd123

准提部林 发表于 2023-5-11 16:39
查出來的結果要如何表示或放在哪???

谢谢您，刚出去了，查出结果在对话框里面提示一下就行，再次感谢！

limonet

模拟了一个，代码在审核。

limonet

代码再改成自己想要的。
Sub limonet()
    Dim Cn As Object, Rst As Object, i%, StrSQL$
    Set Cn = CreateObject("adodb.connection")
    Set Rst = CreateObject("adodb.recordset")
    Cn.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.FullName
    For i = 1 To 12
        StrSQL = StrSQL & "select '" & i & "月' as 月份,单位名称,姓名,身份证号码 from [" & i & "月$] Union All "
    Next i
    StrSQL = "Select * from (" & Left(StrSQL, Len(StrSQL) - 11) & ") Where 身份证号码='777777777777777777'"
    Rst.Open StrSQL, Cn, 1, 3
    MsgBox "存在共用，共" & Rst.RecordCount
    Range("A10").CopyFromRecordset Cn.Execute(StrSQL)
End Sub

z865593849

参考。。。。。。。。。。。。。。

grf1973

。。。。。。。。。。。。。

ztd123

grf1973 发表于 2023-5-12 11:45
。。。。。。。。。。。。。

谢谢您，同时也感谢楼上所有老师！

sdytsxd991122

参与一下