Erstell Datum einer PDF anzeigen lassen

[joozii]

Hallo, 

ich benötige bitte wieder eure Hilfe. 
Ich möchte von verlinkten PDF Dateien das Erstelldatum anzeigen lassen. 

Die Artikel Nummer verlinke ich mit einer PDF Datei um Artikel und Daten sich anzeigen zu lassen. Jetzt möchte ich in einer zusätzlichen Spalte mir die Daten anzeigen lassen, wann diese Datein erstellt worden sind. So möchte ich die PDF Datei relativ aktuell und auf den neuesten Stand halten. 

Gibt es da eine Möglichkeit? 


LG Daniel 

[schauan]

Hallöchen

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B
1	c:\Temp\Tester.htm	03.09.2021 18:12

Zelle	Formel
B1	=Created(A1)

Verwendete Systemkomponenten: [Windows (64-bit) NT 10.00] / MS Excel 365

Diese Tabelle wurde mit Tab2Html (v2.7.1) erstellt. ©Gerd alias Bamberg

und dazu dieser Code in ein Modul

Code:

Option Explicit

Public Function Created(rng As Range)
   Dim objFso As Object, objFile As Object, strFile$
   strFile = "c:\Temp\Tester.htm"
   strFile = rng.Text
   Set objFso = CreateObject("Scripting.FileSystemObject")
   Set objFile = objFso.GetFile(strFile)
   Created = objFile.DateCreated
End Function

[Case]

Hallo,  

als Alternative "FileDateTime":

Code:

Option Explicit
Function fncLast(ByVal strTMP As String) As String
    fncLast = FileDateTime(strTMP)
End Function
Function fncLast1(ByVal strTMP As String) As String
    fncLast1 = Format(FileDateTime(strTMP), "DD.MM.YYYY")
End Function

 
Einmal mit und einmal ohne Zeitstempel. Eingabe, wenn der Pfad- und Dateiname in z. B. A1 steht:

Code:

=fncLast(A1)

Code:

=fncLast1(A1)

[joozii]

Hallo Ihr zwei,

habe gerade die erste Variante getestet und läuft und bin mit dem Ergebnis zu frieden.
mit VB bzw Makros habe ich noch gar nicht gearbeit. fummel mich da gerade so ein.

die zweite Variante werde ich auch noch testen.

vielen vielen Dank für eure Mühe

lg

[joozii]

Hallo,

ich bräuchte das ganze bitte auch nochmal für das änderungsdatum der entsprechenden datei.
ist doch bestimmt auch möglich?

lg

[RPP63]

Moin!
Tausche .DateCreated in Andrés Code mit .DateLastModified

Gruß Ralf

[joozii]

super vielen dank

[joozii]

Hallöchen

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B
1	c:\Temp\Tester.htm	03.09.2021 18:12

Zelle	Formel
B1	=Created(A1)

Verwendete Systemkomponenten: [Windows (64-bit) NT 10.00] / MS Excel 365

Diese Tabelle wurde mit Tab2Html (v2.7.1) erstellt. ©Gerd alias Bamberg

und dazu dieser Code in ein Modul

Code:

Option Explicit

Public Function Created(rng As Range)
   Dim objFso As Object, objFile As Object, strFile$
   strFile = "c:\Temp\Tester.htm"
   strFile = rng.Text
   Set objFso = CreateObject("Scripting.FileSystemObject")
   Set objFile = objFso.GetFile(strFile)
   Created = objFile.DateCreated
End Function

Hallo,

gibt es die Möglichkeit, dass das Datum bei jedem öffnen der xlsm datei das Datum (DateLastModified) der pdf Dateien neu ausließt?

Der Hintergrund ist dieser, dass die pdf Dateien in unbestimmten Abständen aktualisiert werden. Ich möchte immer das Datum der letzten Änderung angezeigt bekommen.

Aktuell bleibt das alte Datum stehen und erst wenn ich auf die Zelle mit =Created(R2) zbsp. gehen und mit enter bestätige, dann zeigt er erst das letzte Datum an.

Für Hilfe bin ich sehr dankbar.

lg

[schauan]

Hallöchen,

Du könntest im Workbook_Open ein Calculate ausführen

[joozii]

Hallo, kannst du dass für mich bitte mal übersetzen? Ich verstehe das nicht. 

LG