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
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,
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:
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
Hallo,
ich bräuchte das ganze bitte auch nochmal für das änderungsdatum der entsprechenden datei.
ist doch bestimmt auch möglich?
lg
Moin!
Tausche .DateCreated in Andrés Code mit .DateLastModified
Gruß Ralf
(21.09.2021, 19:00)schauan schrieb: [ -> ]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
Hallöchen,
Du könntest im Workbook_Open ein Calculate ausführen
Hallo, kannst du dass für mich bitte mal übersetzen? Ich verstehe das nicht.
LG