VBA怎麼把一个文件夹裏面的所有excel文件复制到一个总文件夹裏面

如题，我文件夹裏面有名字为1.xls,2.xls.....个数不固定,这些excel数据的位置都是固定的（A1：D10），然後有一个总表all.xls,我打开all.xls,文件夹裏面的所有数据汇总到all.xls裏面，由A1一直往下，不覆盖，例如我有三个文件夹，那all.xls裏面A1:D30裏面就有数据

Sub copyall()
For i = 1 To 5 '把这个数字改成你的文件总数
    Set excel_Book = Workbooks.Open("地址" & i & ".xls") '地址写作"E:\xxx\xxx\"，把数字空出来，保留英文双引号。如果是xlsx请在此处   ↑  后缀上更改
    Set excel_Sheet = excel_Book.Worksheets("Sheet1")
    excel_Sheet.Range("A1:D10").Copy
    ThisWorkbook.Worksheets("Sheet1").Range("A" & 1 + (i - 1) * 10).PasteSpecial
    excel_Book.Close False
Next
Set excel_Sheet = Nothing
Set excel_Book = Nothing
End Sub

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/m78qpfp7pv27q777mm.html