GBKEE

¦^´_ 5# ui123
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim xFileAr, i As Integer, x As Integer, S As Integer
   
4.     Dim wB As Workbook
   
5.     With Application.FileDialog(msoFileDialogFilePicker)    '¿ï¸ê®Æ§¨ªºµøµ¡
   
6.         Do                                                  '°j°é: ¥i¦h¦¸¿ï¸ê®Æ§¨
   
7.             .Show                                           'Åã¥Ü:¸ê®Æ§¨ªºµøµ¡
   
8.             For i = 1 To .SelectedItems.Count               '¿ï¾ÜªºÀɮפ§­Ó¼Æ
   
9.                 xFileAr = xFileAr & "," & .SelectedItems(i) '¬ö¿ý¦r¦ê:¿ï¾ÜªºÀɮפ§§¹¾ã¸ô®|
   
10.             Next
    
11.         Loop Until .SelectedItems.Count = 0                 '¤@ª½¨ì¨S¦³¿ï¾ÜÀÉ®×
    
12.         If xFileAr = "" Then Exit Sub
    
13.      End With
    
14.      xFileAr = Split(Mid(xFileAr, 2), ",")                   '¬ö¿ý¿ï¾ÜªºÀɮצr¦êÂà´«¬°°}¦C
    
15.      Set wB = ThisWorkbook        '³oµ{¦¡½X©Ò¦bªº¬¡­¶Ã¯      '©Î¬O Workbooks("AAA.XLS") '¦h­Óexcel©ñ¦b¤@­Óexcel
    
16.      For i = 0 To UBound(xFileAr)
    
17.         With Workbooks.Open(xFileAr(i))  '­n¶}±Òªº¦h­Óexcel...
    
18.             x = wB.Sheets.Count                                 '³o¬¡­¶Ã¯ªº¤u§@ªí¼Æ¶q
    
19.             For S = 1 To .Sheets.Count
    
20.                 .Sheets(S).Copy wB.Sheets(x)           '¤u§@ªí½Æ»s,
    
21.                 ActiveWorkbook.ActiveSheet.Name = .Name & "_" & .Sheets(S).Name
    
22.             Next
    
23.             .Close False
    
24.         End With
    
25.      Next
    
26. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 7# ui123

1.     For S = .Sheets.Count To 1 Step -1         '¯Á¤Þ­È¥Ñ«á©¹«e
   
2.                 .Sheets(S).Copy wB.Sheets(1)  '½Æ»s¤u§@ªí,¦b³o¬¡­¶Ã¯ªº²Ä1­Ó¤u§@ªí¤§«e
   
3.                 ActiveWorkbook.ActiveSheet.Name = .Name & "_" & .Sheets(S).Name
   
4.             Next  

½Æ»s¥N½X