VBA For Each Speicherpfade auslesen

Hallo Leute,

ich könnte etwas Unterstützung bei Schleifen in VBA brauchen. Vielleicht findet sich ja jemand der mir mit dem Code hilft und mir diesen ggf. auch so erklärt, dass ich dabei was lerne =)

Ich habe in der Spalte A Speicherpfade von gewissen Dokumenten aufgelistet welche bei uns auf dem Firmenserver verteilt sind. Ich möchte mir daneben in der Spalte B anzeigen lassen ob die Datei noch existiert. Wenn die Datei existiert, dann soll in der Spalte C das Speicherdatum FileDateTime angegeben werden. Wenn die Datei nicht existiert dann soll in Spalte C ein beliebiger Text (zb. File missing) stehen.
Der Rangebereich sollte zudem dynamisch sein, da die Liste in Zukunft sicherlich noch weiter wachsen wird. Ich weiß nicht ob die Info auch notwendig ist aber in der ersten Zeile befinden sich Überschriften.

Einzelne Abfragen mit FileDateTime und Dir bekomme ich hin. Es übersteigt jedoch meine Skills das ganze nun in einer Schleife zu automatisieren und zwischen den Spalten zu springen.

Hintergrund: in verwalte in unserer Abteilung viele Dokumente. Diese müssen regelmäßig auf Aktualisierungen im Netzwerk überprüft werden und bei bedarf neu ausgedruckt und physisch bereit gestellt werden (zb. Sicherheitsdatenblätter, usw.) Mit diesem Code möchte ich mir die Arbeit wesentlich erleichtern. Falls das ausgelesene Datum größer ist als das Datum meiner letzten Kontrolle, weiß ich sofort, dass es eine neuere Version gibt. Falls ein Dokument nicht mehr gefunden wird, wurde es umbenannt oder als "ungültig" erklärt.

besten Dank im Voraus und allen noch einen angenehmen Abend

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub DateienInfo_sammeln() 'unter vorige Anbindung (early binding) der Bibilothek '"Microsoft Scripting Runtime" '(über "Extras", "Verweise...", Haken bei der besagten Bib) Dim Z As Range 'Z wie Zelle Dim FSO As New FileSystemObject Dim F As File With Worksheets("Tabelle1") For Each Z In Range(Range("A1"), Range("A999999").End(xlUp)) If Not Z.Value = "" Then Set F = FSO.GetFile(Z.Value) If Not F Is Nothing Then Z.Offset(, 1) = "gefunden" Z.Offset(, 2) = F.DateLastModified End If End If Next End Sub

Sub PfadTesten() Dim arr(): arr = Tabelle1.ListObjects(1).DataBodyRange 'Läd Strg./T Tabelle in Array Dim Test For i = 1 To UBound(arr) ' Schleife prüft ob Pfad vorhanden ist If Dir(arr(i, 1)) > "" Then arr(i, 2) = "vorhanden" 'vorhanden wird ins Array geschrieben arr(i, 3) = FileDateTime(arr(i, 1)) 'Datum der letzten Änderung Else arr(i, 2) = "fehlt" 'fehlt wird ins Array geschrieben arr(i, 3) = "keine" End If Next i Tabelle1.ListObjects(1).DataBodyRange = arr 'Array wird in Strg./T Tabelle zurückgeschrieben End Sub

Beliebteste Forumthreads (12 Monate)

VBA For Each Speicherpfade auslesen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread