Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
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)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige