Arkusz poczty przy użyciu Array VBA w programie Microsoft Excel

Anonim
  • Utwórz nowy skoroszyt za pomocą SheetsArray.
  • Zapisz skoroszyt przed wysłaniem go pocztą.
  • Usuń plik z dysku twardego po jego wysłaniu.
Sub Mail_SheetsArray() Dim strDate As String Sheets(Array("Sheet1", "Sheet3")).Copy strDate = Format(Date, "dd-mm-rr") & " " & Format(Time, "h-mm- ss") ActiveWorkbook.SaveAs "Część " & ThisWorkbook.Name _ & " " & strDate & ".xls" ActiveWorkbook.SendMail "[email protected]", _ "To jest wiersz tematu" ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook .FullName ActiveWorkbook.Close False End Sub