Mail Sheet mit Array VBA in Microsoft Excel

Anonim
  • Erstellen Sie eine neue Arbeitsmappe mit dem SheetsArray.
  • Speichern Sie die Arbeitsmappe, bevor Sie sie per Post versenden.
  • Löschen Sie die Datei nach dem Senden von Ihrer Festplatte.
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 "Teil von " & ThisWorkbook.Name _ & " " & strDate & ".xls" ActiveWorkbook.SendMail "[email protected]", _ "Dies ist die Betreffzeile" ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook .FullName ActiveWorkbook.Close False End Sub