Anzeige
Archiv - Navigation
872to876
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
872to876
872to876
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Dateipfad ohne letzten Ordner auslesen

Dateipfad ohne letzten Ordner auslesen
31.05.2007 14:52:00
Chris
Hallo zusammen,
das folgende Makro liest mir den Dateipfad aus:

Sub auslesen()
Dim Pfad As String, DateiName As String
DateiName = ActiveWorkbook.Name
Pfad = Workbooks(DateiName).Path
Range("A1").Value = Pfad
End Sub


Allerdings brauche ich den Pfad ohne den letzten Ordner, also:
C:\Hallo\xy\z (Makro) soll sein C:\Hallo\xy. Hab im Archiv nichts brauchbares gefunden.
Kann man das realisieren und wenn ja wie?
Schonmal vielen Dank
Gruß
Chris

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateipfad ohne letzten Ordner auslesen
31.05.2007 14:56:24
c0bRa
Hio...
Quick & Dirty gehts so:
Modul Modul1:
Option Explicit
Sub auslesen()
    Dim Pfad As String, DateiName As String
    DateiName = ActiveWorkbook.Name
    Pfad = Left(Workbooks(DateiName).Path, InStrRev(Workbooks(DateiName).Path, "\"))
    Range("A1").Value = Pfad
End Sub

Rückmeldung nicht vergessen...
c0bRa
Perl ist die einzige Sprache, die vor und nach einer RSA-Verschlüsselung gleich aussieht.

Anzeige
AW: Dateipfad ohne letzten Ordner auslesen
31.05.2007 14:58:17
xlSchwabe
Hallo Chris,
versuch es mal damit (nicht getestet):
Range("A1").Value = left(Pfad, InstrRev(Pfad,"\")
Gruß
Jürgen

AW: Dateipfad ohne letzten Ordner auslesen
31.05.2007 14:59:00
Hajo_Zi
Hallo Chris,
bemnutze InstrRev.

Sub Chris()
Dim StPfad As String
StPfad = "C:\Hallo\xy\z"
MsgBox Left(StPfad, InStrRev(StPfad, "\") - 1)
End Sub



AW: Dateipfad ohne letzten Ordner auslesen
31.05.2007 16:27:00
Chris
Dank euch recht herzlich,
funzt, wie ich mir das vorgestellt habe.
Gruß
Chris

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige