Excel 2016 VBA에서 GetOpenFilename 메서드를 사용하는 방법

GetOpenFilename 메서드는 아래의 선택적 인수를 사용합니다.

GetOpenFilename 예제

fileFilter 인수는 대화 상자의 파일 형식 드롭다운 목록에 표시되는 항목을 결정합니다. 이 인수는 파일 필터 문자열 쌍과 와일드카드 파일 필터 사양으로 구성되며 각 부분과 쌍을 쉼표로 구분합니다. 생략하면 이 인수의 기본값은 다음과 같습니다.

모든 파일(*.*), *.*

이 문자열은 쉼표로 구분된 두 부분으로 구성됩니다.

모든 파일(*.*)

그리고

*.*

이 문자열의 첫 번째 부분은 파일 형식 드롭다운 목록에 표시되는 텍스트입니다. 두 번째 부분은 대화 상자에 표시되는 파일을 결정합니다. 예를 들어 *.*는 모든 파일을 의미 합니다.

다음 예제의 코드는 사용자에게 파일 이름을 묻는 대화 상자를 엽니다. 이 절차는 5개의 파일 필터를 정의합니다. VBA 줄 연속 시퀀스는 Filter 변수를 설정하는 데 사용됩니다. 그렇게 하면 이 다소 복잡한 주장을 단순화하는 데 도움이 됩니다.

하위 GetImportFileName()
  문자열로 희미한 Finfo
  Dim FilterIndex As Long
  문자열로 희미한 제목
  Dim FileName As Variant
' 파일 필터 목록 설정
  FInfo = "텍스트 파일(*.txt),*.txt," & _
      "로터스 파일(*.prn),*.prn," & _
      "쉼표로 구분된 파일(*.csv),*.csv," & _
      "ASCII 파일(*.asc),*.asc," & _
      "모든 파일(*.*),*.*"
' 기본적으로 *.* 표시
  필터 인덱스 = 5
' 대화 상자 캡션 설정
  제목 = "가져올 파일 선택"
' 파일명 가져오기
  파일 이름 = Application.GetOpenFilename(FInfo, _
    필터 인덱스, 제목)
' 대화 상자에서 반환 정보 처리
  FileName = False이면
    MsgBox "선택된 파일이 없습니다."
  또 다른
    MsgBox "당신은 " & FileName을 선택했습니다
  종료
엔드 서브

통합 문서.Open FileName