Microsoft Excel

Herbers Excel/VBA-Archiv

Dateiname extrahieren

Betrifft: Dateiname extrahieren von: Odin001
Geschrieben am: 25.08.2004 18:27:12

Hallo,

habe folgendes Problem.
Ich möchte mit

For i = 3 To zeilen_2 Step 1
spfad = Range("G" & i)
sfile = Right$(spfad, Len(spfad) - InStrRev(spfad, "\"))
Range("G" & i).Delete
Range("G" & i).Value = sfile
Next i

aus einer Spalte in der komplette Pfade stehen, die Namen der Dateien extrahieren. Das funktioniert auch soweit.

Nur!!! Es wird nur jeder zweite Name extrahiert. Siehe Bsp. unten

Step 1 bzw. andere Spalte zum Schreiben helfen auch nicht weiter.

Bsp: vorher

E:\Studium\Diplomarbeiten\meine Diplomarbeit\Daten geordnet\03q.xls
E:\Studium\Diplomarbeiten\meine Diplomarbeit\Daten geordnet\03u.xls
E:\Studium\Diplomarbeiten\meine Diplomarbeit\Daten geordnet\04b.xls
E:\Studium\Diplomarbeiten\meine Diplomarbeit\Daten geordnet\08u000000.xls
E:\Studium\Diplomarbeiten\meine Diplomarbeit\Daten geordnet\13L000000.XLS
E:\Studium\Diplomarbeiten\meine Diplomarbeit\Daten geordnet\13Q000000.XLS
E:\Studium\Diplomarbeiten\meine Diplomarbeit\Daten geordnet\15L000000.XLS
E:\Studium\Diplomarbeiten\meine Diplomarbeit\Daten geordnet\15Q000000.XLS
E:\Studium\Diplomarbeiten\meine Diplomarbeit\Daten geordnet\15U000000.XLS

danach

03q.xls
04b.xls
13L000000.XLS
15L000000.XLS
15U000000.XLS

Ich weiß nicht mehr weiter...

Mfg, Odin001

  


Betrifft: AW: Dateiname extrahieren von: Ulf
Geschrieben am: 25.08.2004 18:32:00

Löschen immer von unten!

For i = zeilen_2 to 3 Step -1


Ulf


 

Beiträge aus den Excel-Beispielen zum Thema "Dateiname extrahieren"