통합문서 닫기

저장하지 않고 닫기

Sub CloseWorkbookExample()

    Dim wb As Workbook
    
    ' 현재 활성화된 워크북 가져오기
    Set wb = ActiveWorkbook
    
    ' 워크북 닫기 (저장하지 않고 닫기)
    wb.Close SaveChanges:=False
    
    ' 메시지 박스로 워크북이 닫혔음을 알림
    MsgBox "워크북이 닫혔습니다."
    
End Sub

변경 사항 저장하고 닫기

Sub CloseWorkbookWithSaveExample()

    Dim wb As Workbook
    
    ' 현재 활성화된 워크북 가져오기
    Set wb = ActiveWorkbook
    
    ' 워크북 닫기 (변경 사항 저장 후 닫기)
    wb.Close SaveChanges:=True
    
    ' 메시지 박스로 워크북이 닫혔음을 알림
    MsgBox "워크북이 저장되고 닫혔습니다."
    
End Sub

지정한 파일이름으로 저장하고 닫기

Sub CloseWorkbookWithSaveAs()

    ' 현재 워크북을 Filename에 지정한 이름으로 저장하고 파일을 닫습니다.
    ThisWorkbook.Close SaveChanges:=True, Filename:="my_new_workbook.xlsm"

End Sub

열려 있는 통합 문서 모두 닫기

다음 코드는 저장하는 않고 종료하는 예제입니다.

Sub CloseAllWorkbooks()
    Dim wb As Workbook
    For Each wb In Application.Workbooks
        wb.Close SaveChanges:=False
    Next wb
End Sub

저장하고 닫으려면 다음과 같이 변경합니다.

Sub CloseAllWorkbooks()
    Dim wb As Workbook
    For Each wb In Application.Workbooks
        wb.Close SaveChanges:=True
    Next wb
End Sub

현재 통합문서 제외하고 모두 닫기

Sub CloseAllWorkbooksExceptCurrent()
    Dim wb As Workbook
    For Each wb In Application.Workbooks
        If Not wb Is ThisWorkbook Then
            wb.Close SaveChanges:=False
        Else
        End If
    Next wb
End Sub