[Excel VBA] 특정시트를 새문서로 만들어 저장후 메일로 발송하기
Sub ADD_Selected_Sheets() '보고용 문서 만들기 Dim ws As Worksheet Dim cs As Worksheet Dim arrSht '선택된 각 시트를 넣을 배열형 변수 arrSht = Array("업무일지") '시트를 배열에 넣음 ' 시트수가 여러개 일경우 콤마(,)로 구분한다. ActiveWorkbook.Sheets(arrSht).Copy '배열의 시트를 새로운 워크북에 넣음 Set cs = ActiveSheet '수식의 값만을 취한다. For Each ws In ActiveWorkbook.Worksheets ws.Activate With Cells .Copy .PasteSpecial Paste:=xlValues, operation:=xlNone, skipblanks:=Fa..