EXCEL VBA 파일 선택 대화 상자

Sub XXX()

    Dim arr()

    arr = Application.GetOpenFilename("  (*.xls;*.xlsx;*.csv),*.xls;*.xlsx;*.csv,Excel   (*.xls),*.xls,Excel2007   (*.xlsx),*.xlsx,CSV   (*.csv),*.csv", , " ", , True)

    For i = LBound(arr) To UBound(arr)

        Cells(i, 1).Value = arr(i)

    Next

End Sub

위의 예는 파일 다중 선택
다음은 MICROSOFT의 원문입니다.
Application.GetOpenFilename 메서드
표준 열기 대화상자를 표시하고 실제 파일을 열 필요가 없이 사용자 파일 이름을 가져옵니다.
문법
표현식.GetOpenFilename(FileFilter, FilterIndex, Title, ButtonText, MultiSelect)
표현식은 Application 객체를 나타내는 변수입니다.
매개 변수
이름
필수/옵션
데이터 유형
묘사
FileFilter
옵션
Variant
파일 필터링 기준을 지정하는 문자열
FilterIndex
옵션
Variant
기본 파일 필터링 기준의 색인 번호를 지정합니다. 값은 1에서 FileFilter로 지정된 필터링 기준 수입니다.이 매개 변수를 생략하거나 사용 가능한 필터링 조건 수보다 값이 크면 첫 번째 파일 필터링 조건을 사용합니다.
Title
옵션
Variant
대화 상자의 제목을 지정합니다.매개변수를 생략하면 제목은 열기입니다.
ButtonText
옵션
Variant
acintosh만 해당합니다.
MultiSelect
옵션
Variant
True인 경우 여러 파일 이름을 선택할 수 있습니다.False인 경우 파일 이름만 선택할 수 있습니다.기본값은 False입니다.
반환값 Variant
설명
FileFilter 매개 변수에서 전달되는 이 문자열은 파일 필터링 문자열 쌍과 뒤에 오는 MS-DOS 와일드카드 파일 필터링 사양명세로 구성되며 가운데는 쉼표로 구분됩니다.각 문자열은 파일 유형 드롭다운 목록 상자에 나열됩니다.예를 들어, 다음 문자열은 텍스트 파일(*.txt), *.txt, 매크로 파일 (*.xla), *.xla 를 로드하는 두 개의 파일 필터를 지정합니다.
단일 파일 필터 유형에 대해 여러 MS-DOS 와일드카드 표현식을 사용하려면 와일드카드 표현식을 세미콜론으로 분리해야 합니다.예를 들어, Visual Basic 파일(*.bas;*.txt), *.bas;*.txt와 같습니다.
FileFilter를 생략하면 이 매개변수는 기본적으로 모든 파일(*.*), *.*입니다.
이 방법은 선택한 파일 이름이나 사용자가 입력한 이름을 되돌려줍니다.되돌아오는 이름에는 경로 설명이 포함될 수 있습니다.MultiSelect가 True인 경우 반환 값은 선택한 파일 이름만 선택한 경우에도 선택한 모든 파일 이름을 포함하는 배열입니다.사용자가 대화 상자를 취소하면 이 값은 False입니다.
이 방법은 현재 드라이브나 폴더를 변경할 수 있습니다.