Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Отправление скрытого листа ексель на емайл - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Отправление скрытого листа ексель на емайл (Макросы/Sub)
Отправление скрытого листа ексель на емайл
tasdel Дата: Воскресенье, 01.11.2020, 23:55 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация: 0 ±
Замечаний: 0% ±

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]


Сообщение отредактировал tasdel - Воскресенье, 01.11.2020, 23:59
 
Ответить
СообщениеЗдравствуйте уважаемые колдуны и шаманы 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]

Автор - tasdel
Дата добавления - 01.11.2020 в 23:55
Pelena Дата: Понедельник, 02.11.2020, 10:16 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 17442
Репутация: 3876 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Здравствуйте.
В начале перед копированием сделать скрытый лист видимым, а после копирования снова скрыть, используя свойство .Visible


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗдравствуйте.
В начале перед копированием сделать скрытый лист видимым, а после копирования снова скрыть, используя свойство .Visible

Автор - Pelena
Дата добавления - 02.11.2020 в 10:16
tasdel Дата: Понедельник, 02.11.2020, 12:48 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Pelena, Точно... Спасибо большое.
 
Ответить
СообщениеPelena, Точно... Спасибо большое.

Автор - tasdel
Дата добавления - 02.11.2020 в 12:48
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Отправление скрытого листа ексель на емайл (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!