VBA查询作制作

顺顺协

请求大神指点，只要输入多个工号，后面的信息只要数据源《明细》里有的全部自动出来，谢谢！                                                                                                                                                                                       

fankairong

这种情况建议使用SQL从查箱有中取数即可。

1. Sub 从查箱表复制数据()
   
2. Dim conn As New ADODB.Connection
   
3. conn.Open "provider=Microsoft.Ace.OLEDB.12.0;Extended Properties='Excel 12.0';Data Source=" & ThisWorkbook.FullName
   
4. Sql = "select * from [查箱$K:Y] where 工号='" & Range("F1") & "'"
   
5. Worksheets("明细").Range("A10").CopyFromRecordset conn.Execute(Sql)
   
6. End Sub

复制代码

顺顺协

楼上的，可以给个表吗，真的一点不懂这个