시트별로 파일 저장

시트명으로 파일을 저장하는 매크로.

뭔가 아쉽지만 일단 업로드.

Option Explicit
 
Sub mkFile()
 
    Dim strPath As String
    Dim strFile As String
    Dim i As Integer
    
    '저장경로를 현재 엑셀파일과 동일경로로 설정
    strPath = ThisWorkbook.Path & "\"
    
    '시트1부터 시트 개수만큼 파일로 저장
    For i = 1 To Sheets.Count
        
        strFile = Sheets(i).Name & ".xlsx"  '시트명을 파일명으로 설정
        Sheets(i).Copy  '시트 복사
        
        With ActiveWorkbook
            .SaveAs Filename:=strPath & strFile   '현재 엑셀파일경로에 시트명으로 파일 저장
            .Close    '저장 후 닫기(시트별로 계속 저장하기 위해)
        End With
        
    Next i
    
End Sub

Book1.xlsm