Sub 파일열고닫기()

    Dim 선택파일 As String
    Dim WB As Workbook
    
    선택파일 = Application.GetOpenFilename
        
    If 선택파일 = "False" Then Exit Sub
    
    Set WB = Workbooks.Open(Filename:=선택파일) 

        Application.Wait Now + TimeSerial(0, 0, 1)
    
    WB.Close SaveChanges:=False

End Sub