Kako shraniti delovni list kot datoteko PDF in ga poslati kot prilogo prek Outlooka?
V nekaterih primerih boste morda morali poslati delovni list kot datoteko PDF prek Outlooka. Običajno morate delovni list ročno shraniti kot datoteko PDF, nato v tem Outlooku ustvariti novo e-poštno sporočilo s to datoteko PDF kot prilogo in ga nazadnje poslati. Dolgotrajno ga dosežemo korak za korakom ročno. V tem članku vam bomo pokazali, kako hitro shranite delovni list kot datoteko PDF in ga samodejno pošljete kot prilogo prek Outlooka v Excelu.
Shranite delovni list kot datoteko PDF in ga pošljite kot prilogo s kodo VBA
Shranite delovni list kot datoteko PDF in ga pošljite kot prilogo s kodo VBA
Spodnjo kodo VBA lahko zaženete, da samodejno shranite aktivni delovni list kot datoteko PDF in ga nato pošljete kot prilogo prek Outlooka. Naredite naslednje.
1. Odprite delovni list, ki ga boste shranili kot PDF in ga poslali, nato pritisnite druga + F11 tipke hkrati, da odprete Microsoft Visual Basic za aplikacije okno.
2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli. Nato kopirajte in prilepite spodnjo kodo VBA v Koda okno. Oglejte si posnetek zaslona:
Koda VBA: shranite delovni list kot datoteko PDF in ga pošljite kot prilogo
Sub Saveaspdfandsend()
Dim xSht As Worksheet
Dim xFileDlg As FileDialog
Dim xFolder As String
Dim xYesorNo As Integer
Dim xOutlookObj As Object
Dim xEmailObj As Object
Dim xUsedRng As Range
Set xSht = ActiveSheet
Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xFileDlg.Show = True Then
xFolder = xFileDlg.SelectedItems(1)
Else
MsgBox "You must specify a folder to save the PDF into." & vbCrLf & vbCrLf & "Press OK to exit this macro.", vbCritical, "Must Specify Destination Folder"
Exit Sub
End If
xFolder = xFolder + "\" + xSht.Name + ".pdf"
'Check if file already exist
If Len(Dir(xFolder)) > 0 Then
xYesorNo = MsgBox(xFolder & " already exists." & vbCrLf & vbCrLf & "Do you want to overwrite it?", _
vbYesNo + vbQuestion, "File Exists")
On Error Resume Next
If xYesorNo = vbYes Then
Kill xFolder
Else
MsgBox "if you don't overwrite the existing PDF, I can't continue." _
& vbCrLf & vbCrLf & "Press OK to exit this macro.", vbCritical, "Exiting Macro"
Exit Sub
End If
If Err.Number <> 0 Then
MsgBox "Unable to delete existing file. Please make sure the file is not open or write protected." _
& vbCrLf & vbCrLf & "Press OK to exit this macro.", vbCritical, "Unable to Delete File"
Exit Sub
End If
End If
Set xUsedRng = xSht.UsedRange
If Application.WorksheetFunction.CountA(xUsedRng.Cells) <> 0 Then
'Save as PDF file
xSht.ExportAsFixedFormat Type:=xlTypePDF, Filename:=xFolder, Quality:=xlQualityStandard
'Create Outlook email
Set xOutlookObj = CreateObject("Outlook.Application")
Set xEmailObj = xOutlookObj.CreateItem(0)
With xEmailObj
.Display
.To = ""
.CC = ""
.Subject = xSht.Name + ".pdf"
.Attachments.Add xFolder
If DisplayEmail = False Then
'.Send
End If
End With
Else
MsgBox "The active worksheet cannot be blank"
Exit Sub
End If
End Sub
3. Pritisnite F5 tipko za zagon kode. V Brskanje v pogovornem oknu izberite mapo, v katero želite shraniti to datoteko PDF, in nato kliknite OK gumb.
Opombe:
Preprosto shranite delovni list ali več delovnih listov kot ločene datoteke PDF hkrati:
O Razdeljeni delovni zvezek uporabnost Kutools za Excel vam lahko pomaga enostavno shraniti delovni list ali več delovnih listov kot ločene datoteke PDF hkrati, kot je prikazano spodaj. Prenesite in preizkusite zdaj! (30-dnevna brezplačna pot)
Sorodni članki:
- Kako shraniti ime datoteke Excel s časovnim žigom?
- Kako uporabiti funkcijo Shrani kot za samodejni prepis obstoječe datoteke v Excelu?
- Kako shraniti, izvoziti več / vseh listov v ločene datoteke CSV ali besedila v Excelu?
- Kako onemogočiti ali ne dovoliti možnosti Shrani in shrani kot v Excelu?
- Kako onemogočiti shranjevanje delovnega zvezka, vendar dovoli samo shranjevanje kot v Excelu?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!