Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
128to132
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
128to132
128to132
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Übergeordneter Ordner

Übergeordneter Ordner
27.06.2002 10:30:49
Heinz A. Wankmüller
Hallo Excelfreunde,
wie kann man (per VBA) den Pfad des übergeordneten Ordners definieren?
Ich habe folgendes ohne Erfolg probiert:

Pfad = ThisWorkbook.Parent.Path

Danke
Heinz

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

Betreff
Datum
Anwender
Anzeige
Re: Übergeordneter Ordner
27.06.2002 11:09:24
Coach
Hallo Heinz,

ohne eine eigene Funktion geht das so:
pfad = ThisWorkbook.Path
ChDrive (Left(pfad, 2))
ChDir (pfad)
ChDir ("..")
pfad = CurDir(Left(pfad, 2))

Als Funktion so:

Function IstUnterOrdnerVon(Pfad As String) As String
Dim i As Integer
For i = Len(Pfad) To 3 Step -1
If Mid(Pfad, i, 1) = "\" Then
IstUnterOrdnerVon = Left(Pfad, i - 1)
Exit Function
End If
Next
End Function

Gruß Coach

Re: Übergeordneter Ordner
27.06.2002 11:11:30
Timo
Du möchtest also haben:

Excel-Datei = C:\Programme\Excel\Test.xls
Übergeordneter Ordner = C:\Programme\Excel\

???

Das ist recht einfach:

Jetzt musst du nur der Variable Dateipfad vorher den Pfad übergeben...

Gruss
Timo

Anzeige
Re: DANKE
27.06.2002 11:24:20
Heinz A. Wankmüller
Hallo Coach,
funktioniert wunderbar!
Herzlichen Dank
Heinz
Re: Übergeordneter Ordner
27.06.2002 11:25:10
Heinz A. Wankmüller
Hallo Timo,
funktioniert!
Herzlichen Dank
Heinz

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen