Filename:=Thisworkbook.Path & "\Kicker 2009-2010.xls"
ChDrive Left(ThisWorkbook.Path, 2)
ChDir ThisWorkbook.Path
Workbooks.Open "Kicker 2009-2010.xls"
Um eine Datei aus dem selben Verzeichnis mit Excel VBA zu öffnen, kannst Du den folgenden VBA-Code verwenden. Dieser Code nutzt die Eigenschaft ThisWorkbook.Path, um den Pfad des aktuellen Arbeitsbuchs zu ermitteln und die Datei im gleichen Verzeichnis zu öffnen.
Sub DateiOeffnen()
Dim dateiname As String
dateiname = ThisWorkbook.Path & "\Kicker 2009-2010.xls"
Workbooks.Open Filename:=dateiname
End SubFehler: "Datei nicht gefunden"
Fehler: "Pfad nicht korrekt"
ThisWorkbook.Path anstelle eines absoluten Pfades verwendest, um das aktuelle Verzeichnis dynamisch zu nutzen.Eine andere Möglichkeit, eine Datei ohne die Angabe des kompletten Pfades zu öffnen, ist das Wechseln des Standardverzeichnisses. Hier ist ein Beispiel, wie Du dies tun kannst:
Sub DateiOhnePfadeOeffnen()
ChDrive Left(ThisWorkbook.Path, 2) ' Wechselt das Laufwerk
ChDir ThisWorkbook.Path ' Wechselt in das aktuelle Verzeichnis
Workbooks.Open "Kicker 2009-2010.xls"
End SubDiese Methode ist nützlich, wenn Du nur den Dateinamen ohne Pfadangabe verwenden möchtest.
Hier sind einige Beispiele, wie Du mit VBA Dateien aus dem selben Verzeichnis öffnen kannst:
Einfaches Öffnen einer Excel-Datei
Sub EinfachOeffnen()
Workbooks.Open Filename:=ThisWorkbook.Path & "\Beispiel.xls"
End SubÖffnen einer Datei mit Benutzerinteraktion
Sub BenutzerDateiOeffnen()
Dim dateiname As String
dateiname = Application.GetOpenFilename("Excel-Dateien (*.xls), *.xls", , "Wähle eine Datei")
If dateiname <> "False" Then
Workbooks.Open Filename:=dateiname
End If
End SubNutze die Dir-Funktion, um zu überprüfen, ob die Datei existiert, bevor Du versuchst, sie zu öffnen. Das kann helfen, Fehler zu vermeiden.
Kombiniere die Verwendung von ThisWorkbook.Path mit anderen Funktionen, um dynamisch auf verschiedene Dateien in dem selben Verzeichnis zuzugreifen.
Dokumentiere Deinen Code gut, damit Du später leicht nachvollziehen kannst, welche Dateien geöffnet werden und warum.
1. Wie kann ich eine Datei aus einem Unterordner öffnen? Du kannst den Pfad anpassen, indem Du den Unterordner in den Dateinamen einfügst:
Workbooks.Open Filename:=ThisWorkbook.Path & "\Unterordner\Kicker.xls"2. Was passiert, wenn die Datei nicht existiert? Wenn die Datei nicht existiert, wird ein Fehler angezeigt. Du kannst eine Fehlerbehandlung hinzufügen, um dies zu vermeiden:
On Error Resume Next
Workbooks.Open Filename:=ThisWorkbook.Path & "\Kicker.xls"
If Err.Number <> 0 Then
MsgBox "Datei konnte nicht geöffnet werden."
Err.Clear
End If
On Error GoTo 0Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen