Mail Sheet käyttäen Array VBA: ta Microsoft Excelissä

Anonim
  • Luo uusi työkirja SheetsArray -sovelluksella.
  • Tallenna työkirja ennen sen lähettämistä.
  • Poista tiedosto kiintolevyltä sen lähettämisen jälkeen.
Sub Mail_SheetsArray () Dim strDate merkkijonoina (Array ("Sheet1", "Sheet3")). Kopioi strDate = Format (Date, "dd-mm-yy") & "" & Format (Time, "h-mm- ss ") ActiveWorkbook.SaveAs" Osa "& ThisWorkbook.Name _ &" "& strDate &" .xls "ActiveWorkbook.SendMail" [email protected] ", _" Tämä on otsikkorivi "ActiveWorkbook.ChangeFileAccess xlReadOnly Kill ActiveWorkbook" .FullName ActiveWorkbook.Close False End Sub