[VBA] 현재 엑셀 시트 CSV로 내보내기

현재 엑셀 시트를 CSV 파일로 내보내기하는 VBA 코드다.

Sub CurrentSheet_SaveAsCSV()
    Range("A1:A" & Cells(Rows.Count, "E").End(3).Row).Copy
    '// 복사할 범위 지정하여 복사
    With Application.FileDialog(msoFileDialogSaveAs)
        .FilterIndex = 15
        .InitialFileName = ActiveSheet.Name & " " & Format(Date + Time, "yyyy-mm-dd hhmmss") & ".csv"
        If .Show Then
            Application.DisplayAlerts = 0
            .Execute
            Application.DisplayAlerts = 1
        End If
    End With
    MsgBox "파일 복사 완료"
End Sub