Ursprüngliches Erstelldatum einer Pdf

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

&ltxmp:ModifyDate&gt2017-10-23T13:12:16-06:00&lt/xmp:ModifyDate&gt &ltxmp:CreateDate&gt2017-10-23T13:12:14-06:00&lt/xmp:CreateDate&gt &ltxmp:MetadataDate&gt2017-10-23T13:12:16-06:00&lt/xmp:MetadataDate&gt

Danke für die schnellen Antworten!!
@onur. Hast natürlich Recht. Ich versuche es noch einmla etwas spezifischer.
Ich beziehe mich auf diesen Code.

Sub t() 'Code von Chris
Dim buffer As String
Dim ar As Variant
Dim i As Integer
Open "C:\MeinPfad.pdf" For Input As #1
Do While Not EOF(1)
Line Input #1, buffer
If buffer Like "*/CreationDate*" Then Exit Do 'Das Datum befindet sich so in meiner test
'pdf: /CreationDate (D:20200424102316+02'00')
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

Bei der Verwendung der Funktion habe ich einen Typenfehler erhalten und unabhängig von der Formatierung wollte ich zunächst das Datum da stehen haben.
Ich habe es mit verschiedenen pdfs versucht und bin dabei, wie von Fennek schon angemerkt, auf eine andere Schreibweise gestoßen und hab diese auch berücksichtigt. Ich hab auch versucht einfach mal die nächsten 10 Zeichen neben dem Creation date auszugeben, oder den kompletten Inhalt in Excel zu lesen.
Am Ende kam jedoch immer die Rückmeldungin in der MsgBox oder zelle in einer derart codierten Weise: z¼7}üþf¨ÿB9á¡@pÆ.ñÕùáïpx_bB{` (so kodiert wird ja der Inhalt der pdf dargestellt aber nicht die Metadaten, daher meine Frage zu der MsgBox die eine solche Meldung bringt)
Danke nochmals für eure Rückmeldungen! Hoff ich konnte das Problem etwas klarer darstellen

"Dann füge doch mal "meinen" Code vor"
Ich meine ich habe deutlich gemacht, dass ich den Code von Chris verwedet habe. Änderungen, dass es jetzt in eine Zelle schreibt oder nicht oder sonstiges sind für das Problem welches ich versucht habe zu beschreiben nicht relevant.
Denn ursprügnglich habe ich versucht diesen Code auszuführen an meinen Dateipfad (wie oben gezeigt) angepasst, und nur zeigen wollen, dass ich verschieden Punkte versucht habe und nicht hier einfach eine fertige Lösung beim ersten Problem abstauben wollte.
Aber ich werde in Zukunft versuchen direkt eine Beispieldatei zu erzeugen, damit es auch besser möglich ist es nachzuvollziehen.
Ich hab das Problem nochmal betrachtet.
Die Schleife wird bei mir nur etwa 4mal durchlaufen. Dann hört sie mit der Zeile:" z¼7}üþf¨ÿB9á¡@pÆ.ñÕùáïpx_bB{`" auf. ohne überhaupt in die Nähe von CreateDate zu kommen.
Sprich sie bricht vorher ab und gibt so den letzten Wert gespeichert in buffer wieder.
Mir ist nicht klar warum Sie abbricht, da das Dokument ja bis %%EOF durchsucht werden sollte.
Ich geh jetzt mal davon aus, dass es Probleme mit der Textcodierung sind. (Ich hab die pdf mit Word erstellt und durch Microsoft print gespeichert).
[Falls mir jemand erkären kann wieso es abbricht, wär ich sehr dankbar - das lässt mich noch nicht ganz in Ruhe)
Jedenfalls öffne ich die Datei jetzt im Binärmodus und es auslesen klappt.
Nochmals danke für eure Rückmeldungen! Hat mich sehr gefreut!

Sub tt() Dim strSuch, strTxt, MyLoc Dim pos, le, dat, zt, str, tim, DatNam strSuch = "CreateDate>" DatNam = "DeinePDF_InklusivePfad.pdf" If Dir(DatNam) "" Then Open DatNam For Binary As #1 Do While MyLoc 0 Then str = Mid(strTxt, pos + 11, 19) str = Replace(str, "-", "/") tim = Right(str, 8) dat = Left(str, 10) dat = DateValue(dat) + TimeValue(tim) MsgBox dat End If MyLoc = Loc(1) Loop Close 1 End If End Sub

Beliebteste Forumthreads (12 Monate)

Ursprüngliches Erstelldatum einer Pdf

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

212 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Ursprüngliches Erstelldatum einer Pdf

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

212 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread