Highlight Selected Excel file in Explorer

[moonhk]

Hi Reader

Do you know how to higlight selected Excel file in Explorer ?


Sub APOpen_FileLocation()
Dim objFSO, objShell, strDir, strName
strDir = ActiveWorkbook.Path
strName = ActiveWorkbook.FullName
On Error Resume Next
'MsgBox strDir
Set objFSO = CreateObject("Scripting.FileSystemObject")
strDir = objFSO.getFolder(strDir)
If Err.Number = vbEmpty Then
Set objShell = CreateObject("WScript.shell")
objShell.Run ("Explorer" & " " & strDir)
'~~ Highlight Selected Excel file in explorer
End If
Set objFSO = Nothing
Set objShell = Nothing
Set strDir = Nothing
End Sub

 

[Ivyleaf]

Hi Moonhk,

You were very close.

Sub APOpen_FileLocation()
Dim objShell As Object, strName As String
strName = ActiveWorkbook.FullName
On Error Resume Next
If Err.Number = vbEmpty Then
Set objShell = CreateObject("WScript.shell")
objShell.Run ("Explorer /select," & strName)
End If
Set objShell = Nothing
Set strDir = Nothing
End Sub

Cheers,
Ivan.