GBKEE

¦^´_ 1# tomking
¦X¦b¤@°_,  Åܾã­ÓLIST
¦X¦b­þ¸Ì­n»¡²M·¡

GBKEE

¦^´_ 5# tomking
»Ý¨D.xls,OS124.xls,OS123.xls µ¥³£¶}±Òªºª¬ºA¤Uªºµ{¦¡½X

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim MyBook As Workbook, B As Workbook, R As Range, i As Long
   
4.     Set MyBook = Workbooks("»Ý¨D.XLS")
   
5.     For Each B In Workbooks   '
   
6.         If B.Name <> MyBook.Name Then
   
7.             With B.Sheets(1)
   
8.                 For i = 4 To .Cells(Rows.Count, "A").End(xlUp).Row
   
9.                     Set R = MyBook.Sheets("LIST").Cells(Rows.Count, "A").End(xlUp).Offset(1)
   
10.                     R.Resize(, 4) = Array(.[C1], .[E1], .[I2], .[A2])
    
11.                     R.Offset(, 4).Resize(, 11) = .Range(.Cells(i, "A"), .Cells(i, "K")).Value
    
12.                 Next
    
13.             End With
    
14.         End If
    
15.     Next
    
16. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 7# tomking
"§Y¥i¨úDATA       ¬O§_¦³¾÷·|,¥ý±N¨Ó·½DATA ¥ýÂন.csv,   ¦A¨údata. " ¬Ý¤£À´°Ú
Àɮפ@©w­n¶}±Ò ¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim R As Range, i As Long, ii As Integer
   
4.     With Application.FileDialog(msoFileDialogOpen)  'ÀÉ®×¹ï¸Ü¤è¶ô°õ¦æ­ÓÅé
   
5.         .AllowMultiSelect = True                    '¥i½Æ¿ïÀÉ®×
   
6.         .InitialFileName = "D:\TEST"                '¥i­×§ï¬°§A­n¶}±Òªº¥Ø¿ý
   
7.         .Show                                       'Åã¥ÜÀÉ®×¹ï¸Ü¤è¶ô
   
8.         If .SelectedItems.Count >= 1 Then           '¿ï¾ÜªºÀÉ®×¼Æ
   
9.             For i = 1 To .SelectedItems.Count       '¨Ì§Ç¦b¿ï¾ÜªºÀÉ®×
   
10.                 With Workbooks.Open(.SelectedItems(i))  '¶}±ÒÀÉ®×
    
11.                     With .Sheets(1)
    
12.                         For ii = 4 To .Cells(Rows.Count, "A").End(xlUp).Row
    
13.                             Set R = Workbooks("»Ý¨D.XLS").Sheets("LIST").Cells(Rows.Count, "A").End(xlUp).Offset(1)
    
14.                             R.Resize(, 4) = Array(.[C1], .[E1], .[I2], .[A2])
    
15.                             R.Offset(, 4).Resize(, 11) = .Range(.Cells(ii, "A"), .Cells(ii, "K")).Value
    
16.                         Next
    
17.                     End With
    
18.                     .Close False   'Ãö³¬Àɮפ£¦sÀÉ
    
19.                 End With
    
20.             Next
    
21.         End If
    
22.     End With
    
23. End Sub

½Æ»s¥N½X