Senden Sie jedes Arbeitsblatt mit der Adresse in Zelle A1 mit VBA in Microsoft Excel

Anonim

Dieses Makro sendet jedes Blatt an eine Person.

  • Erstellen Sie eine neue Arbeitsmappe mit dem Blatt.
  • Speichern Sie die Arbeitsmappe, bevor Sie sie versenden
  • Löschen Sie die Datei nach dem Senden von Ihrer Festplatte.
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 "Teil von " & ThisWorkbook.Name _ & " " & strDate & ".xls" ActiveWorkbook.SendMail ActiveSheet.Range("a1").Value, _ "Dies ist die Betreffzeile" ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ActiveWorkbook.Close False End If Next sh Application.ScreenUpdating = True End Sub