Thema Datum  Von Nutzer Rating
Antwort
Rot VBA PDF Speichern und per Email senden
 02.04.2019 18:24:45 ExcelAnfänger
NotSolved

Ansicht des Beitrags:
Von:
ExcelAnfänger		 Datum:
02.04.2019 18:24:45		 Views:
1096		 Rating:
     
Antwort:
  Ja
Thema:
VBA PDF Speichern und per Email senden

Guten Tag,

benötige mal eure Hilfe.
Ich habe in einem Worksheet zwei VBA Kommandos erstellt.
Diese sind aber sehr langsam und das dauert mir so etwas zu lange.


Nr. 1 -> Ziel: Als PDF Speichern, Dateinname wird vorgebenen, Speicherort soll frei wählbar sein.

Das habe ich zurzeit:

?
1
2
3
4
5
6
7
8
9
10
11
Sub PDF()
Dim pdfName As String
pdfName = Application.GetSaveAsFilename(Environ("USERPROFILE") & "\Desktop\" & "Übersicht2019" & ".pdf", "PDF-Dateien (*.pdf), *.pdf")
Sheets.Copy
With ActiveWorkbook
     .ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, _
                          Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
                          OpenAfterPublish:=True
     .Close savechanges:=False
End With
End Sub

Nr.. 2 -> Ziel Als PDF Speichern und in eine Email als Anhang einfügen. Dateiname ist vorgeben, Email Adresse und Betreff auch.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub Email()
If MsgBox("Soll die PDF-Datei nach dem Erstellen angezeigt werden?", vbYesNo, "PDF anzeigen?") = vbYes Then pdfOpenAfterPublish = True
 
pdfName = ThisWorkbook.Path & "\" & "Dateiname" & ".pdf"
 
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, _
                                   Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
                                   OpenAfterPublish:=IIf(pdfOpenAfterPublish, True, False)
                                   
                                   
Set olApp = CreateObject("Outlook.Application")
    With olApp.CreateItem(0)
              .TO = "Emailadresse"
              .CC = Range("Z2").Value
              .Subject = "Übersicht 2019"
              .htmlBody = Range("Z4").Value
              .Attachments.Add pdfName
              .Display
    
    End With
              
pdfOpenAfterPublish = False
End Sub
 

 

Gibt es die Möglichkeit die PDF zu komprimieren ? Damit es vielleicht besser läuft oder schneller geht..

Ich freue mich auf eure Vorschläge.

Danke im Vorraus !!!

 

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA PDF Speichern und per Email senden
 02.04.2019 18:24:45 ExcelAnfänger
NotSolved