[Excel VBA] 폴더열기

Private Sub CommandButton1_Click() // 버튼을 클릭하면 파일검색을 위한 검색창이 뜸
     fileToOpen = Application _
    .GetOpenFilename("Text Files (*.txt), *.txt")
    If fileToOpen <> False Then
    MsgBox "Open " & fileToOpen
    End If
End Sub