Скрипт на VBA - Форум
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Главный » Главный » Скрипт на VBA (Отправляет экселевский файл по почте.)
Скрипт на VBA
jsandДата: Вторник, 02.11.2010, 22:01 | Сообщение # 1
админ я
Группа: Администраторы
Сообщений: 29
Репутация: 2
Статус: Offline
Скрипт создает файл с текущей датой и расширением 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

 
rm-rfДата: Понедельник, 15.11.2010, 17:10 | Сообщение # 2
Admin
Группа: Администраторы
Сообщений: 37
Репутация: 5
Статус: Offline
Пометка: в случае, если формат даты DD/MM/YY или формат содержит значки "/", скрипт не заработает, попробуйте сменить формат даты на DD.MM.YY smile
Тогда должно быть всё в порядке.
 
Форум » Главный » Главный » Скрипт на VBA (Отправляет экселевский файл по почте.)
Страница 1 из 11
Поиск:

Сайт управляется системой uCoz