如何把N个EXCEL的sheet1 分别复制进总表的sheet1\sheet2\至sheetN中？

fifakiller

如题，附图

一个文件夹下有  几个分表    想做一个总表，不打开其它分表的情况下，打开总表就自动复制每个分表的sheet1，分别到总表的sheet1  sheet2 sheet3这样子。

更进阶一点的问题是对分表的名字是否有要求,能不能无视分表的名字?
比如：分表1名字叫" 01阿里巴巴与四十大盗”
           分表2名字叫“02致爱丽丝”
           分表3名字叫“03安徒生”
只读取分表前2位数字来判断顺序，将他按顺序放到总表的sheet1 ~ sheetN 里？

yayahzmeng

1. Private Sub Workbook_Open()
   
2. t = Timer
   
3. Application.ScreenUpdating = False
   
4.     ipath = ThisWorkbook.Path & ""
   
5.     ifile = Dir(ipath & "*.xls*")
   
6.     IName = ThisWorkbook.Name
   
7.     Do While ifile <> "" And ifile <> IName
   
8.         Set wb = Workbooks.Open(ipath & ifile)
   
9.         With CreateObject("vbscript.regexp")
   
10.             .Pattern = "^\d+"
    
11.             If .test(ifile) Then i = Val(.Execute(ifile)(0))
    
12.         End With
    
13.         wb.Sheets(1).Cells.Copy
    
14.         ThisWorkbook.Sheets(i).[a1].PasteSpecial
    
15.         Application.DisplayAlerts = False
    
16.         wb.Close
    
17.         Application.DisplayAlerts = True
    
18.         ifile = Dir
    
19.         Z = Z + 1
    
20.     Loop
    
21. Application.ScreenUpdating = True
    
22. MsgBox "已导入 " & Z & " 个文件，耗时" & Format(Timer - t, "0.000") & "秒"
    
23. End Sub

复制代码

源文件命名模式：01***.xls*