Poštovní list pomocí Array VBA v Microsoft Excelu

Anonim
  • Vytvořte nový sešit pomocí SheetsArray.
  • Před odesláním sešitu si jej uložte.
  • Po odeslání soubor smažte z pevného disku.
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" část "& ThisWorkbook.Name _ &" "& strDate &" .xls "ActiveWorkbook.SendMail" [email protected] ", _" Toto je předmětový řádek "ActiveWorkbook.ChangeFileAccess xlReadOnly Zabít ActiveWorkbook .FullName ActiveWorkbook.Close False End Sub