Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1604to1608
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1604to1608
1604to1608
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Erstelldatum einer PDF auslesen

Erstelldatum einer PDF auslesen
08.02.2018 09:59:59
Markus
Hallo zusammen,
ich möchte gerne das Erstelldatum einer PDF Datei in Excel auslesen. Dazu muss beachtet werden, dass dies nichts mit dem standardmäßigen Erstelldatum zu tun hat.
Ich möchte gerne das Datum, wann die PDF das erste mal erstellt wurde.
Es gab zwar schon einmal hier einen ähnlichen Beitrag, nur ist die Lösung undeutlich formuliert.
https://www.herber.de/forum/archiv/1352to1356/1353923_Erstelldatum_einer_PDF_auslesen.html
Kann mir jemand helfen und beschreiben wie die Lösung aus dem anderen Forumsbeitrag aussieht?
Wie kann ich den Klartext der PDF auslesen?
Grüße

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Erstelldatum einer PDF auslesen
08.02.2018 11:27:32
ChrisL
Hi Markus
Ist auch neu für mich. Schau mal ob du damit das richtige Datum bekommst (formatieren kann man später noch).
Sub t()
Dim buffer As String, ar As Variant, i As Integer
Open "C:\Pfad\Datei.pdf" For Input As #1
Do While Not EOF(1)
Line Input #1, buffer
If buffer Like "*/CreationDate*" Then Exit Do
Loop
Close #1
ar = Split(buffer, "/")
For i = LBound(ar) To UBound(ar)
If ar(i) Like "CreationDate*" Then
buffer = Left(ar(i), InStr(1, ar(i), ")"))
Exit For
End If
Next i
MsgBox buffer
End Sub
cu
Chris
AW: Erstelldatum einer PDF auslesen
08.02.2018 14:54:28
Markus
Danke ChrisL, der Code hat super funktioniert.
Kannst du mir jetzt noch einen Tipp geben, wie ich das Datumsformat umstelle?
Oder mit welcher Funktion?
Aktuell sieht das Format so aus: CreationDate (D:20180206124433+01'00')
Grüße
Anzeige
PDF Erstelldatum aus Metadaten lesen
08.02.2018 15:04:33
ChrisL
Hi Markus
Freut mich, dass es funktioniert hat.
Sub t()
MsgBox GetPDFCreationDate("C:\Pfad\Datei.pdf")
End Sub

Private Function GetPDFCreationDate(strDatei As String) As Date
Dim buffer As String, ar As Variant, i As Integer
Open strDatei For Input As #1
Do While Not EOF(1)
Line Input #1, buffer
If buffer Like "*/CreationDate*" Then Exit Do
Loop
Close #1
ar = Split(buffer, "/")
For i = LBound(ar) To UBound(ar)
If ar(i) Like "CreationDate*" Then
buffer = Left(ar(i), InStr(1, ar(i), ")"))
buffer = Mid(buffer, InStr(1, buffer, ":") + 1, 8)
Exit For
End If
Next i
GetPDFCreationDate = DateSerial(Mid(buffer, 1, 4), Mid(buffer, 5, 2), Mid(buffer, 7, 2))
End Function
cu
Chris
Anzeige

212 Forumthreads zu ähnlichen Themen

Daten aus vielen xls-Datein auslesen
Daniel

Hallo Profis,
ich suche einen VBA-Befehl für folgendes:
Ich habe einen Ordner mit vielen xls-Dateien. Diese sollen nun alle in einer Datei zusammengefahren werden, alle Zeilen, wenn der Wert der 2. Spalte links mit "12345" anfängt.
Geht dies?
Vielen Dank vorab.
Daniel
...
18.08.2008 15:07:01
Thread-ID: 1002621
2 Beiträge
Anzeige
Datensätze aus Blatt auslesen
bully

Hallo Leute,
ich möchte mit VBA aus dem Blatt2 ganze Datenzeilen auslesen, wenn diese in der Spalte3 den Wert enthalten, den ich in Blatt3 in Zelle F6 vorgebe. Die Datenzeilen sollen dann in Blatt3 ab Zeile14 eingefügt werden.
Nach etlichen Selbstversuchen gebe ich jetzt auf.
Gruss...
02.09.2008 15:55:27
Thread-ID: 1006842
6 Beiträge
Daten aus einer anderen Mappe auslesen
Uwe

Hallo zusammen, habe mir einen funktionierenden Einsatzplan für 24 MA und 3 Schichten zusammengebastelt welcher die Monate inkl. Feiertage und Wochenenden dynamisch generiert.
Nun möchte ich wenn ich im zum Beispiel den Einsatzplan für die Mitarbeiter für Februar abrechne, das Excel sich...
14.10.2008 22:12:36
Thread-ID: 1016451
5 Beiträge
Anzeige
Daten aus Dateien auslesen
Bark

Ich habe ein Makro geschrieben, der Dateien in einem bestimmten Verzeichnis der Reihe nach öffnet und bestimmte Inhalte in Variablen packt und die Werte dieser Variablen in einer anderen Datei (Gesamtliste) wieder einfügt.
Läuft alles soweit gut. Aber die Laufzeit könnte besser sein. Was ka...
02.02.2009 14:29:21
Thread-ID: 1046247
4 Beiträge
Daten aus mehreren Dateien auslesen/anfüg
Ines

Hallo,
folgende Ausgangssituation. Ich habe ca. 70 Exceldateien, alle mit dem gleichen Tabellenaufbau. Alle befinden sich auch in einem Ordner. Die Ergebnisse auf den Tabellenblättern möchte ich in einem neuen Tabellenblatt zusammenfassen.
Die Tabellenblätter sind folgendermaßen aufgeba...
08.03.2009 18:42:10
Thread-ID: 1057929
5 Beiträge
Daten aus geschlossener Datei auslesen
Reinhardt

Hallo.
Mit der gegoogelten u.a Sub komme ich in meiner Aufgabenstellung fast schon klar. Meine Frage: Wie muß der Dateipfad geschrieben werden, damit er mir z.B. Das Tabellenblatt "Test" ausließt? Danke im voraus. Gruß Reinhardt Sub DatenImport() Dim rngTarget As Range Set rngTarget = R...
24.04.2009 13:34:00
Thread-ID: 1070948
2 Beiträge
Daten aus Zelle per CSV nur bedingt auslesen
Heiko

Hallöchen,
ich habe eine Datendatei in CSV mit Simikolon getrennt ohne Umbrüche.
Diese Lade ich auf eine Seite hoch, die mir die jeweiligen Zellen innerhalb einer Datenbank ausfüllt.
Meine Frage wäre jetzt, ob es eine Möglichkeit gibt, durch eingaben innerhalb der CSV-Datei den Text...
13.06.2009 20:14:31
Thread-ID: 1081318
4 Beiträge
Daten aus Homepage auslesen
Joachim

Hi,
ich habe eine Exceltabelle wo verschiedenen Listen hinterlegt sind. Per Makro greife ich auf die Listen zu. Diese Listen sind im Prinzip Daten, die ich aus einer Homepage runterhole, also natürlich per copy und paste.
ich hatte mit nun überlegt, es wäre natürlich um einiges leichter...
10.08.2009 21:29:50
Thread-ID: 1094875
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
2
5
4
3
3
4
1
3
3
8
1
2
3
5
1
4
2
2
2
4
1
1
1
1