请教下我想用SQL查询除了查询表之外的所有的工作表，这个VBA代码要怎么修改？

shiruiqiang

数组+字典来一个

洋务德雷

建议还是把所有的工作表的内容重新设计一下数据表的格式，设置成一维表，而且三个年级的表都放到一个工作表内，再进行查询就比较好了。如果调整好数据表，对以后的工作会有帮助。而不是这样一味地想用vba来实现。

sdytsxd991122

字典加单元格区域

cai2532

谢谢，已经送花表示心意。

cai2532

sdytsxd991122 发表于 2022-12-28 13:32
字典加单元格区域

谢谢，已经送花表示心意。

cai2532

洋务德雷 发表于 2022-12-27 19:43
建议还是把所有的工作表的内容重新设计一下数据表的格式，设置成一维表，而且三个年级的表都放到一个工作表 ...

好的，谢谢。

cai2532

shiruiqiang 发表于 2022-12-27 19:09
数组+字典来一个

谢谢，已经送花表示心意。

cui26896

1. Sub cop()
   
2. Dim cnn As Object, SQL$, SQ$, Rs As Object, ar
   
3. Dim i&, sht As Worksheet, d As Object
   
4. Set cnn = CreateObject("ADODB.Connection")
   
5. Set d = CreateObject("Scripting.Dictionary")
   
6. cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes;IMEX=1';Data Source=" & ThisWorkbook.FullName
   
7. For Each sht In Worksheets
   
8.   If sht.Name <> "数据查询" Then
   
9.     SQL = "select * from [" & sht.Name & "$b3:l] where 姓名 is not null"
   
10.     d(SQL) = ""
    
11.   End If
    
12. Next
    
13.   If d.Count Then
    
14.     SQL = Join(d.Keys, " UNION ALL ")
    
15.     SQ = "select 姓名 from [数据查询$b3:l] where 姓名 is not null"
    
16.     SQ = "select b.* from (" & SQ & ")a left join (" & SQL & ")b on b.姓名=a.姓名"
    
17.     Set Rs = cnn.Execute(SQ)
    
18.   End If
    
19.     With Worksheets("数据查询")
    
20.       .Activate
    
21.       .Range("c4:l15").ClearContents
    
22.       .Range("b4").CopyFromRecordset Rs
    
23.     End With
    
24.   
    
25. cnn.Close
    
26. Set cnn = Nothing
    
27. Set Rs = Nothing
    
28. End Sub

复制代码

cai2532

cui26896 发表于 2022-12-28 21:10

感谢，已送花表示心意。