Office: Pfad in Explorer oeffnen (VBA Word)

Markus2005 · 27. Februar 2006

Hallo,

wie kann ich den aktuellen Pfad der Datei im Explorer oeffnen lassen? Z.B: wenn ich auf ein Icon druecke soll dann der VBA-Code ausgefuehrt werden, der dies erledigt.

Gibt es eine fertige Funktion, die diese Aufgabe uebernimmt (u.a. abbricht wenn der Pfad nicht existent ist)?

Danke

Vorstellbar ist z.B.
Pfad = CurDir
cmd.exploreropen (Pfad)
oder
Shell (Pfad)

:)

Hotte · 1. März 2006

Hi,

hier mal ein Beispiel für so einen Aufruf mit "Shell":

Code:

Dim Pfad
Pfad = "C:\doc"
If Dir(Pfad, vbDirectory) "" Then
Shell "Explorer.exe /n,/e," & Pfad, vbMaximizedFocus
Else
MsgBox "Ordner " & Pfad & " existiert nicht!"
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Markus2005 · 1. März 2006

Danke!

Genau sowas habe ich gesucht

Code:

Sub PfadOeffnen()
Dim Pfad

Pfad = ActiveDocument.Path

If Pfad "" Then
If Dir(Pfad, vbDirectory) "" Then
Shell "Explorer.exe " & Pfad, vbNormalFocus
Else
MsgBox "Path " & Pfad & " does not exist!"
End If
Else
'MsgBox "not saved yet"
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

*grins

klappt auch in Excel einwandfrei!
Code:

Sub PfadOeffnen()

Dim Pfad

Pfad = ActiveWorkbook.Path

If Pfad "" Then
If Dir(Pfad, vbDirectory) "" Then
Shell "Explorer.exe " & Pfad, vbNormalFocus
Else
MsgBox "Path " & Pfad & " does not exist!"
End If
Else
'MsgBox "not saved yet"
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Markus2005 · 1. März 2006

Markierung des Files im aufgehenden Explorer wie folgend:

Code:

'oeffent den Pfad des aktuellen Files und markiert das betroffene File
Sub PfadOeffnen()
Dim Pfad
Dim Filename

Pfad = ActiveWorkbook.Path
Filename = ActiveWorkbook.Name

If Pfad "" Then
If Dir(Pfad, vbDirectory) "" Then
If Right(Pfad, 1) "\" Then Pfad = Pfad & "\"
Shell "Explorer.exe /select," & Pfad & Filename, vbNormalFocus
Else
MsgBox "Path " & Pfad & " does not exist!"
End If
Else
MsgBox "not saved yet"
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hotte · 1. März 2006

Hi,

... wenn wir schon dabei sind. Schau Dir das mal an (Excel - gilt aber ähnlich auch für Word!):

Code:

Dim DokName As String
DokName = ActiveWorkbook.FullName
If InStr(1, DokName, "\") < 1 Then
MsgBox "nicht gespeichert!"
Exit Sub
End if
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Markus2005 · 1. März 2006

auch nicht schlecht! Spart zumindest den DIR-Aufruf (weil der kann ggf. etwas Zeit in Anspruch nehmen).

Office: Pfad in Explorer oeffnen (VBA Word)

Pfad in Explorer oeffnen (VBA Word)

Pfad in Explorer oeffnen (VBA Word)

Pfad in Explorer oeffnen (VBA Word)

Pfad in Explorer oeffnen (VBA Word) - Similar Threads - Pfad Explorer oeffnen

Dynamischer Pfad

Den Pfad verändern

Fehler beim Zugriff auf Pfad/Datei

Pfad standardisieren

Komplexes Makro ohne Ahnung :-/

Per Makro bestimmten Bereich per PDF unter bestimmten Pfad speichern.

Variable in Pfad zu externem Inhalt (Sharepoint)