Hur sparar jag ett kalkylblad som PDF-fil och skickar det via e-post som en bilaga via Outlook?
I vissa fall kan du behöva skicka ett kalkylblad som en PDF-fil via Outlook. Vanligtvis måste du spara kalkylbladet manuellt som en PDF-fil, skapa sedan ett nytt e-postmeddelande med denna PDF-fil som bilaga i Outlook och slutligen skicka det. Det är tidskrävande att uppnå det manuellt steg för steg. I den här artikeln visar vi dig hur du snabbt sparar ett kalkylblad som en PDF-fil och skickar det automatiskt som en bilaga via Outlook i Excel.
Spara ett kalkylblad som PDF-fil och mejla det som en bilaga med VBA-kod
Spara ett kalkylblad som PDF-fil och mejla det som en bilaga med VBA-kod
Du kan köra nedanstående VBA-kod för att automatiskt spara det aktiva kalkylbladet som en PDF-fil och sedan skicka det som en bilaga via Outlook. Gör så här.
1. Öppna kalkylbladet som du sparar som PDF och skicka och tryck sedan på andra + F11 samtidigt för att öppna Microsoft Visual Basic för applikationer fönster.
2. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulerna. Kopiera sedan och klistra in nedanstående VBA-kod i Koda fönster. Se skärmdump:
VBA-kod: Spara ett kalkylblad som PDF-fil och mejla det som en bilaga
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. tryck på F5 för att köra koden. I Bläddra välj en mapp för att spara den här PDF-filen och klicka sedan på OK knapp.
Anmärkningar:
Spara enkelt ett kalkylblad eller flera kalkylblad som separata PDF-filer samtidigt:
Smakämnen Dela arbetsbok nytta av Kutools för Excel kan hjälpa dig att enkelt spara ett kalkylblad eller flera kalkylblad som separata PDF-filer samtidigt som nedanstående demo visas. Ladda ner och prova nu! (30 dagars gratis spår)
Relaterade artiklar:
- Hur sparar jag ett Excel-filnamn med tidsstämpel?
- Hur använder jag Spara som-funktionen för att automatiskt skriva över befintlig fil i Excel?
- Hur sparar jag, exporterar flera / alla ark till separata csv- eller textfiler i Excel?
- Hur inaktiverar eller tillåter du inte Spara och spara som-alternativ i Excel?
- Hur inaktiverar jag arbetsbokspara men tillåter bara spara som i Excel?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!