엑셀파일 열기 GetOpenFilename

 

 

 

 

 

Sub 파일선택()
 Dim 선택파일 As Variant
 Dim 파일형식 As String
 
 파일형식 = "엑셀 파일 (*.xls*), *.xls*"
 
 선택파일 = Application.GetOpenFilename(FileFilter:=파일형식, Title:="작업 파일 선택")
 
 If 선택파일 <> False Then
 
  Workbooks.Open Filename:=선택파일
  
 Else
 
  MsgBox "파일을 선택하지 않았습니다."
  
 End If
 
End Sub