本人为VBA初学者，请大神帮忙。写一下代码，我学习一下

jiayy20181228

我希望将这个文件夹里面的每个工作簿，从第二行开始的数据全部汇总到“汇总表”里面，请大神指导。

ykqrs

1. Sub qq()
   
2. Dim mypath$, myname$, wb As Workbook, ws As Worksheet, r%, c%, i%
   
3. Application.ScreenUpdating = False
   
4. Application.DisplayAlerts = False
   
5. Application.AskToUpdateLinks = False
   
6. ThisWorkbook.Sheets(1).[a1].CurrentRegion.Offset(1).ClearContents
   
7. mypath = ThisWorkbook.Path & ""
   
8. myname = Dir(mypath & "*.xls*")
   
9. Do While myname <> ""
   
10. If myname <> ThisWorkbook.Name Then
    
11. Set wb = GetObject(mypath & myname)
    
12. With wb
    
13. Set ws = .Sheets(1)
    
14. With ws
    
15. r = .Cells(Rows.Count, 1).End(xlUp).Row
    
16. c = .Cells(1, Columns.Count).End(1).Column
    
17. i = ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1
    
18. .Range(.Cells(2, 1), .Cells(r, c)).Copy ThisWorkbook.Sheets(1).Cells(i, 1)
    
19. End With
    
20. .Close False
    
21. End With
    
22. End If
    
23. myname = Dir
    
24. Loop
    
25. Application.ScreenUpdating = True
    
26. Application.DisplayAlerts = True
    
27. Application.AskToUpdateLinks = True
    
28. End Sub
    

复制代码

ykqrs

试试，点击按钮 test.rar (110.81 KB, 下载次数: 3)

2019-1-25 15:14 上传

点击文件名下载附件

jiayy20181228

ykqrs 发表于 2019-1-25 15:14
试试，点击按钮

谢谢，老师 我研究一下

jiayy20181228

ykqrs 发表于 2019-1-25 15:12

大神老师，劳烦您给翻译一下吧