VBA-03 - Pfad der Anwendung - Holen Sie zum Übergeordneten Ordner

Anwendung: Excel

Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") - 1)

Muss ich wieder zurück mindestens 2 Ordner aus der Arbeitsmappe Pfad.

Ich nicht Pfade verwenden, wie "C:/Folder1" da die Anwendung verschoben werden mehrere Male.

  • Was ist die Arbeitsmappe gestellt wird, "C:\" oder "C:\Temp" ?
InformationsquelleAutor Dennis | 2013-11-11
  1. 10

    Wie diese:

    Function getParentFolder2(ByVal strFolder0)
  Dim strFolder
  strFolder = Left(strFolder0, InStrRev(strFolder0, "\") - 1)
  getParentFolder2 = Left(strFolder, InStrRev(strFolder, "\") - 1)
End Function


Dim strFolder
strFolder = getParentFolder2(ThisWorkbook.Path)

    Wir hier Schnitt zweimal \subdir Muster...

    InformationsquelleAutor jacouh
  2. 1

    Den FileSystemObject bietet die Methode GetParentFolderName(Pfad).

    Sehen Wie verwende ich "FileSystemObject" in VBA?

    Beispiel

    Dim fso As New FileSystemObject
Dim strParent As String

strParent = fso.GetParentFolderName(Me.Range("A1").value)
    InformationsquelleAutor Christopher Peisert
Schreibe einen Kommentar