一键匹配

aison2016

简单做了个accdb（见附件），用员工编号来一键匹配其他信息，比如随意复制部分员工编号粘贴到一键查询表的A列，点击一键匹配按钮后能查询出这个员工的其他信息。
目前的vba程序是：
Sub 数据查询()
    Dim cnn As Object
    Dim sq1 As String
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open "provider=Microsoft.Ace.OLEDB.12.0;data source=" & ThisWorkbook.Path & "\mysql.accdb"
    sq1 = "select 生日,省,市,员工名称,性别,来源 from  [Excel 12.0;imex=1;Database=" & ThisWorkbook.FullName & "].[Sheet1$a:a] a left join [Sheet1] b on a.员工编码=b.员工编码"
    Range("b2").CopyFromRecordset cnn.Execute(sq1)
    cnn.Close
    Set cnn = Nothing
End Sub


但是这个有个问题：查询表（一键匹配.xlsm）的第二行作废了，且A2只能键入非纯数字，不然会报错。
求大神优化一下，将A2能正常键入员工编号进行查询。（因为源字段多，数据比较大，所以用access来做表）

jiangxiaoyun

acc员工编码是短文本

aison2016

jiangxiaoyun 发表于 2019-4-20 00:54
acc员工编码是短文本

我是初学者，如何优化，请多多指教。我在网上找过很多一键匹配的vba代码，这个还可以，可以快速在200万行数据的access源文件基础再一键匹配。

microyip

关键是要理解SQL代码的意思，SQL对字段的类型要求比较严格

aison2016

microyip 发表于 2019-4-20 09:14
关键是要理解SQL代码的意思，SQL对字段的类型要求比较严格

被你说中了，下面代码 我能理解查询什么，有个左连接，和条件，其他没怎么看懂，请赐教。能帮忙搞下主题优化更好，谢谢！
sq1 = "select 生日,省,市,员工名称,性别,来源 from  [Excel 12.0;imex=1;Database=" & ThisWorkbook.FullName & "].[Sheet1$a:a] a left join [Sheet1] b on a.员工编码=b.员工编码"
    Range("b2").CopyFromRecordset cnn.Execute(sq1)

aison2016

microyip 发表于 2019-4-20 09:14
关键是要理解SQL代码的意思，SQL对字段的类型要求比较严格

是不是要把源文件（accdb）的查询字段的类型短文本换成数字？