Hallo an die VBA Experten, ich möchte jedes mal beim Zeichnen, Modellieren die Datei im Explorer schnell angezeigt/markiert haben.
Das funktionert mit Shell Funktion wunderbar, aber viel zu lange.
Code:
Shell "Explorer.exe /select, """ & "C:\Users\*\Desktop\Test\TEST.SLDPRT", vbNormalFocus
Über das Menü Fenster geht es flotter (s. B. Anhang), allerding muss man immer mit der Maus navigieren.
Ich habe einen Code der lässt sich den Speicherort Ordner sofort öffnen.
Code:
Function OpenAnyFile(strPath As String)
Set ObjShell = CreateObject("Shell.Application")
ObjShell.Open (strPath)
End FunctionPrivate Sub CommandButton1_Click()
Dim swApp As Object
Dim Pfad As String
Set swApp = Application.SldWorks
Pfad = "C:\Users\*\Desktop\Test"
Call OpenAnyFile(Pfad)
End Sub
Nun bekomme ich die Datei Markierung in den schnelleren Code (Call Open...) nicht hin. Was muss ich angeben bzw. ergänzen?
[Diese Nachricht wurde von 4kspeed am 18. Feb. 2020 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP