Русские видео

Сейчас в тренде

Иностранные видео


Скачать с ютуб excel vba pdf and attach to email в хорошем качестве

excel vba pdf and attach to email 2 года назад


Если кнопки скачивания не загрузились НАЖМИТЕ ЗДЕСЬ или обновите страницу
Если возникают проблемы со скачиванием, пожалуйста напишите в поддержку по адресу внизу страницы.
Спасибо за использование сервиса savevideohd.ru



excel vba pdf and attach to email

Follow this video to learn how to build a useful excel file that can generate a PDF and attach it to an email in Outlook. I will cover the layout and the VBA codes so you can follow through and build on your own. Support this channel on Patreon:   / excelhighway   –––––––––––––––––––––––––––––– Track: Travel With Us — Vendredi [Audio Library Release] Music provided by Audio Library Plus Watch:    • Видео   Free Download / Stream: https://alplus.io/travel-us Sub Refresh_Input() Dim ws As Worksheet, wd As Worksheet Application.ScreenUpdating = False Set ws = Sheets("Master") Set wd = Sheets("Input") Application.DisplayAlerts = False wd.Delete Application.DisplayAlerts = True ws.Copy After:=Worksheets(Sheets.Count) On Error Resume Next ActiveSheet.name = "Input" Application.ScreenUpdating = True End Sub Sub PDF() Dim Row As Long, i As Long Dim xFolder As String, name As String Dim xOutlookObj As Object, EmailObj As Object Dim ws As Worksheet 'Exit if you are in master sheet If ActiveSheet.name = "Master" Then Exit Sub 'Delete lines w/o X only if column A is selection If ActiveSheet.Range("A1") = "Selection" Then Row = 100 For i = Row To 1 Step -1 If Cells(i, 1) = x Then Rows(i).Delete End If Next Columns("A:A").Delete End If 'Save pdf on desktop Set ws = Sheets("Lists") name = ws.Range("A5") xFolder = Environ("USERPROFILE") & "\Desktop" & "\" & name & ".pdf" ActiveSheet.Columns("A:B").ExportAsFixedFormat Type:=xlTypePDF, Filename:=xFolder 'Create Outlook email Set xOutlookObj = CreateObject("Outlook.Application") Set xEmailObj = xOutlookObj.CreateItem(0) With xEmailObj .Display .To = "" .CC = "" .Subject = ws.Range("D2") .Attachments.Add xFolder .HTMLbody = ws.Range("D3") & "br" & "br" & ws.Range("D4") & "br" & "br" & ws.Range("D5") End With End Sub

Comments