ich möchte gern aus dem Exploerer Dateien auslesen,
um diese mit den vorhandenen Dateien zu vergleichen.
Ich habe per Google dies gefunden:
Sub ATest()
Dim strDatei As String
Dim lngZ As Long
ActiveSheet.Columns(1) = ""
Application.ScreenUpdating = False
strDatei = Dir("D:\Install\")
Do Until strDatei = ""
lngZ = lngZ + 1
ActiveSheet.Cells(lngZ, 1) = strDatei
strDatei = Dir
Loop
Application.ScreenUpdating = True
End Sub
Das Problem:1. Ich würde gern den Pfad erweitern
C:\Gemeinschaft\Haus\Kosten\ ... 2012\2013 u.s.w.
und dann weitere Unterverzeichnisse auswählen
Die Daten sollten in die Tabelle: "Kosten" in die Spalte I ab Zeile2
kopiert werden.
Die vorhandenen Daten sind in der Spalte G ab Zeile 2 vorhanden.
Es sind Excel Dateien aber auch Word.
Es sollte immer nur der Text verglichen werden also ohne Endung.
Würde mich freuen wenn jemand sowas vorhanden hat.
Danke im Voraus,
mfg Walter k