[엑셀/매크로] 현재 활성 시트를 CSV로 저장하기

- 입맛대로 맞춰서 사용하는 매크로 코드

- 현재 활성화된 시트의 내용을 CSV로 저장하는 매크로

- Alt + F11 로 개발작업창 띄우기

▷ 프로젝트 창 오른쪽 버튼 → 삽입 → 모듈

▷ 해당 모듈에 아래 코드 추가

▷▷ 저장 경로는 바꿀 것(드라이브 루트는 쓰기 권한이 없으니 제외). 파일 이름은 현재 시간을 기준으로 작성됨

Sub SAVE_CSV()
	Dim FName As String
	Dim DT As Date

	DT = Now
	YYYY = Year(DT)
	MON = Right("00" & Month(DT), 2)
	DD = Day(DT)
	HH = Hour(DT)
	MM = Minute(DT)
	SS = Second(DT)

	Application.CutCopyMode = False
	Application.DisplayAlerts = False
	FName = "C:\Windows\" & YYYY & MON & DD & "_" & HH & MM & SS & ".csv"
	ActiveWorkBook.SaveAs fileName:=FName, FileFormat:=xlCSV, CreateBackup:=False
End Sub

---

업데이트) 2023.06.22