[매크로] 시트별로 csv형식으로 저장하기

Sub saveSheet()

'

' saveSheet Macro

' save sheet

'

' 바로 가기 키: Ctrl+r

'

    Dim strPath As String                   '저장할 폴더의 경로를 넣을 변수

    

    

    With Application.FileDialog(msoFileDialogFolderPicker)  '폴더선택 창에서

        .Show                                             '폴더 선택창 띄우기

 

        If .SelectedItems.Count = 0 Then         '취소 선택 시

            Exit Sub                                       '매크로 중단

        Else

            strPath = .SelectedItems(1) & "\"   '폴더 경로를 변수에 넣음

        End If

    End With

    

       

    Application.CutCopyMode = False

    Sheets("sheet1").Select

    ActiveWorkbook.SaveAs strPath & "sheet1.csv", FileFormat:=xlCSV _

        , CreateBackup:=False

    Sheets("sheet2").Select

    ActiveWorkbook.SaveAs strPath & "sheet2.csv", FileFormat:=xlCSV _

        , CreateBackup:=False

    Sheets("sheet3").Select

    ActiveWorkbook.SaveAs strPath & "sheet3.csv", FileFormat:=xlCSV _

        , CreateBackup:=False

    Sheets("sheet4").Select

    ActiveWorkbook.SaveAs strPath & "sheet4.csv", FileFormat:=xlCSV _

        , CreateBackup:=False

    Sheets("sheet5").Select

    ActiveWorkbook.SaveAs strPath & "sheet5.csv", FileFormat:=xlCSV _

        , CreateBackup:=False

        

    MsgBox "파일 저장이 완료되었습니다."

    

End Sub