엑셀 각 시트를 각각의 파일로 저장

엑셀의 각 시트를 전부 파일로 저장하는 VBA 코드입니다.

만약 특정한 시트만 저장하고 싶다면

sht.Visible = True 대신에

sht.Name = "Sheet1" 으로 특정한 시트명을 적어주면 됩니다.

Option Explicit
Sub Sheet_To_SaveFile()   
    Dim sht As Worksheet    '// 각 시트를 넣을 변수
    Dim FileName As String   '// 파일경로+날짜+이름 변수

    Application.ScreenUpdating = False  '// 화면 업데이트 정지
    With ActiveWorkbook
        For Each sht In Worksheets
            FileName = .Path & "\" & Date & " " & sht.Name & ".xlsx"
            If sht.Visible = True Then  '// 숨기지 않은 시트이면
                sht.Copy                     '// 시트를 복사
                With ActiveWorkbook
                    .SaveAs FileName:=FileName '// 새로운 이름으로 저장
                    .Close '// 저장한 파일 닫음
                End With
            End If
        Next sht
    End With
    MsgBox "파일 저장완료"
End Sub