Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
780to784
780to784
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateinamen auslesen

Forumthread: Dateinamen auslesen

Dateinamen auslesen
10.07.2006 12:05:10
Nöth
Hallo Zusammen,
ich möchte aus einen Verzeichnis auf der Platte die Dateinamen auslesen. Der Dateiname soll dann in der Spalte A stehen.
Dann möchte ich die Spalte A nach bestimmten Filtern bearbeiten.
Wenn die Bearbeitung abgeschlossen ist sollen die Dateinamen umbenannt werden.
mfg Thomas
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateinamen auslesen
10.07.2006 13:05:25
Ottoh
Hallo Thomas,
folgendes MAkro listet alle DAteien auf:

Sub Dateien_auflisten()
Dim pfad1 As String
Dim name1 As String
Dim name2(2000) As String
Dim i, j As Long
' Directory einlesen
i = 1
pfad1 = "h:\"   *<<<<<<<<<<<<<<<<<<<<<<< Pfad anpassen
name1 = Dir(pfad1 & "*.xls")
Do While name1 <> ""
name2(i) = name1
i = i + 1
name1 = Dir
Loop
' jetzt in eine Tabelle schreiben
Sheets(1).Select
ActiveSheet.Range("A1").Select
For j = 1 To i
ActiveCell.Formula = name2(j)
ActiveCell.Offset(1, 0).Select
Next j
End Sub

Gruß OttoH
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige