GBKEE

¦^´_ 7# ¨Ø¥È
Private Sub CommandButton1_Click()
    With Application.FileDialog(msoFileDialogOpen)
        .InitialFileName = "D\¤å¥óÀÉ\ªþÄÝÀÉ®×"
        .AllowMultiSelect = True
        .Show
        For i = 1 To .SelectedItems.Count
            Cells(i, 1) = .SelectedItems(i)
            MsgBox .SelectedItems(i)
        Next
    End With
End Sub

GBKEE

¦^´_ 12# boblovejoyce
§YEXCEL¦b­þ¨à? ¹w³]¶}±Òªº¦ì¸m~ ¦PEXCEL¦ì¸m

1. Sub Ex()
   
2.     With ActiveWorkbook
   
3.         ChDrive .Path
   
4.         ChDir .Path
   
5.     End With
   
6. End Sub

½Æ»s¥N½X