Folha de correio usando Array VBA no Microsoft Excel

Anonim
  • Crie uma nova pasta de trabalho com o SheetsArray.
  • Salve a pasta de trabalho antes de enviá-la.
  • Exclua o arquivo do disco rígido depois de enviá-lo.
Sub Mail_SheetsArray () Dim strDate As String Sheets (Array ("Sheet1", "Sheet3")). Copiar strDate = Format (Date, "dd-mm-yy") & "" & Format (Time, "h-mm- ss ") ActiveWorkbook.SaveAs" Parte de "& ThisWorkbook.Name _ &" "& strDate &" .xls "ActiveWorkbook.SendMail" [email protected] ", _" Esta é a linha de assunto "ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook .FullName ActiveWorkbook.Close False End Sub