Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
23.04.2024 14:59:21
Zellformel in VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
440to444
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
440to444
440to444
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Pfad wechseln geht nicht

Pfad wechseln geht nicht
16.06.2004 17:06:24
SteffenS
Hallo,
ich brauche mal bitte Eure Hilfe, und zwar habe ich folgenden Code:
ChDir (ThisWorkbook.Path)
ChDir ("..\PL04t")
Workbooks.Open "04allg.xls"
Bis Excel 2000 funktioniert das auch bei XP aber nicht!
Ich möchte einfach vom aktuellen Verzeichnis eine Ebene höher rutschen und dort im Ordner PL04T die Datei 04allg.xls öffnen
Warum geht das nicht?
Danke
Steffen Schmerler

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pfad wechseln geht nicht
Serge
Probier´s mal mit
ChDir "C:\Eigene Dateien"
Workbooks.Open Filename:= _
"C:\Eigene Dateien\04allg.xls"
bitte nochmal Hilfe
16.06.2004 18:38:04
SteffenS
ich kann den Pfad nicht festschreiben, wie kann ich den einen relativen Pfad verwenden.
Ich möchte nur eine Ebene höher rutschen.
Danke nochmals
Steffen
AW: bitte nochmal Hilfe
K.Rola
Hallo,
um eine Ebene höher zu landen:
Option Explicit

Sub Eine_Ebene_hoeher()
ChDir ".."
End Sub

Gruß K.Rola
stehe noch auf der Leitung...
16.06.2004 19:12:29
SteffenS
wie öffne ich jetzt die Datei, mit:
Option Explicit

Sub Eine_Ebene_hoeher()
ChDir ".."
Workbooks.Open ChDir & "11.xls"
End Sub

geht es leider nicht?
Danke
Steffen Schmerler
Anzeige
AW: stehe noch auf der Leitung...
K.Rola
Hallo,
na gut, mal ganz langsam:
mit CurDir erhälst du den momentanen Pfad, z.B. C:\xxx\yyy\zzz
mit ChDir ".." erhälst du nach erneuter Abfrage mit CurDir dann
also: C:\xxx\yyy
So sähe dann ein komplettes Makro aus:
Option Explicit

Sub oeffenen()
Dim Pfad As String
ChDir ".."
Pfad = CurDir
Workbooks.Open Pfad & "\deineDatei.xls"
End Sub

Gruß K.Rola
danke,
17.06.2004 10:03:48
SteffenS
Du hast mir damit sehr geholfen - super!!!
LG
Steffen Schmerler

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige