Office: (Office 2010) Ordner auslesen und aktuelle Dateinamen einlesen

jonw · 9. Dezember 2014

Hallo,

ich möchte über ein VBA-Makro einen Ordner auslesen und die Dateinamen von aktuellen (= neu erstellten) .gcode-Dateien mit Datum einlesen. Das Ganze soll automatisch passieren, wenn die Excel-Datei geöffnet wird. Dabei soll die aktuellste Datei in der untersten Zeile stehen. Letzteres funktioniert noch nicht.

Manuell nach Datum sortieren kommt für mich nicht in Frage, es soll automatisch passieren. Sortierungsmakros kommen auch nicht in Frage. Es sollen nämlich auch Kommentare zu den Daten verfasst werden. Diese werden von Excel durcheinander geschmissen, sobald man mehrere Sortierungsmakros hintereinander laufen lässt.

Ich hoffe, ich konnte mein Problem klarmachen.

Mein bisheriger Code:

Code:

Option Explicit
Option Base 1
Sub DateienMitDoc()
Dim FPath As String
Dim FEndung As String
Dim FName As String
Dim DateiNamen() As String
Dim DateiDatum() As String
Dim X As Long
Dim I As Long

On Error GoTo ENDE

FPath = (Application.ThisWorkbook.Path & "\") ' Pfad der Suche angeben und letzten _
Slash \ hinzufügen"
FEndung = "*.gcode" ' Dateiendung für Suche festlegen
X = 1
ReDim Preserve DateiNamen(X) ' Array dimensionieren
ReDim Preserve DateiDatum(X) ' Array dimensionieren
FName = Dir(FPath & FEndung)
DateiNamen(X) = FName ' erste Datei einlesen und im Array speichern
DateiDatum(X) = FileErstDatum(FPath & FName) ' Datum/Uhrzeit der Datei einlesen und im Array _
speichern
FName = Dir

DateiDatum(X) = Format(DateiDatum(X), "dd.mm.yyyy")

Do While FName ""
X = X + 1

ReDim Preserve DateiNamen(X) ' Array dimensionieren
ReDim Preserve DateiDatum(X) ' Array dimensionieren
DateiNamen(X) = FName ' Über Schleife einlesen

DateiDatum(X) = FileErstDatum(FPath & FName) ' Datum/Uhrzeit der Datei einlesen und im Array _
speichern
DateiDatum(X) = Format(DateiDatum(X), "dd.mm.yyyy")

FName = Dir
Loop

For I = 1 To X
ActiveSheet.Range("B3:B1000000").Cells(I).Value = DateiNamen(I)

ActiveSheet.Range("C3:C1000000").Cells(I).Value = DateiDatum(I)
Next

Exit Sub
ENDE: MsgBox "Fehler aufgetreten"
End Sub

Function FileErstDatum(DATEI) As String
FileErstDatum = CreateObject("Scripting.FileSystemObject").GetFile(DATEI).DateCreated
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielen Dank!
jonw

:)

haklesoft · 10. Dezember 2014

Hallo Jonas,

Du könntest die Dateinamen und das Änderungsdatum in eine Collection einlesen und dabei auch gleich per [before] die passende Reihenfolge herstellen ohne sortieren zu müssen. Code:

Option Explicit

Sub DirSortedFiles()
Const sPattern As String = "*.xlsm" '"*.gcode"
Dim sPfad As String, sDatei As String
Dim colDir As New Collection
Dim dDate As Date
Dim sEintrag As String
Dim bInsert As Boolean
Dim i As Long

With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = True Then
sPfad = .SelectedItems(1)
sPfad = IIf(Right(sPfad, 1) = "\", sPfad, sPfad & "\")

sDatei = Dir(sPfad & sPattern)
Do While sDatei ""
bInsert = False
dDate = FileDateTime(sPfad & sDatei)
sEintrag = CDbl(dDate) & "#" & sDatei & "#" & dDate

If colDir.count < 1 Then
colDir.Add sEintrag
Else
For i = 1 To colDir.count
If sEintrag < colDir(i) Then
colDir.Add sEintrag, , i
bInsert = True
Exit For
End If
Next i
If bInsert = False Then colDir.Add sEintrag
End If
sDatei = Dir
Loop
For i = 1 To colDir.count
ActiveSheet.Range("B3:B1000000").Cells(i).Value = Split(colDir(i), "#")(1)
ActiveSheet.Range("C3:C1000000").Cells(i).Value = Split(colDir(i), "#")(2)
Next i
End If
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

jonw · 11. Dezember 2014

Wow, das funktioniert schon ziemlich gut! Vielen Dank.

Wie schaffe ich es, direkt den Ordner zu nehmen, in dem sich die Excel-Datei befindet? In meinem Code habe ich es mit

FPath = (Application.ThisWorkbook.Path & "\")

gemacht. Wie integriere ich das in deinen Code?

Edit:
Habe With und die erste If-Bedingung bedingung weggenommen und für "sPfad = .SelectedItems(1)" "sPfad = (Application.ThisWorkbook.Path & "\")" eingefügt, funktioniert.

haklesoft · 11. Dezember 2014

Hallo Jonas,

gut, dann hat die Hilfe zur Selbsthilfe ja geklappt.

jonw · 12. Dezember 2014

Eine weitere Sache: Die Dateinamen werden immer in das Arbeitsblatt eingelesen, welches ich beim letzten Schließen der Excel-Datei geöffnet hatte. Wie schaffe ich es, dass er jedes Mal in Arbeitsblatt 3 schreibt?

Edit: Es wird das Arbeitsblatt genommen, welches als letztes aktualisiert wurde.

haklesoft · 12. Dezember 2014

Hallo Jonas,

die For-Schleife, in der es um ActiveSheet geht ersetzt Du durch Code:

Const csSHEET As String = "Tabelle 3" '
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2010) Ordner auslesen und aktuelle Dateinamen einlesen

Ordner auslesen und aktuelle Dateinamen einlesen

Ordner auslesen und aktuelle Dateinamen einlesen

Ordner auslesen und aktuelle Dateinamen einlesen

Ordner auslesen und aktuelle Dateinamen einlesen - Similar Threads - Ordner auslesen aktuelle

Sharepoint Ordner auslesen

Ordner und Unterordner auslesen mit Anzahl der Unterordner/Dateien pro Ordner

Ordner auslesen

Ordner auslesen auf Excel

Dateinamen aus Ordner auslesen

Desktoppfad auslesen und Ordner anlegen (wenn nicht vorhanden)

Ordner mit Rechnungsnr. auslesen und nächste verwenden