GBKEE

¦^´_ 1# roy1221

1. Option Explicit
   
2. Sub Test()
   
3.     Dim i As Integer
   
4.     Columns("A:C").ClearContents
   
5.     With Application.FileDialog(msoFileDialogFilePicker)
   
6.         .InitialFileName = "C:\Users\¨Ï¥ÎªÌ\Desktop\"           '«ü©wªì©l¸ô®|
   
7.         .AllowMultiSelect = True                                '¶}±Ò½Æ¿ï¥\¯à
   
8.         .Show
   
9.         For i = 1 To .SelectedItems.Count
   
10.             Cells(i, 1) = CreateObject("Scripting.FileSystemObject").GetParentFolderName(.SelectedItems(i)) & "\"          'Àɮ׸ô®|(§t¤é¤å)
    
11.             Cells(i, 2) = CreateObject("Scripting.FileSystemObject").GetFileName(.SelectedItems(i))
    
12.             Cells(i, 3) = CreateObject(.SelectedItems(i)).Sheets("Sheet1").Range("A15").Value                         '
    
13.             CreateObject(.SelectedItems(i)).Close        '** Ãö³¬ÀÉ®×
    
14.             'MsgBox CreateObject("Scripting.FileSystemObject").GetFileName(.SelectedItems(i))                        'ÀɮצWºÙ
    
15.             'MsgBox CreateObject("Scripting.FileSystemObject").GetParentFolderName(.SelectedItems(i)) & "\"          'Àɮ׸ô®|    '(¦pªG¬O¥²»Ýªº¡A§A¥i¥H¦Û¤v¸É³Ì«áªº¡u\¡v)
    
16.         Next
    
17.     End With
    
18. End Sub

½Æ»s¥N½X