Microsoft Excel에서 배열 VBA를 사용하여 메일 시트

Posted on: 2020年11月12日 2020年11月12日
Tags: mail-send-and-receive-in-vba

SheetsArray로 새 통합 문서를 만듭니다.
우편으로 보내기 전에 통합 문서를 저장하십시오.
전송 후 하드 디스크에서 파일을 삭제하십시오.

Sub Mail_SheetsArray()

Dim strDate As String

Sheets(Array("Sheet1", "Sheet3")).Copy

strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")

ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name _

& " " & strDate & ".xls"

ActiveWorkbook.SendMail "[email protected]", _

"This is the Subject line"

ActiveWorkbook.ChangeFileAccess xlReadOnly

Kill ActiveWorkbook.FullName

ActiveWorkbook.Close False

End Sub