Herbers Excel/VBA-Archiv
Dateiname extrahieren
- Dateiname extrahieren von Odin001 vom 25.08.2004 18:27:12
- AW: Dateiname extrahieren - von Ulf am 25.08.2004 18:32:00
 |
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
| |