Здравствуйте. Имеется следующий код. Задаю имя файла ,выбираю диапазон ячеек, и этот диапазон сохраняется в формате 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]
Здравствуйте. Имеется следующий код. Задаю имя файла ,выбираю диапазон ячеек, и этот диапазон сохраняется в формате 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]Amator
Сообщение отредактировал DJ_Marker_MC - Понедельник, 09.02.2015, 13:51