Dateinamen in Excel einfügen

Computer: Software & Programmierung Office Software
1

Hallo zusammen!

Ich möchte alle Dateinamen eines Verzeichnisses in eine Excel-Tabelle eintragen. Hat jemand eine Idee, wie man das vernünftig, also nicht alle per Hand eintragen, hinbekommen kann?

Danke
Stephan

2

Ich möchte alle Dateinamen eines Verzeichnisses in eine
Excel-Tabelle eintragen. Hat jemand eine Idee, wie man das
vernünftig, also nicht alle per Hand eintragen, hinbekommen
kann?

Servus Stephan

Z. B. mit einem kleinen Makro, das alle Dateinamen im aktuellen Verzeichnis in die 1. Spalte des aktuellen Excel-Blattes schreibt:

Sub AlleDateien()
 Dim dat As String
 Dim z As Integer
 z = 0
 dat = Dir(".")
 Do While dat \> ""
 z = z + 1
 Cells(z, 1) = dat
 dat = Dir
 Loop
End Sub

MfG
Roland

3

Geht sehr gut! HAb ich auch die Möglichkeit den Datei-Suffix wegzulassen?

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

4

Hi Stephan.

Geht sehr gut! HAb ich auch die Möglichkeit den Datei-Suffix
wegzulassen?

ja!

Sub AlleDateien()
Dim dat As String
Dim z As Integer
z = 0
dat = Dir(".")
Do While dat > „“
z = z + 1

 if mid(dat,len(dat-4),1) = "." then
 dat = left(dat,len(dat-4)) 
 end if

Cells(z, 1) = dat
dat = Dir
Loop
End Sub

Ciao,

Uwe

5

Verbesserung
Das funktioniert so nur, wenn der Suffix 3-stellig ist, das muss aber nicht unbedingt sein.

Hier kommt die verbesserte, allgemeine Version:

Sub AlleDateien()
 Dim dat As String
 Dim z As Integer, pkt As Integer
 z = 0
 dat = Dir(".")
 Do While dat \> ""
 pkt = InStrRev(dat, ".")
 z = z + 1
 If pkt \> 0 Then
 Cells(z, 1) = Left(dat, pkt - 1)
 Else
 Cells(z, 1) = dat
 End If
 dat = Dir
 Loop
End Sub

MfG
Roland