Skicka varje arbetsblad med adress i cell A1 med VBA i Microsoft Excel

Anonim

Detta makro skickar varje ark till en person.

  • Skapa en ny arbetsbok med arket.
  • Spara arbetsboken innan du skickar den
  • Ta bort filen från hårddisken efter att den har skickats.
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-åå") & "" & Format (tid, "h-mm-ss") ActiveWorkbook.SaveAs "Del av" & ThisWorkbook.Name _ & "" & strDate & ".xls" ActiveWorkbook.SendMail ActiveSheet.Range ("a1"). Värde, _ "Detta är ämnesraden" ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ActiveWorkbook.Close False End If Next sh Application.ScreenUpdating = True End Sub