Foaie poștală folosind Array VBA în Microsoft Excel

Anonim
  • Creați un nou registru de lucru cu SheetsArray.
  • 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_SheetsArray () Dim strDate Ca foi de șir (matrice ("Sheet1", "Sheet3")). Copy strDate = Format (Data, "dd-mm-yy") & "" & Format (Time, "h-mm- ss ") ActiveWorkbook.SaveAs" Part of "& ThisWorkbook.Name _ &" "& strDate &" .xls "ActiveWorkbook.SendMail" [email protected] ", _" This is the Subject line "ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook .FullName ActiveWorkbook.Close False End Sub