Microsoft Excel에서 VBA를 사용하여 A1 셀 주소로 모든 워크 시트를 메일
이 매크로는 각 시트를 한 사람에게 보냅니다.
-
시트로 새 통합 문서를 만듭니다.
우편으로 보내기 전에 통합 문서를 저장하십시오. 파일을 보낸 후에는 하드 디스크에서 파일을 삭제하십시오.
Sub Mail_every_Worksheet()
Dim strDate As String
Dim sh As Worksheet
Application.ScreenUpdating = False
For Each sh In ThisWorkbook.Worksheets
If sh.Range("a1").Value Like "@" Then
sh.Copy
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name _
& " " & strDate & ".xls"
ActiveWorkbook.SendMail ActiveSheet.Range("a1").Value, _
"This is the Subject line"
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ActiveWorkbook.Close False
End If
Next sh
Application.ScreenUpdating = True
End Sub