GBKEE

¦^´_ 1# character
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Dim Show_File As Object
   
3. Sub ¥[¤JÀÉ®×()
   
4.     Dim I As Integer
   
5.     Set Show_File = Application.FileDialog(msoFileDialogOpen)
   
6.     With Show_File
   
7.          .InitialFileName = "D:\*.xls"  '«ü©w xlsÀÉ
   
8.          .AllowMultiSelect = True
   
9.          .Show
   
10.          If .SelectedItems.Count > 0 Then
    
11.             For I = 1 To .SelectedItems.Count
    
12.              Cells(I, 2) = .SelectedItems(I)
    
13.          Next
    
14.          End If
    
15.     End With
    
16. End Sub
    
17. Sub °õ¦æ()
    
18.     Dim I As Integer, Sh As Worksheet, Rng As Range
    
19.     Set Sh = Workbooks("¶K¤W.xlsm").Sheets(1)
    
20.     With Show_File
    
21.         If .SelectedItems.Count > 0 Then
    
22.             For I = 1 To .SelectedItems.Count
    
23.                 Set Rng = Sh.Cells(Sh.Rows.Count, "A").End(xlUp).Offset(1)  'AÄæ³Ì«á¦³¸ê®Æ¦Cªº¤U¤@¦C
    
24.                 With Workbooks.Open(.SelectedItems(I))
    
25.                     .Sheets(1).Range("A1:C6").Copy Rng
    
26.                     .Close 0
    
27.                 End With
    
28.             Next
    
29.          End If
    
30.     End With
    
31.    Sh.Parent.Save   ' ¶K¤W.xlsm  ¦sÀÉ
    
32. End Sub

½Æ»s¥N½X