분류 전체보기45 [VBA 엑셀매크로] 시트 생성 .Copy .Count /시트이름변경 .Name /시트선택 .Select/시트삭제 .Delete Sub 매크로() ActiveSheet.Copy After:=Worksheets(Worksheets.Count) '원본시트 (2) 생김 Worksheets(Worksheets.Count).Name = "원하는시트이름" '원본시트 (2) 이름이 [원하는시트이름] 으로 변경 Sheets("원하는시트이름").Select '[원하는시트이름] 시트 선택하기 Sheets("원하는시트이름").Delete '[원하는시트이름] 시트 삭제하기 End Sub 2023. 6. 26. [VBA 엑셀매크로] 파일열기 .open /닫기 .close /삭제 Kill Sub 매크로() '변수선언 Dim Dir As String Filename = ActiveWorkbook.FullName '현재 파일 이름 Dir = ActiveWorkbook.Path '현재파일 경로 '현재파일과 같은 폴더에 있는 다른 파일 열기 Workbooks.Open Filename:=Dir & "\" & "파일이름" & ".csv" '현재 사용중인 엑셀 닫기 ActiveWorkbook.Close '현재파일과 같은 폴더에 있는 다른 파일 삭제하기 Kill Dir & "\" & "파일이름" & ".csv" End Sub 2023. 6. 26. [VBA 엑셀매크로] SaveAs 다른 이름으로 저장하기(오늘 날짜 파일명에 자동 넣기) Sub 매크로() '변수선언 Dim Dir As String Filename = ActiveWorkbook.FullName '현재 파일 이름 Dir = ActiveWorkbook.Path '현재파일 경로 savedate = Format(Date, "yy-mm-dd") '오늘날짜 형식 '실행코드 ActiveWorkbook.SaveAs Filename:=Dir & "\" & savedate & "_파일이름" & ".csv", _ FileFormat:=xlCSVUTF8, CreateBackup:=False End Sub 실행결과 2023. 6. 26. [VBA 엑셀매크로] 매크로 돌리는 중 경고 메세지창 안나오게 하기 Sub 매크로테스트() Application.DisplayAlerts = False '확인메세지 안뜨게설정 '원하는 코드 작성 Application.DisplayAlerts = True '확인메세지 뜨게설정 End Sub 2023. 6. 21. 이전 1 2 3 4 ··· 12 다음
