Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako shraniti delovni list v datoteko PDF in ga po e-pošti poslati kot prilogo?

V nekaterih primerih boste morda morali poslati delovni list kot datoteko PDF prek programa Outlook. Običajno morate ročno shraniti delovni list v datoteko PDF in ustvariti novo e-pošto s to datoteko PDF kot prilogo v Outlooku in jo končno poslati. To je dolgotrajno, da ga dosežete ročno korak za korakom. V tem članku vam bomo pokazali, kako hitro shraniti delovni list v datoteko PDF in ga samodejno poslati kot prilogo prek programa Outlook v Excelu.

Shranite delovni list v datoteko PDF in ga pošljite kot prilogo s kodo VBA


Preprosto shranite delovni list ali več delovnih listov kot ločene datoteke PDF hkrati:

O Delovni zvezek Split uporabnost Kutools za Excel vam lahko pomaga prihraniti delovni list ali več delovnih listov kot ločene datoteke PDF hkrati. Glej zaslonski posnetek:

Kutools za Excel vključuje več kot 300 priročno orodje Excel. Prosti brez omejitev v 60 dneh. Prenesite brezplačno preskusno različico zdaj


puščica modra desno mehurček Shranite delovni list v datoteko PDF in ga pošljite kot prilogo s kodo VBA


Zaženite lahko spodnjo kodo VBA, da samodejno shranite aktivni delovni list v datoteko PDF in ga po e-pošti pošljete kot prilogo prek Outlooka. Prosimo, naredite na naslednji način.

1. Odprite delovni list, ki ga shranite kot PDF in ga pošljete, nato pritisnite druga + F11 tipke hkrati odpreti 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. Prikaz slike:

VBA koda: shranite delovni list v 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 ključ za zagon kode. V Ljubljani Brskanje pogovorno okno, izberite mapo, da shranite to datoteko PDF in nato kliknite OK gumb.

Opombe:

1. Zdaj je aktivni delovni list shranjen v datoteko PDF. Datoteka PDF se imenuje z imenom delovnega lista.

2. Če je aktivni delovni list prazen, boste kliknili pogovorno okno, ki je prikazano spodaj OK gumb.

4. Zdaj se ustvari nov e-poštni naslov Outlook in si lahko ogledate, da je datoteka PDF navedena kot priponka v vloženi datoteki. Prikaz slike:

5. Prosimo, sestavite to e-poštno sporočilo in ga pošljite.

Opombe: Ta koda je na voljo samo, če uporabljate Outlook kot vaš poštni program.


puščica modra desno mehurčekSorodni članki:


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jason · 18 days ago
    How can I make it delete the saved pdf after it emails it?
  • To post as a guest, your comment is unpublished.
    ranga · 24 days ago
    Thanks it works.
  • To post as a guest, your comment is unpublished.
    james · 9 months ago
    Hi, how can i save & send the pdf wit the workbook name with the current VBA code? what do i use instead of xSht.Name
    • To post as a guest, your comment is unpublished.
      crystal · 8 months ago
      Hi James,
      Do you want to send the active worksheet as pdf and name it as the workbook name?
  • To post as a guest, your comment is unpublished.
    Tom H · 1 years ago
    How would I edit the VBA script above so that the file name is saved as a specific cell selected within the current sheet, for example cell A1?
  • To post as a guest, your comment is unpublished.
    Armin · 1 years ago
    How can I add for example sheet 2 from the workbook as an pdf?
    • To post as a guest, your comment is unpublished.
      crystal · 10 months ago
      Hi Armin,
      You need to open the Sheet 2 in your workbook firstly and then run the VBA code with above steps to get it down.