GBKEE

¦^´_ 3# walisalen

1. Sub Ex()
   
2.     Dim MyFolder As String, r As Integer, Myfile As String
   
3.     With Application.FileDialog(msoFileDialogFolderPicker)
   
4.         .InitialFileName = "D:\"                '«ü©w¶}±Ò®Éªº¥Ø¿ý
   
5.         .AllowMultiSelect = False               '³æ¿ï
   
6.         .Show
   
7.         If .SelectedItems.Count > 0 Then        '¦³¿ï¨ú
   
8.             MyFolder = .SelectedItems(1) & "\"  '¥Ø¿ý¸ê®Æ§¨
   
9.         Else
   
10.             Exit Sub
    
11.         End If
    
12.     End With
    
13.     Columns("A:B").Clear
    
14.     Myfile = Dir(MyFolder & "*.xls")                 '¶Ç¦^ XLS ÀÉ®×
    
15.     r = 1
    
16.     Do While Myfile <> ""
    
17.         Sheets("sheet1").Cells(r, 1) = MyFolder & Myfile
    
18.         ActiveSheet.Hyperlinks.Add Anchor:=Cells(r, 2), Address:=MyFolder & Myfile, TextToDisplay:=Myfile
    
19.         r = r + 1
    
20.         Myfile = Dir                                   '¨ú±o¤U¤@­ÓÀɦW
    
21.     Loop
    
22. End Sub

½Æ»s¥N½X