Пощенски лист с помощта на Array VBA в Microsoft Excel

Anonim
  • Създайте нова работна книга с SheetsArray.
  • Запазете работната книга, преди да я изпратите по пощата.
  • Изтрийте файла от твърдия диск, след като бъде изпратен.
Sub Mail_SheetsArray () Dim strDate As String Sheets (Array ("Sheet1", "Sheet3")). Copy strDate = Format (Date, "dd-mm-yy") & "" & Format (Time, "h-mm- ss ") ActiveWorkbook.SaveAs" Част от "& ThisWorkbook.Name _ &" "& strDate &" .xls "ActiveWorkbook.SendMail" [email protected] ", _" Това е редът на темата "ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook .FullName ActiveWorkbook.Затваряне на False End Sub