[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:=False, Transpose:=False
        End With
        Application.Goto reference:=[A1]
        Next ws
        With Application
            .CutCopyMode = False
            .ScreenUpdating = True
        End With
    cs.Activate                                                     '수식의 값취하기 끝
    
'새 문서에 저장한다.
    ActiveWorkbook.SaveAs Filename:="D:\test\업무일지\" & "업무일지-" & Format(Date, "yyyy.mm.dd") & ".xlsx"   '윗줄과 한줄 연속된 문장
    ActiveWorkbook.Close                  '새 문서 작성을 위해 열었던 문서를 닫는다.
   
   
    Dim ol As New Outlook.Application
    Dim mail As MailItem
    Set mail = ol.CreateItem(olMailItem)
    mail.Body = Format(Date, "yyyy.mm.dd") & " 업무일지입니다." & Chr(13) & Chr(13) & "감사합니다." & Chr(13) & Chr(13)   '윗줄과 한줄 연속된 문장
    mail.To = "test@test.com"
    mail.Subject = Format(Date, "yyyy.mm.dd") & " 업무일지입니다."
    mail.Attachments.Add "D:\test\업무일지\" & "업무일지-" & Format(Date, "yyyy.mm.dd") & ".xlsx"              '윗줄과 한줄 연속된 문장

    mail.Send
   
   
End Sub