Pdf erstellung

Question

Hallo an alle Mitdenker,

ich habe mehrere Excel Dateien in einem Ordnner ca 100 stück.
Nun Möchte ich alle Dateien zusammen zu einem Pdf Paket erstellen.

könnt Ihr mir dabei helfen?

Ist das mit VBA möglich.
Es ist ein sich immer wiederholender Schritt..

Viele Grüße
PCSchnecke

Answer 1

Hallo PCSchnecke,

du kannst es mal mit dem PDF24-Editor versuchen.
de.pdf24.org/pdf-editor.jsp
Wenn du den öffnest, zeigt er links den Verzeichnisbaum, in dem du das Verzeichnis mit deinen Dateien öffnen kannst. Dann ziehst du mit Drag&Drop Dateien (auch Excel) in das Bearbeitungsfenster. Das geht auch mit mehreren markierten Dateien gleichzeitig. Schließlich fügst du mit einem Klick alle hereingezogenen Dateien zu einer Datei und speicherst das ganze ab.
Wenn dann eine weitere Datei dazukommt, öffnest du das bereits erstellte File mit dem PDF24, ziehst die neue Datei dazu und verbindest alles wieder zu einer Datei.

Versuch es aber erstmal mit nur wenigen Dateien. Sonst könntest du bei mehreren Hundert an der Laufzeit verzweifeln :-)

Gruß
computerschrat

Answer 2

Hallo Computerschart,

danke für dein Hinweis.
Ich Lese es mir mal durch

VG

Answer 3

hi all ^^

ein Beispiel :-)

gruss nighty

es werden alle gefundenen Excel Dateien eines Verzeichnisses ausgelesen(werte) und untereinander dargestellt bzw angefuegt
auszulesende Datenquelle ist zur zeit spalte a
anschliessend erfolgt der Export als pdf der für mich nicht kontrollierbar war wegen fehlenden Komponenten von adobe

Option Explicit

Sub DateienLesen()
Call EventsOff
Dim DateiName As String
DateiName = Dir("D:\Temp\" & "*.xls")
Do While DateiName <> ""
If ThisWorkbook.Name <> DateiName Then
Workbooks.Open Filename:="D:\Temp\" & DateiName
Workbooks(DateiName).Worksheets(1).Range("A1:A" & Workbooks(DateiName).Worksheets(1).Range("A" & Rows.Count).End(xlUp).Row).Copy
ThisWorkbook.Worksheets(1).Range("A" & ThisWorkbook.Worksheets(1).Range("A" & Rows.Count).End(xlUp).Row + 1).PasteSpecial Paste:=xlValues, Operation:=xlNone
Workbooks(DateiName).Close SaveChanges:=True
End If
DateiName = Dir
Loop
'der export als pdf konnte ich nicht testen,da mir komponenten fehlen
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\Temp\" & ActiveSheet.Name & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Call EventsOn
End Sub

Public Sub EventsOff()
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
End Sub

Public Sub EventsOn()
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub