Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.06.2025 22:11:12
24.06.2025 21:29:43
24.06.2025 19:48:50
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Dateinamen aus Pfad extrahieren

Dateinamen aus Pfad extrahieren
12.03.2014 13:15:34
Tom
Hallo,
habe schon eineige Versuche hinter mir, klappt aber nicht Kann mir jemand einen kurzen Code zeigen, der mir den Dateinamen liefert?
Danke
TOM

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateinamen aus Pfad extrahieren
12.03.2014 13:19:27
Rudi
Hallo,
name=split(pfad,"\")(ubound(split(pfad,"\")))
Gruß
Rudi

AW: Dateinamen aus Pfad extrahieren
12.03.2014 13:21:19
Tom
so einfach und doch so gut!!!
DANKE!
TOM

AW: Dateinamen aus Pfad extrahieren
12.03.2014 14:15:37
Tom
Hi, doch noch ein Problem,
ich lasse mir alle excel-Dateien aus einem bestimmten Verzeichnis auflisten in einer tabelle. Hierbei erscheint immer eine excel-Datei die mit ~$...xlsx anfängt. Was ist das und wie kann ich das Makro ändern um diese nicht anzuzeigen. Im explorer ist diese Datei nicht zu sehen!#
Gruß TOM

Anzeige
~$...xlsx
12.03.2014 14:32:20
Rudi
Hallo,
die existiert nicht wirklich. Es ist, soviel ich weiß, die Wiederherstellungsdatei für eine geöffnete Datei.
Ich kann sie im Explorer allerdings sehen, da ich auch versteckte Dateien anzeigen lasse.
Frag den Status (versteckt) oder die ersten beiden Buchstaben ab.
Gruß
Rudi

Anzeige
AW: ~$...xlsx
12.03.2014 14:45:25
Tom
Hi,
habe in If-Anweisung folgendes eingefügt: Left(fDatei, 2) = "~$". Aber die Datei wird trotzdem ausgegeben. Was ist das?
TOM

AW: ~$...xlsx
12.03.2014 15:09:17
Rudi
Hallo,
wenn ich deinen Code kennen würde, könnte ich mehr sagen.
z.B.
Sub ListFiles()
Dim OFS As Object, oFolder As Object, oFile As Object
Dim oDict As Object
Dim sFolder As String
Set OFS = CreateObject("Scripting.filesystemobject")
Set oDict = CreateObject("Scripting.dictionary")
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = ThisWorkbook.Path & "\"
If .Show = -1 Then
sFolder = .SelectedItems(1)
Set oFolder = OFS.getfolder(sFolder)
For Each oFile In oFolder.Files
If LCase(oFile) Like "*.xls*" Then      'nur Excel
If (oFile.Attributes And 2) = 0 Then  'keine versteckten
oDict(oFile) = oFile.Name
End If
End If
Next
With Sheets.Add
With .Cells(1, 1)
.Resize(oDict.Count) = _
WorksheetFunction.Transpose(oDict.keys)
.Resize(oDict.Count).Offset(, 1) = _
WorksheetFunction.Transpose(oDict.items)
End With
.Columns.AutoFit
End With
End If
End With
End Sub

Gruß
Rudi

Anzeige
AW: ~$...xlsx
12.03.2014 15:11:17
Tom
Das hilft schon, danke!!!
sonnige Grüße
TOM

AW: Dateinamen aus Pfad extrahieren
12.03.2014 13:20:21
Klaus
Hallo Tom
debug.print ActiveWorkbook.Name
Grüße,
Klaus M.vdT.

AW: Dateinamen aus Pfad extrahieren
12.03.2014 13:22:21
Tom
Problem gelöst - danke
Gruß
Tom
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
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