Open the excel file location (path) in explorer

Hi,

I would like to have a macro button that will open the file location (path were the excel is stored) in MS explorer.

I found somethink like:

Sub ExplorePath()
Shell Environ("windir") & "\Explorer.exe " & ActiveDocument.Path, vbMaximizedFocus
End Sub

But that give the error that an object is needed.
Would that also work for MS Word?

Thanks for the support.
Arien

Hi,

Should be as simple as the below....not sure about what it is in word though!

Sub opend()

Dim FPath As String

FPath = Application.ActiveWorkbook.Path

Shell "explorer.exe " & FPath

End Sub

Many thanks JungleJme,

That does the job indeed.
Just one more question as I would like the new explorer screen to be opened active in the front and not hidden in the background.
Would you have a line for that as well?


BTW for MS Word I changed ActiveWorksheet to ActiveDocument and it worked as well.

Thanks again.
BR, Arien

No probs, try the below....

Sub opend()

Dim FPath As String

FPath = Application.ActiveWorkbook.Path

Shell "explorer.exe " & FPath, vbNormalFocus

End Sub

Great, many thanks!!