Wyślij każdy arkusz roboczy z adresem w komórce A1 za pomocą VBA w programie Microsoft Excel

Anonim

To makro wyśle ​​każdy arkusz do jednej osoby.

  • Utwórz nowy skoroszyt za pomocą arkusza.
  • Zapisz skoroszyt przed wysłaniem go
  • Usuń plik z dysku twardego po jego wysłaniu.
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-rr") & " " & Format(godzina, "h-mm-ss") ActiveWorkbook.SaveAs "Część " & ThisWorkbook.Name _ & " " & strDate & ".xls" ActiveWorkbook.SendMail ActiveSheet.Range("a1").Value, _ "To jest wiersz tematu" ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ActiveWorkbook.Close False End If Next sh Application.ScreenUpdating = True End Sub