Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Pfad dann zwei Verzeichnisse zurück


Betrifft: Pfad dann zwei Verzeichnisse zurück von: Sergej
Geschrieben am: 01.08.2017 10:38:16

Hallo Leute,

hier mit bekomme ich den Pfad (ohne Dateiname) der aktuell geöffnete Datei.

Sub StellePfadDar()
 MsgBox "Pfad der Arbeitsmappe:" & vbLf & ThisWorkbook.Path
End Sub
Was muss ich bitte ändern, um zwei Verzeichnisse davor zu erhalten ..\..\

Gruß,
Sergej

  

Betrifft: AW: Pfad dann zwei Verzeichnisse zurück von: Luschi
Geschrieben am: 01.08.2017 11:18:21

Hallo Sergej,

hier mal mein Versuch:

Function Pfad_2_davor()
    Dim sArr() As String, sPfad As String, _
        i1 As Integer, i2 As Integer
    
    sPfad = ThisWorkbook.Path
    Debug.Print sPfad
    sArr = Split(sPfad, "\", -1, vbTextCompare)
    i1 = UBound(sArr())
       
    sPfad = ""
    
    For i2 = 0 To i1 - 2
        sPfad = sPfad & sArr(i2) & "\"
    Next i2
    Erase sArr
    Pfad_2_davor = sPfad
End Function

Sub testen()
    MsgBox Pfad_2_davor()
End Sub
Gruß von Luschi
aus klein-Paris


  

Betrifft: Eine weitere Möglichkeit... von: Case
Geschrieben am: 01.08.2017 12:57:29

Hallo, :-)

... wäre "ChDir" und dann "CurDir": ;-)

Option Explicit
Sub Main()
    ChDir ThisWorkbook.Path
    Debug.Print ThisWorkbook.Path
    ChDir ("..\..")
    Debug.Print CurDir()
End Sub
Servus
Case



  

Betrifft: und noch eine ... von: KlausF
Geschrieben am: 01.08.2017 14:22:31

Hi, aus meiner Sammlung:

Function GetParentDir(iDir As Integer) As String
   Dim iChar As Integer, iAct As Integer
   Dim sDir As String
   sDir = ThisWorkbook.Path
   For iAct = 1 To iDir
      iChar = Len(sDir)
      Do Until Mid(sDir, iChar, 1) = Application.PathSeparator
         iChar = iChar - 1
      Loop
      sDir = Left(sDir, iChar - 1)
   Next iAct
   GetParentDir = sDir
End Function
Mit getparentdir(2) gehst Du 2 Ebenen höher, analog getparentdir(1) usw.

Gruß
Klaus


  

Betrifft: AW: und noch eine ... von: Sergej
Geschrieben am: 01.08.2017 16:22:27

Danke an Alle. Es funktioniert.

Beste Grüße,
Sergej


Beiträge aus den Excel-Beispielen zum Thema "Pfad dann zwei Verzeichnisse zurück"