PDF automatisch erzeugen und in Ordner abspeichern
05.04.2017 09:23:34
tennis123
ich habe folgendes Anliegen:
Ich möchte eine PDF Datei automatisch per Knopfdruck erstellen, deren Name sich aus dem Dokumentennamen (Zelle B1) und der Dokumentennummer (Zelle C5) zusammensetzt und anschließend in einem bestimmten Ordner abspeichert. Genau hier liegt mein konkretes Problem: Ich habe auf dem Desktop zwölf Ordner für die entsprechenden 12 Monate im Jahr 2017. Gleichzeitig habe ich in dem Dokument in Zelle A5 die Monatsangabe hinterlegt. Steht also beispielsweise in Zelle A5 Jan 17 soll die PDF Datei auch entsprechend in dem Ordner Jan 17 abgespeichert werden. Steht in Zelle A5 Jan 17 Feb 17 soll die PDF im Ordner Feb 17 abgespeichert werden.
Mein Code, bei dem im Moment zwar die PDF erzeugt wird und auch auf dem Desktop abgespeichert wird, aber eben nicht "passenden Ordner", lautet wie folgt:
Option Explicit
'API Deklaration~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" ( _
ByVal DirPath As String) As Long
'Ende API Deklaration~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'PDF erstellen
Private Sub CommandButton1_Click()
Dim strFileName As String
Dim result As Long
strFileName = "C:\Users\tennis123\Desktop" & "\" & Range("B1") & "_" & Range("C5")
result = MakeSureDirectoryPathExists(strFileName)
If result 0 Then
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=strFileName, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Else
MsgBox "Pfad kann nicht erstellt werden!", 48, "Hinweis"
End If
End Sub
Ich hoffe, ihr könnt mir weiterhelfen und ich möchte mich schon jetzt für eure Unterstützung bedanken!