Pfad aus Explorerfenster lesen und in Excel verwenden
Schritt-für-Schritt-Anleitung
-
Öffne Excel und drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
-
Füge ein neues Modul hinzu:
- Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)" und wähle "Einfügen" > "Modul".
-
Kopiere den folgenden VBA-Code in das Modul:
Sub b()
Dim objShell As Object, win As Object
Set objShell = CreateObject("Shell.Application")
For Each win In objShell.Windows
If InStr(1, UCase(win.FullName), "EXPLORER") > 0 Then
If MsgBox("Soll deine Datei im Ordner " & vbCr & _
win.document.folder.self.Path & vbCr & _
"gespeichert werden?", vbQuestion + vbYesNo, "Abfrage") = vbYes Then
ThisWorkbook.SaveAs win.document.folder.self.Path & "\" & _
ThisWorkbook.Name, xlOpenXMLWorkbookMacroEnabled
Exit For
End If
End If
Next
Set objShell = Nothing
End Sub
-
Schließe den VBA-Editor und gehe zurück zu Excel.
-
Führe das Makro aus, indem du auf ALT + F8 drückst, das Makro auswählst und auf "Ausführen" klickst.
Häufige Fehler und Lösungen
-
Fehler: "Das Makro kann nicht ausgeführt werden."
- Überprüfe, ob die Makros in deinen Excel-Einstellungen aktiviert sind.
-
Fehler: "Pfad nicht gefunden."
- Stelle sicher, dass das Explorerfenster geöffnet ist und der gewünschte Ordner sichtbar ist.
-
Frage: Was bedeutet "als Pfad kopieren"?
- Es bedeutet, den vollständigen Pfad eines Ordners oder einer Datei in die Zwischenablage zu kopieren, um ihn an anderer Stelle verwenden zu können.
Alternative Methoden
Eine andere Möglichkeit, den Pfad zu kopieren, wäre, dies manuell zu tun. Du kannst den Pfad im Explorer auswählen, mit der rechten Maustaste klicken und "Pfad kopieren" wählen. Dies funktioniert gut, ist jedoch weniger effizient als das oben beschriebene Makro.
Praktische Beispiele
Ein Beispiel für die Verwendung des Codes:
- Wenn du im Explorerfenster den Ordner
C:\Users\anwender 1\Documents\Kunden intern\Apfel\2017\Bewertung\ geöffnet hast, kannst du das Makro ausführen, und es wird gefragt, ob du die Datei dort speichern möchtest. Bei Bestätigung wird die Excel-Datei im entsprechenden Ordner gespeichert.
Tipps für Profis
-
Explorer Fenstergröße anpassen: Stelle sicher, dass das Explorerfenster groß genug ist, um alle Ordnerinhalte anzuzeigen. Dies erleichtert die Auswahl des gewünschten Ordners.
-
Speicherort speichern: Du kannst die letzte Auswahl des Ordners speichern, um den Pfad beim nächsten Mal wieder zu verwenden.
-
VBA anpassen: Experimentiere mit dem VBA-Code, um zusätzliche Funktionen hinzuzufügen, z. B. das automatische Öffnen des Ordners nach dem Speichern.
FAQ: Häufige Fragen
1. Wie kann ich den Pfad eines Ordners kopieren, wenn ich den Explorer verwende?
Du kannst den Pfad direkt im Explorer durch einen Rechtsklick auf den Ordner und Auswahl von "Pfad kopieren" kopieren.
2. Was ist der Unterschied zwischen "Pfad kopieren" und "als Pfad kopieren"?
"Pfad kopieren" bezieht sich auf das Kopieren des vollständigen Speicherorts, während "als Pfad kopieren" oft in Kontexten verwendet wird, in denen der Pfad in einen anderen Befehl oder ein Skript eingefügt wird.
3. Funktioniert dieser Code in allen Excel-Versionen?
Der Code sollte in den meisten modernen Excel-Versionen funktionieren, insbesondere in Excel 2010 und neuer.