求助，跨工作簿汇总

zhaoyafei19

将记录表A001、记录表A002、记录表A003……很多个表里面的数据
汇总到汇总表中
用VBA或者公式完成
谢谢

zhaoyafei19

上传附件如下

zhaogang1960

ADO法请参考:

1. Sub 宏1()
   
2.     Dim cnn As Object, SQL$, MyPath$, MyFile$, m&, arr, brr(1 To 10000, 1 To 4)
   
3.     MyPath = ThisWorkbook.Path & ""
   
4.     MyFile = Dir(MyPath & "*.xlsx")
   
5.     Set cnn = CreateObject("adodb.connection")
   
6.     On Error Resume Next
   
7.     Do While MyFile <> ""
   
8.         m = m + 1
   
9.         If m = 1 Then
   
10.             cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='excel 12.0;hdr=no;imex=1';Data Source=" & MyPath & MyFile
    
11.             SQL = "select * from [Sheet1$A1:b9]"
    
12.         Else
    
13.             SQL = "select * from [Excel 12.0;hdr=no;imex=1;Database=" & MyPath & MyFile & ";].[Sheet1$A1:b9]"
    
14.         End If
    
15.         arr = cnn.Execute(SQL).GetRows
    
16.         brr(m, 1) = arr(1, 0)
    
17.         brr(m, 2) = arr(1, 2)
    
18.         brr(m, 3) = arr(1, 4)
    
19.         brr(m, 4) = arr(1, 8)
    
20.         MyFile = Dir()
    
21.     Loop
    
22.     [a1].CurrentRegion.Offset(1).ClearContents
    
23.     [a2].Resize(m, 4) = brr
    
24.     cnn.Close
    
25.     Set cnn = Nothing
    
26. End Sub
    

复制代码

zhaogang1960

请测试附件
数据测试.rar (38.21 KB, 下载次数: 20)

2014-4-21 15:28 上传

点击文件名下载附件

VBA万岁

zhaogang1960 发表于 2014-4-21 15:27
ADO法请参考:

每次赵老师的贴子（或回复）都受益匪浅。

zhaoyafei19

VBA万岁 发表于 2014-4-21 16:01
每次赵老师的贴子（或回复）都受益匪浅。

都是有点典型的，VBA我不懂

liuhouen

zhaogang1960 发表于 2014-4-21 15:27
ADO法请参考:

赵老师的代码堪称经典啊

LMY123

arr = cnn.Execute(SQL).GetRows