如何将多个excel表格的内容汇总到一个表格中

无助的人0408

各位大虾，你们好。现有问题请教，就是如何将工作薄1和工作薄2中的a2\a6\c6的信息汇中到新表aa中的a2\b2\c2中。详见附件。非常感谢

zhaogang1960

ADO联合查询，请测试：

1. Sub 宏1()
   
2.     Dim cnn As Object, SQL$(1 To 2), Mypath$, MyFile$, n%
   
3.     Set cnn = CreateObject("adodb.connection")
   
4.     Mypath = ThisWorkbook.Path & ""
   
5.     MyFile = Dir(Mypath & "*.xlsx")
   
6.     Do While MyFile <> ""
   
7.         n = n + 1
   
8.         If n = 1 Then
   
9.             cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Extended Properties='Excel 12.0;hdr=no';Data Source=" & Mypath & MyFile
   
10.             SQL(1) = "select f1 from [Sheet1$a2:a2]"
    
11.             SQL(2) = "select f1,f3 from [Sheet1$a6:c6]"
    
12.         Else
    
13.             SQL(1) = SQL(1) & " union all select f1 from [Excel 12.0;hdr=no;Database=" & Mypath & MyFile & "].[Sheet1$a2:a2]"
    
14.             SQL(2) = SQL(2) & " union all select f1,f3 from [Excel 12.0;hdr=no;Database=" & Mypath & MyFile & "].[Sheet1$a6:c6]"
    
15.         End If
    
16.         MyFile = Dir()
    
17.     Loop
    
18.     [a1].CurrentRegion.Offset(1).ClearContents
    
19.     [a2].CopyFromRecordset cnn.Execute(SQL(1))
    
20.     [b2].CopyFromRecordset cnn.Execute(SQL(2))
    
21.     cnn.Close
    
22.     Set cnn = Nothing
    
23. End Sub
    

复制代码

zhaogang1960

请看附件
例子.rar (28.23 KB, 下载次数: 73)

2013-4-9 23:19 上传

点击文件名下载附件

无助的人0408

非常感谢你的支持，

LMY123

SQL(1) = "select f1 from [Sheet1$a2:a2]"