Excel zu PDF aber in anderen Ordner
07.05.2020 20:40:28
Hans
meine Excel Datei wird in einem Ordner im Laufwerk D: gespeichert.
D:\Google Drive\Rechnungen Excel\2020;
wobei die 2020 für das entsprechende Jahr ist und schon beim Speichernamen von Excel generiert wird.
Das Speichern der Excel Datei funktioniert über die Ordner 2020 bis 2030 ohne Probleme.
Nun hat meine Tabelle ein Makro mit denen möchte ich das Tabellenblatt Rechnungen in eine PDF Datei umwandeln und in den Speicherort
D:\Google Drive\Rechnungen PDF\2020
abspeichern. Dabei soll auch der Ordner (2020 bis 2030) entsprechend dynamisch angesprochen werden.
Ich habe schon alles Mögliche versucht, bekomme es aber so nicht hin.
Bitte könnt ihr mir helfen, das Problem zu lösen ?
MfG
Hans
CODE ZUM ERSTELLEN DER PDF DATEI:
Private Sub CommandButton4_Click()
Dim pdfName As String
Dim pdfOpenAfterPublish As Boolean
Dim olApp As Object
Dim olOldBody As String
Rem Rückfragen, ob Datei nach dem Erstellen geöffnet werden soll
If MsgBox("Soll die PDF-Datei nach dem Erstellen angezeigt werden?", vbYesNo, "PDF anzeigen?") = _
vbYes Then pdfOpenAfterPublish = True
Rem Pfad und Name der PDF-Datei
pdfName = ThisWorkbook.Path & "\" & ThisWorkbook.Name & "_" & ActiveSheet.Name & ".pdf"
Rem PDF-Datei erstellen. Funktioniert nur in Excel 2007 oder höher, nicht in Excel 2003 oder ä _
lter
ThisWorkbook.Sheets("Rechnung").ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=IIf(pdfOpenAfterPublish, True, False)
Rem Email erstellen
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.GetInspector.Display
olOldBody = .htmlBody
.TO = Range("AF90").Value
Rem.CC = Range("Z2").Value
Rem.Subject = Range("Z3").Value
Rem.htmlBody = Range("Z4").Value & "
" & olOldBody
.Attachments.Add pdfName
End With
Rem Boolean-Variable "pdfOpenAfterPublish" zurücksetzen
pdfOpenAfterPublish = False
End Sub