Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.06.2024 22:07:02
25.06.2024 21:01:55
25.06.2024 19:21:44
Anzeige
Archiv - Navigation
940to944
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
940to944
940to944
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Dateien nach Tabelleninhalt sortieren

Dateien nach Tabelleninhalt sortieren
10.01.2008 13:58:28
Markus
Hallo zusammen,
hab alle Dateinamen eines Ordners mit einem Makro in eine Spalte eingelesen.
Muss diese Liste abgleichen mit anderen.
Ist es möglich in Excel, wenn ich eine vorhandene Liste mit Dateinamen habe das Excel alle Datein aus der Liste mit dem Inhalt des Ordners abgleicht die gefundenen Datein makiert oder mir die Datein, am besten in einen neuen Ordner kopiert.
Danke

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateien nach Tabelleninhalt sortieren
12.01.2008 00:17:39
Chris
Servus Markus,
vielleicht hilft dir das weiter:

Sub File()
Dim Fso, DateiName
Dim strPfad As String
Dim iLauf As Integer
Dim lngLetzte As Long
lngLetzte = Range("A65536").End(xlUp).Offset(0, 0).Row
strPfad = ThisWorkbook.Path & "\" & "Vorhandene"
If Dir(strPfad, vbDirectory) = "" Then
MkDir strPfad ' neuer Ordner wird angelegt
End If
For iLauf = 1 To lngLetzte
Set Fso = CreateObject("Scripting.FileSystemObject")
DateiName = ActiveWorkbook.Path & "\" & Cells(iLauf, 1)
If Fso.FileExists(DateiName) Then ' Prüfung auf Vorhandensein
Workbooks.Open DateiName
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\Vorhandene\" & Cells(iLauf, 1) ' _
Speichern in neuem Ordner
ActiveWorkbook.Close
End If
Next lauf
End Sub


Für dieses Beispiel muss der Code in das Tabellenblattmodul eingefügt werden, wo die Dateinamenliste (in der Art: xyz.xls) steht. In diesem Fall stehen die Dateinamen in Spalte A (Cells(iLauf,1)).
Die Datei muss in den zu durchsuchenden Ordner. Datei öffnen, Makro starten. Es werden im Ordner die Dateinamen verglichen, wenn vorhanden, dann kurz geöffnet und im neu angelegten Unterordner abgespeichert, dann wieder geschlossen.
Gruß
Chris

Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige