ikboy

1. Sub zz()
   
2. Dim mFile As String, ¨Ó·½ÀÉ As Workbook, ¥ØªºÀÉ As Workbook, Sh As Worksheet, xSh As Worksheet, i As String
   
3. Dim MyPath
   
4. With Application.FileDialog(msoFileDialogFolderPicker)
   
5.     .InitialFileName = "D:\Ī¦Ë¦@¥Î\­ÜÀx¦@¥Î"
   
6.     .Title = "¤é¯Z²z³f´«ºâªí"
   
7.     .Show
   
8.     If .SelectedItems.Count Then MyPath = .SelectedItems(1) Else Exit Sub
   
9. End With
   
10. mFile = Dir(MyPath & "\" & "OK*.XLSX") '¶}±Ò«ü©w¦WºÙ¶}ÀYªºÀÉ®×
    
11. Do While mFile <> ""
    
12. Workbooks.Open Filename:=MyPath & "\" & mFile
    
13. mFile = Dir()
    
14. Loop
    
15. Set ¨Ó·½ÀÉ = Workbooks("²z³f³æ_All.xlsx")
    
16. Set Sh = ¨Ó·½ÀÉ.Sheets("¤ñµá¦h.OK")
    
17.     Set ¥ØªºÀÉ = Workbooks("OK.xlsx")
    
18.     Set xSh = ¥ØªºÀÉ.Sheets(i)
    
19. End Sub

½Æ»s¥N½X