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 az Excel számára 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 termelékenységi eszközök
A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet
- újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
- Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
- Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
- Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
- Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
- Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
- Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
- Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
- Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.

Az Office fül a füles felületet hozza 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!



















































