PDF Zusammenführen
15.01.2023 06:05:15
Benedikt
Auf dem Desktop befindet sich der Ordner "pdf Folder" in welchem sich verschiedene PDF befinden.
Diese sollen zu einer Datei zusammengeführt werden, die Datei auf dem Desktop abgelegt werden und der Ordner geleert werden
Nachfolgenden Code habe ich im Netz gefunden, dieser beschränkt sich nur auf das Zusammenfassen
Er legt zwar ein neues PDF Namens Zusammengeführt an, dieses enthält aber nur die unterste PDF des Ordners
Vielleicht sieht einer von euch Profis an was es liegt
Vielen Dank für Hilfe
Sub JoinFiles()
Dim StrPath As String, FileName As String, FileExt As String
FileName = "Zusammengeführt" ' New File name FileExt = ".pdf"
StrPath = Environ("USERPROFILE") & "\Desktop\pdf Folder" ' replace with Your Folder Path
Call JoinFiles_In_One(StrPath, FileName, FileExt)
End Sub
Public Sub JoinFiles_In_One(FlderPath As String, FileName As String, FileExt As String)
Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object
Dim SourceFile As String, TargetFile As String
StrPath = FlderPath
PathArr = Split(StrPath, "\")
UstrPath = UBound(PathArr)
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(StrPath)
' List Files
N = 0
SourceFile = ""
TargetFile = ""
For Each oFile In oFolder.Files
If oFile.Name FileName & FileExt Then
Open FlderPath & "\" & oFile.Name For Binary As #1
N = N + 1
SourceFile = Right(FileExt, Len(FileExt) - 1) & "_" & N
SourceFile = String(LOF(1), 0)
Get #1, 1, SourceFile
Close #1
TargetFile = TargetFile & SourceFile
End If
Next oFile
'Mergge File
Open FlderPath & "\" & FileName & FileExt For Binary As #1
Put #1, 1, TargetFile
Close #1
End Sub