Hogyan menthetünk egy munkalapot PDF fájlként és e-mailben csatolmányként az Outlook segítségével?
Bizonyos esetekben előfordulhat, hogy egy munkalapot PDF fájlként kell elküldenie az Outlook segítségével. Általában manuálisan el kell mentenie a munkalapot PDF fájlként, majd létre kell hoznia egy új e-mailt ezzel a PDF fájllal mellékletként az Outlook programban, és végül el kell küldenie. Időigényes a lépésről lépésre kézi elérése. Ebben a cikkben bemutatjuk, hogyan lehet gyorsan menteni a munkalapot PDF fájlként, és automatikusan elküldeni mellékletként az Outlook programban az Excel programban.
Mentse el a munkalapot PDF fájlként, és e-mailben csatolja VBA kóddal
Mentse el a munkalapot PDF fájlként, és e-mailben csatolja VBA kóddal
Az alábbi VBA kód futtatásával automatikusan mentheti az aktív munkalapot PDF fájlként, majd e-mailben csatolmányként küldheti el az Outlook segítségével. Kérjük, tegye a következőket.
1. Nyissa meg a PDF-ként menteni kívánt munkalapot és küldje el, majd nyomja meg a gombot más + F11 gombok egyszerre a Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok. Ezután másolja és illessze be az alábbi VBA kódot a Kód ablak. Lásd a képernyőképet:
VBA kód: Munkalap mentése PDF fájlként, és e-mailben csatolásként
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. megnyomni a F5 gombot a kód futtatásához. Ban,-ben Tallózás párbeszédpanelen válasszon egy mappát a PDF fájl mentéséhez, majd kattintson a gombra OK gombot.
Megjegyzések:
Könnyen menthet egy munkalapot vagy több munkalapot különálló PDF fájlokként egyszerre:
A Felosztott munkafüzet hasznossága Kutools for Excel segítségével könnyebben elmenthet egy munkalapot vagy több munkalapot különálló PDF fájlokként egyszerre, ahogy az alábbi bemutató bemutatja. Töltse le és próbálja ki most! (30-napos ingyenes túra)
Kapcsolódó cikkek:
- Hogyan mentse az Excel fájlnevet időbélyeggel?
- Hogyan használhatjuk a Mentés másként funkciót az Excel meglévő fájljának automatikus felülírásához?
- Hogyan mentse el, exportálja több / az összes lapot különálló csv- vagy szövegfájlok elkülönítésére az Excel-ben?
- Hogyan lehet letiltani vagy nem engedélyezni a Mentés és mentés másként opciókat az Excelben?
- Hogyan tilthatja le a munkafüzet mentését, de csak az Excelben engedélyezett mentést engedélyezheti?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet ezzel Kutools for Excel, és tapasztalja meg a még soha nem látott hatékonyságot. Kutools for Excel Több mint 300 speciális funkciót kínál a termelékenység fokozása és az időmegtakarítás érdekében. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Office Tab Lapos felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!

















