Αυτή η μακροεντολή θα στείλει κάθε φύλλο σε ένα άτομο.
- Δημιουργήστε ένα νέο βιβλίο εργασίας με το Φύλλο.
- Αποθηκεύστε το βιβλίο εργασίας πριν το στείλετε
- Διαγράψτε το αρχείο από τον σκληρό σας δίσκο μετά την αποστολή του.
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 "*@*" Στη συνέχεια 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