Sub 파일열고닫기()

    Dim 경로 As String
    Dim 파일 As String
    Dim WB As Workbook
    
    경로 = "C:\예제\Part 03\Chapter 09\"
    파일 = "파일.xlsx"
    
    Set WB = Workbooks.Open(Filename:=경로 & 파일)
    
        Application.Wait Now + TimeSerial(0, 0, 1)
    
    WB.Close SaveChanges:=False

End Sub