PDF-Dateien Zusammenfassen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Public Sub Main() Dim strPath As String On Error GoTo Fin strPath = ThisWorkbook.Path & "\PDF\" ShellAndWait "cmd /c pdftk " & strPath & "*.pdf cat output " & ThisWorkbook.Path & "\" & "Gesamtuebersicht.pdf" Fin: If Err.Number > 0 Then MsgBox "Error: " & Err.Number & " " & Err.Description End Sub Private Sub ShellAndWait(ByVal strPathName As String) Dim WshShell As Object Set WshShell = CreateObject("WScript.Shell") WshShell.Run strPathName, 0, True Set WshShell = Nothing End Sub

Hallo Zwenn,

ja ich hatte einen funktionieren Code, die greift auf pdftk.exe zu.

Aber der Code funktioniert von jetzt auf gleich leider nicht mehr; das Makro läuft durch, pdf Dateien werden in einem temporären Ordner erzeugt, die zusammengefügte Datei wird nicht mehr erstellt.
(Das Erstellen der Einzel-pdf-Dateien ist theoretisch nicht nötig, da diese im Unterordner PDF schon existieren)

Folgend der Code:

Option Explicit

Private Declare PtrSafe Function MakeSureDirectoryPathExists Lib "imagehlp.dll" ( _
ByVal DirPath As String) As Long

Public Sub CreatePDF()

Dim lngRow As Long, lngLastRow As Long
Dim astrFiles() As String, strFolderPath As String, strFilePath As String
Dim objWorkbook As Workbook

strFolderPath = ThisWorkbook.Path & "\Temp\"
If MakeSureDirectoryPathExists(strFolderPath) = 1 Then

With Application
.Calculation = xlCalculationManual
.EnableEvents = False
.ScreenUpdating = False
End With

If Dir$(PathName:=strFolderPath & "*.*") > vbNullString Then _
Call Kill(PathName:=strFolderPath & "*.*")

lngLastRow = Cells(Rows.Count, 3).End(xlUp).Row

' ReDim astrFiles(7 To lngLastRow)
Dim lngFile As Long
For lngRow = 7 To lngLastRow
If Rows(lngRow).RowHeight > 0 Then
ReDim Preserve astrFiles(0 To lngFile)
Debug.Print Cells(lngRow, 3).Hyperlinks(1).Address
Set objWorkbook = GetObject(PathName:=Cells(lngRow, 3).Hyperlinks(1).Address)

strFilePath = strFolderPath & CStr(lngRow) & ".pdf"

Call objWorkbook.Worksheets("Protokoll").ExportAsFixedFormat(Type:=xlTypePDF, _
Filename:=strFilePath, Quality:=xlQualityStandard, IncludeDocProperties:= _
False, _
IgnorePrintAreas:=False, OpenAfterPublish:=False)

astrFiles(lngFile) = strFilePath
lngFile = lngFile + 1
Call objWorkbook.Close(SaveChanges:=False)

End If
Next

Call Shell(PathName:="C:\Program Files (x86)\PDFtk\bin\pdftk.exe " & Join(astrFiles) _
& " cat output " & ThisWorkbook.Path & "\Gesamtübersicht_" & _
ThisWorkbook.Worksheets("Übersicht").Range("S6").Value & "_" & Format(Date, "dd.mm.yy") & ".pdf", WindowStyle:=vbHide)

With Application
.Calculation = xlCalculationAutomatic
.EnableEvents = True
.ScreenUpdating = True
End With

Else
Call MsgBox("Fehler beim erstellen des temporären Ordners.", vbCritical, "Dateisystemfehler")

End If
Set objWorkbook = Nothing ' soll Fehler verhindern
End Sub

Viele Grüße Ulli

Hallo Ulli,

mir ist nicht ganz klar, ob Du pdfk oder pdfkServer verwendest, weil ich nicht weiß, ob die EXE vom Server genauso heißt. Letzterer ist eine CLI Anwendung. CLI steht für Command Line Interface, also die Shell. Dort ist das Zusammenfassen alle PDFs genau eine Zeile, soweit ich es sehe. Du musst die entsprechend mit den richtigen Werten für Verzeichnisse und Ausgabenamen über VBA steuern, wenn Du es über VBA lösen willst.

pdftk *.pdf cat output combined.pdf

Quellen:
PDFKServer: https://www.pdflabs.com/tools/pdftk-server/
PDFKServer Examples: https://www.pdflabs.com/docs/pdftk-cli-examples/

Warum Deine aktuelle Version des Makros nicht mehr läuft kann ich nicht sagen. Ich habe pdfk auch nicht installiert. Es kann aber sein, dass es eine neue Version gibt, dass Du eine andere Excel Version einsetzt, dass sich durch einen Patch in Excel oder Windows etwas geändert hat oder sonstwas. Ich würde es mit pdfkServer machen, da es für mich zunächst so aussieht, als sind da keine großen Klimmzüge notwendig.

Viele Grüße,

Zwenn

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

PDF-Dateien Zusammenfassen

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread