Отправление скрытого листа ексель на емайл

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Отправление скрытого листа ексель на емайл (Макросы/Sub)

tasdel

Дата: Воскресенье, 01.11.2020, 23:55 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 144

Репутация: 0 ±

Замечаний: 20% ±

Excel 2007

Здравствуйте уважаемые колдуны и шаманы MS Excel !!!
На просторах интернета нашел макрос, который выполняет процедуру отправки листа ексель на емайл.
Открытый лист рабочей книги отправляет без проблем, а вот скрытый лист не хочет.
Как всегда, заранее спасибо!!!
[vba]

Код

Sub ÝÍÅÐÃÎ()
Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(olMailItem)
     ThisWorkbook.Sheets(Array("ÝÍÅÐÃÎ")).Copy
    With ActiveWorkbook
    ActiveWorkbook.SaveCopyAs "D:\YandexDisk\ÆÓÐÍÀË ÒÝÐ\ÝÍÅÐÃÎ.xlsx"
     End With
     On Error Resume Next
    With OutMail
     .To = "cdd@mail.ru"
     .Cc = "cdd@mail.ru"
     .Subject = "Ïîêàçàíèÿ ïðèáîðîâ "
     .Body = "Çäðàâñòâóéòå!"
     .Attachments.Add ("D:\YandexDisk\ÆÓÐÍÀË ÒÝÐ\ÝÍÅÐÃÎ.xlsx")
     .Send
     End With
    ActiveWorkbook.Close savechanges:=False
End Sub

[/vba]