Herbers Excel-Forum - das Archiv
string auslesen
Betrifft: string auslesen
von: swen
Geschrieben am: 19.12.2006 15:21:24
Hallo an alle,
wie kann ich aus einem string strWorkbookNameinklPath in dem
"C:\Auswertung.xls"
oder "C\Test\PV45.xls"
usw.
den Dateinamen von dem Pfad trennen
gruß
swen
Betrifft: AW: string auslesen
von: Rudi Maintaire
Geschrieben am: 19.12.2006 15:28:32
Hallo,
Sub tt()
Dim txt, strPfad As String, strDatei As String
txt = "C\Test\PV45.xls"
strDatei = Right(txt, Len(txt) - InStrRev(txt, "\"))
strPfad = Left(txt, Len(txt) - Len(strDatei) - 1)
End Sub
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
Betrifft: AW: string auslesen
von: K.Rola
Geschrieben am: 19.12.2006 16:13:41
Hallo,
Function Name_pur(Dateiname As String) As String
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Name_pur = fso.GetFileName(Dateiname)
End Function
Sub teste()
MsgBox Name_pur("C:\Ordener\Verzeichnis\deineDatei.xls")
End Sub
Gruß K.Rola
Betrifft: das ist ...
von: Rudi Maintaire
Geschrieben am: 19.12.2006 16:16:42
... natürlich wie immer superelegant.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
Betrifft: AW: das ist ...
von: Swen
Geschrieben am: 19.12.2006 21:00:05
danke euch beiden habe die variante von K.Rola genommen,
wobei ich die andere aber schneller verstanden hatte!
gruß
swen