Выбрать диапазон ячеек и в формате PDF отправить по почте.

Вход

Регистрация

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

= Мир MS Excel/Выбрать диапазон ячеек и в формате PDF отправить по почте. - Мир MS Excel

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выбрать диапазон ячеек и в формате PDF отправить по почте. (Макросы/Sub)

Выбрать диапазон ячеек и в формате PDF отправить по почте.

Amator

Дата: Понедельник, 09.02.2015, 13:31 | Сообщение № 1

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

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

Сообщений: 107

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

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

Excel 2007

Здравствуйте. Имеется следующий код. Задаю имя файла ,выбираю диапазон ячеек, и этот диапазон сохраняется в формате PDF.(Можэт кому пригодится). Задача следующая. Как изменить этот код , чтобы вместо сохранить в формате PDF - отправить по почте в формате PDF без сохранения (без почтовых программ).
[vba]

Код

Private Sub CommandButton1_Click()
Filename$ = ThisWorkbook.Path & "\" & Application.InputBox("Введите имя файла :" & " .pdf") & ".pdf"
Dim vRetVal

On Error Resume Next
Set vRetVal = Application.InputBox(" Укажите диапазон ", " *** ДИАПАЗОН ДЛЯ PDF ***", Type:=8)
If vRetVal Is Nothing Then
MsgBox "Задание прервано", vbCritical, "Нету данных"
Exit Sub
End If
vRetVal.ExportAsFixedFormat xlTypePDF, Filename$
MsgBox "Сохранение выполнено !"
End Sub

[/vba]

[moder]Неоформленный код VBA ТЕГОМ
Что является нарушением правил. Пришлось его оформить за Вас. Стоимость такой работы модератора +20% замечания

![/moder]

Сообщение отредактировал DJ_Marker_MC - Понедельник, 09.02.2015, 13:51

Ответить

Страница 1 из 1
1