Pošaljite svaki radni list s adresom u ćeliju A1 koristeći VBA u programu Microsoft Excel

Anonim

Ovaj će makro poslati svaki list jednoj osobi.

  • Izradite novu radnu knjigu s listom.
  • Spremite radnu knjigu prije nego što je pošaljete
  • Izbrišite datoteku s tvrdog diska nakon što je poslana.
Sub Mail_every_Worksheet () Dim strDate As String Dim sh As Worksheet Application.ScreenUpdating = False Za svaki sh u ThisWorkbook.Worksheets Ako je sh.Range ("a1"). Vrijednost poput "*@*" Zatim sh.Copy strDate = Format (Datum , "dd-mm-yy") & "" & Format (Time, "h-mm-ss") ActiveWorkbook.SaveAs "Dio" & ThisWorkbook.Name _ & "" & strDate & ".xls" ActiveWorkbook.SendMail ActiveSheet.Range ("a1"). Vrijednost, _ "Ovo je redak predmeta" ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ActiveWorkbook.Close False End If Next sh Application.ScreenUpdating = True End Sub