如何将同一个文件夹内的所有表格内容复制到另外一个汇总表内？

hmc530

如何将同一个文件夹内的所有表格内容复制到另外一个汇总表内？

如何一键将该文件夹内所有表格的A2：I区域内的内容复制到另外的一个

（汇总表）表格内！

复制过来的是文本格式！

LMY123

参考：

1. 'ADO法速度快，且可以自动获取所需字段位置，汇总2000多个excel文件估计用不了等待很长时间，请参考：
   
2. 'http://club.excelhome.net/thread-1281287-1-1.html
   
3. Sub ADO法()
   
4.     Dim cnn As Object, rs As Object, rst As Object, SQL$, Mypath$, MyFile$, sh$
   
5.     Application.ScreenUpdating = False
   
6.     Mypath = ThisWorkbook.Path & ""
   
7.     MyFile = Dir(Mypath & "*.xlsx")
   
8.     ActiveSheet.UsedRange.Offset(1).ClearContents
   
9.     Do While MyFile <> ""
   
10.         Set cnn = CreateObject("adodb.connection")
    
11.         cnn.Open "Provider=Microsoft.Ace.OLEDB.12.0;Extended Properties=excel 12.0;Data Source=" & Mypath & MyFile
    
12.         Set rs = cnn.OpenSchema(20)
    
13.         Do Until rs.EOF
    
14.             If rs.Fields("TABLE_TYPE") = "TABLE" Then
    
15.                 sh = Replace(rs("TABLE_NAME").Value, "'", "")
    
16.                 If Right(sh, 1) = "$" Then
    
17.                     SQL = "select * from [" & sh & "] where 1=2"
    
18.                     Set rst = cnn.Execute(SQL)
    
19.                     If rst.Fields(0).Name <> "F1" Then
    
20.                         SQL = "select 姓名,成绩 from [" & sh & "]"
    
21.                         Range("A" & Rows.Count).End(xlUp).Offset(1).CopyFromRecordset cnn.Execute(SQL)
    
22.                         Exit Do
    
23.                     End If
    
24.                 End If
    
25.             End If
    
26.             rs.MoveNext
    
27.         Loop
    
28.         MyFile = Dir()
    
29.     Loop
    
30.     rs.Close
    
31.     rst.Close
    
32.     cnn.Close
    
33.     Set rs = Nothing
    
34.     Set rst = Nothing
    
35.     Set cnn = Nothing
    
36.     Application.ScreenUpdating = True
    
37. End Sub

复制代码

opiona

http://club.excelhome.net/thread-1409141-1-1.html

lsc900707

建议楼主上传附件以便解决问题。