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

Workbook Path

Forumthread: Workbook Path

Workbook Path
28.07.2007 22:36:00
Hans
Hallo Leute,
man kann ja mit Application.ThisWorkbook.Path den Pfad der aktuellen Datei raussuchen. Kann man eigentlich so wie bei HTML (href="../*") auch vereinfacht einen Ordner höher ansprechen, ohne den ganzen Pfad zu notieren?
Gruß
DER HANS

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Workbook Path
28.07.2007 23:29:00
Nepumuk
Hallo Hans,
klar. Beispiel:
Public Sub test()
    ChDrive Left$(ThisWorkbook.Path, 1)
    ChDir ThisWorkbook.Path
    Debug.Print CurDir
    ChDir ".." 'eine Ebene
    Debug.Print CurDir
    ChDrive Left$(ThisWorkbook.Path, 1)
    ChDir ThisWorkbook.Path
    Debug.Print CurDir
    ChDir "..\.." 'zwei Ebenen
    Debug.Print CurDir
End Sub

Gruß
Nepumuk

Anzeige
AW: Workbook Path
29.07.2007 12:00:43
Hajo_Zi
Hallo hans,

Option Explicit
Sub Hans()
MsgBox Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") - 1)
End Sub



;

Forumthreads zu verwandten Themen

Code nach "ThisWorkbook" automatisch per VBA
Wicki

Hallo,
ich möchte ausschließlich automatisch Code per VBA nach "ThisWorkbook" einer anderen Mappe übertragen. Der Code liegt als Export-Datei (name.cls) vor. Wenn ich den importiere wird er als Klassenmodul "DieseArbeitsmappe1" angelegt und nützt mir damit nichts.
Hat jemand eine Idee ?...
12.03.2009 23:16:35
Thread-ID: 1059712
5 Beiträge
ThisWorkbook.Path
Bruno

Guten Morgen Excel Spezis
Mit Hilfe dieses Forums habe ich den nachstehenden (Ausschnitt) Makro-Code zusammengestellt. Es sollte alle XML-Files im Unterordner XML-Protokolldaten zur Auswahl anzeigen. Hier meine Verzeichnisstruktur: «D:\ASZW\XML_Prorokolldaten». Die Arbeitsmappe (ThisWorkboo...
12.02.2013 11:18:33
Thread-ID: 1298883
5 Beiträge
Thisworkbook.Path (Dateikonvertierung xlsm zu xls)
Mexsalem

Hallo,
da ich noch Excel 2003 verwende, muss Excel mir eine xlsm-Datei in das Excel 2003-er Format xls konvertieren. Soweit kein Problem dank des Microsoft Office Compatibility Pack für Dateiformate (http://www.microsoft.com/de-de/download/details.aspx?id=3).
Jedoch soll beim Workbook.O...
03.11.2013 20:01:47
Thread-ID: 1336974
12 Beiträge
ThisWorkbook.path mit unterschiedl. Ergebnissen
Peter

Guten Abend
Heute morgen habe ich in einem File mit der Abfrage im Direktbereich
ThisWorkbook.path das Ergebnis, wie etwa
H:\....\Ablage\Temp.xlsx
erhalten.
Nun erhalte ich bei der gleichen Abfrage
\\bezeichnung-abc\....\Ablage\Temp.xlsx
Also ursprünglich den Pfad mi...
26.10.2015 18:01:41
Thread-ID: 1454509
7 Beiträge
Anzeige
Dr. Watson bei ThisWorkbook.Path
Holger
Hallo!

wenn ich versuche einen relativen Pfad zum Aufruf einer Datei im VBA Code mittels act_path = ThisWorkbook.Path zu beschreiben, stürzt Excel ständig ab (NT - Dr. Watson), wahrscheinlich irgendeine Zugriffsverletzung, aber damit kenne ich mich nicht aus.

Gibt es Abhilfe?
16.12.2003 09:51:10
Thread-ID: 352474
6 Beiträge
ThisWorkbook.Path
Juan

Hallo Leute !
Wie kann ich eine Datei ansprechen die in Verzeichnis über ThisWorkbook.Path ist ? Also: Datei AA.xls soll aus Datei BB.xls geöffnet, dabei ist BB.xls in Unterverzeichnis von AA.xls. Direkt kann ich es nicht ansprechen weil Pfad ist nicht immer gleich.
Gruß Juan !
24.05.2004 20:54:50
Thread-ID: 432586
4 Beiträge
ThisWorkbook.Path, Da ist noch der Wurm drin
Steffi

Hallo,
habe ich das Richtig verstanden ?
Etwa so:
Private Sub CommandButton13_Click() 'Felge OpenFile ("D:\Felgenblatt\Felge1.gif") [ALT] End Sub
OpenFile Pfad = ThisWorkbook.Path & "\Felgenblatt\Felge1.gif" [NEU]
Bitte um kurze Rückantwort
Danke Steffi
13.12.2004 21:10:48
Thread-ID: 532450
2 Beiträge
ThisWorkbook.Name / zwei VBA Projekte / XLT
Mattias

Hi zusammen
Ich habe eine Exceltabelle "Vorlage.xls" sowie "Addin.xlt". Die Datei Addin lade ich im Excel über den Add-Ins-Manager ein, die Datei wird also immer geladen sobald ich Excel öffne. Sie enthält eine selber kreierte Symbolleiste u.a. mit einem Button "speichern". Nun möchte ich d...
28.09.2007 16:25:00
Thread-ID: 911544
5 Beiträge
this workbook has lost its vba project, activeX...
Benjamin

hallo zusammen,
ich habe folgendes problem:
ich habe ein excel tool geschrieben das mit makros arbeitet.
dieses habe ich nun an viele user geschickt.
von einigen habe ich folgende fehlermerldung bekommen:
"This workbook has lost its VBA project, ActiveX controls and any othe...
25.06.2008 10:16:19
Thread-ID: 988561
6 Beiträge
ThisWorkbook.Path
Thorsten

Hallo zusammen,
diesen Code habe ich umgeschrieben mit "ThisWorkbook.Path".
Leider funktioniert er nicht mehr.
Gebe ich den Dateipfad direkt ein, funktioniert alles einwandfrei.
Kann mir jemand bei der Fehlersuche behilflich sein?
Hier mein Code:
Private Sub ComboBox3_Cl...
09.11.2019 18:27:17
Thread-ID: 1722210
3 Beiträge
Anzeige
thisworkbook.path gibt Leerstring zurück
Heinz
Hallo Excelfans,
ich habe eine Exceldatei im xltm Format
In einem Makro lese ich den Dateinamen und den Pfad aus:
gn_path = ThisWorkbook.Path
gn_dateiname = ThisWorkbook.Name
gn_dateiname wird korrekt mit dem Namen der Exceldatei gefüllt; der gn_path ist aber leer. Was mache ich...
01.04.2021 15:59:49
Thread-ID: 1823740
6 Beiträge
ThisWorkbook.Path
Stefan
Hallo an alle ,
in dem unteren Makro will ich anstatt dem festen Pfad eben mit ThisWorkbook.Path arbeiten.
Kann mit bitte jemand sagen, oder mir den Code umschreiben damit ich ihn verwenden kann?
Danke schon mal im Vorraus
Sub einf() Dim pfad pfad = ThisWorkbook.Path Range("D9").Act...
07.08.2021 14:41:41
Thread-ID: 1842600
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige