Trimiteți fiecare Foaie de lucru cu adresă în celula A1 utilizând VBA în Microsoft Excel

Anonim

Această macrocomandă va trimite fiecare foaie unei persoane.

  • Creați un nou registru de lucru cu foaia.
  • Salvați registrul de lucru înainte de al trimite prin poștă
  • Ștergeți fișierul de pe hard disk după ce acesta este trimis.
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 (Date) , "dd-mm-yy") & "" & Format (Time, "h-mm-ss") ActiveWorkbook.SaveAs "Part of" & ThisWorkbook.Name _ & "" & strDate & ".xls" ActiveWorkbook.SendMail ActiveSheet.Range ("a1"). Valoare, _ "Aceasta este linia subiectului" ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ActiveWorkbook.Close False End If Next sh Application.ScreenUpdating = True End Sub