Изпратете по пощата всеки работен лист с адрес в клетка A1, използвайки VBA в Microsoft Excel

Anonim

Този макрос ще изпрати всеки лист до един човек.

  • Създайте нова работна книга с листа.
  • Запазете работната книга, преди да я изпратите по пощата
  • Изтрийте файла от твърдия диск, след като бъде изпратен.
Sub Mail_every_Worksheet () Dim strDate As String Dim sh As Worksheet Application.ScreenUpdating = False За всеки sh в ThisWorkbook.Worksheets Ако sh.Range ("a1"). Стойност като "*@*" Тогава sh.Copy strDate = Format (Дата , "dd-mm-yy") & "" & Format (Time, "h-mm-ss") ActiveWorkbook.SaveAs "Част от" & ThisWorkbook.Name _ & "" & strDate & ".xls" ActiveWorkbook.SendMail ActiveSheet.Range ("a1"). Стойност, _ "Това е редът на темата" ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook.FullName ActiveWorkbook.Close False End If Next sh Application.ScreenUpdating = True End Sub