同一文件夹下所有工作簿指定工作表指定区域汇总

bazhongzsx · 发表于 2015-1-23 11:29

请教老师们，上百个单位的数据汇总，帮助修改宏命名，本人万分感谢！！将当前文件夹中所有工作簿中“1月工资表”中A5:AJ5这行的内容，汇总到“汇总表”中。

bazhongzsx · 发表于 2015-1-23 11:33

这是内容，请老师们帮忙修改一下，本人万分感谢！

LangQueS · 发表于 2015-1-23 13:29

建议先汇合多个工作簿中的数据到同一个工作表后再做处理……

关于使用Excel管理数据的基本方法请参考：

★Excel数据管理的一般规律★ http://club.excelhome.net/thread-287461-1-1.html

feiren228 · 发表于 2015-1-23 16:17

Sub ado() 'by feiren228
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim cnn As Object, rs As Object, sql$, mypath$, myfile$
Set cnn = CreateObject("Adodb.Connection")
Set rs = CreateObject("adodb.recordset")
If Application.Version * 1 <= 11 Then
cnn.Open "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties='Excel 8.0;imex=1;hdr=no';Data Source=" & ThisWorkbook.FullName
Else
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;imex=1;hdr=no';Data Source=" & ThisWorkbook.FullName
End If
mypath = ThisWorkbook.Path & ""
myfile = Dir(mypath & "*.xls*")
Range("a5:ai65536").ClearContents
Do While myfile <> ""
If myfile <> ThisWorkbook.Name Then
sql = "select * from [Excel 8.0;imex=1;hdr=no;Database=" & mypath & myfile & "].[1月工资表$A5:AI5]"
Set rs = cnn.Execute(sql)
Range("a65536").End(3).Offset(1).CopyFromRecordset rs
End If
myfile = Dir
Loop
rs.Close
Set rs = Nothing
Set cnn = Nothing
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

复制代码

请测试》》》》》》》》

feiren228 · 发表于 2015-1-23 16:27

附件》》》》》》》》》

2015年1月汇总.rar (81.18 KB, 下载次数: 451)

yangxuilin · 发表于 2017-8-26 08:41

老师我是个新手，看了方法，感觉你们太了不起了，节约了很多的工作时间，我想问一下，如果汇总的表中有多个表，但是要汇总指定的工作表，该怎么修改代码呢，如果能解决万分的感谢！！！

LMY123 · 发表于 2018-7-13 12:31

ado合并同夹多薄指定表

		自动登录	找回密码
密码			免费注册

[求助] 同一文件夹下所有工作簿指定工作表指定区域汇总