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

Вход

Регистрация

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

 

= Мир MS Excel/Книга не отправляется при запуске макроса в pdf - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Книга не отправляется при запуске макроса в pdf
azguseynovaa Дата: Четверг, 08.07.2021, 19:22 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Здравствуйте! Очень прошу помочь с решением одной проблемы. Дело в том, что я автоматизирую процесс отправки листа ексель в виде pdf по почте outlook, и для этого записываю макрос: файл --- общий доступ --- отправить по электронной почте --- отправить как pdf. Когда я записываю макрос, он отправляется в пдф и проблем не возникает, однако при запуске этого макроса файл перед отправкой открывается в окне outlook в виде книги ексель. Я пробовала отправить и с других устройств, однако происходило то же самое.
Подскажите, пожалуйста, в чём причина данного явления и как её решить?

Вот код:

[vba]
Код
Sub Макрос1()
'
' Макрос1 Макрос
'

'
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\azgus\AppData\Local\Temp\КАЛЕНДАРЬ 1.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Application.Dialogs(xlDialogSendMail).Show
End Sub
[/vba]
 
Ответить
СообщениеЗдравствуйте! Очень прошу помочь с решением одной проблемы. Дело в том, что я автоматизирую процесс отправки листа ексель в виде pdf по почте outlook, и для этого записываю макрос: файл --- общий доступ --- отправить по электронной почте --- отправить как pdf. Когда я записываю макрос, он отправляется в пдф и проблем не возникает, однако при запуске этого макроса файл перед отправкой открывается в окне outlook в виде книги ексель. Я пробовала отправить и с других устройств, однако происходило то же самое.
Подскажите, пожалуйста, в чём причина данного явления и как её решить?

Вот код:

[vba]
Код
Sub Макрос1()
'
' Макрос1 Макрос
'

'
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\azgus\AppData\Local\Temp\КАЛЕНДАРЬ 1.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Application.Dialogs(xlDialogSendMail).Show
End Sub
[/vba]

Автор - azguseynovaa
Дата добавления - 08.07.2021 в 19:22
  • Страница 1 из 1
  • 1
Поиск:

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