Скрипт создает файл с текущей датой и расширением xls и отправляет его по электронной почте: Sub Send_ActWorkbook()
Dim li As Long
Application.DisplayAlerts = False
For li = Sheets.Count To ActiveSheet.Index + 1 Step -1
Sheets(li).Delete
Next li
' расширение править здесь
ActiveWorkbook.SaveAs Application.DefaultFilePath & Application.PathSeparator & Date & ".xls", xlNormal
' почту и тему править здесь
ActiveWorkbook.SendMail "dreamer_sfx@mail.ru", "Ежедневный отчет"
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
Application.DisplayAlerts = True
End Sub