trying to open Windows Explorer with Excel.... 3

[Sheffield]

Greetings,

I'm looking for a way to open Windows Explorer within my VBA code. Anybody have a clue as to how this can be done?

Ideally, I'd like to launch Windows Explorer and change its Address to a predefined file path.

Thanks

 

[ETID]

Sub open_web_link()

dim my_address as string

my_address="

http://example.microsoft.com"

ActiveWorkbook.FollowHyperlink Address:=my_address, _
NewWindow:=True

End Sub

 

[Molby]

You can use:

 Shell "explorer.exe"

 

[ETID]

Ooops... sorry I miss read

 

[PaulRD]

Here is a little more detailed possibility

Sub runExp()
'
    Dim path1 As String
    Dim fs As Object
    Set fs = CreateObject("Scripting.FileSystemObject")
    path1 = "C:\" & ActiveCell.Value
    If fs.folderexists(path1) then
      temp = Shell("EXPLORER.EXE /e,/root," & path1, vbNormalFocus)
    End If
End Sub

Paul D
pimpin' aint easy

 

[IvanMoala]

sim,ilar to Pauls BUT no scripting

Sub Tester()
    Dim PID As Double
    Dim strRootPath As String
    
    Const strExpExe = "explorer.exe"
    Const strArg = " /e,/root, "
    
    '// Change rootpath here
    strRootPath = "C:\"
    
    PID = Shell(strExpExe & strArg & strRootPath, 3)

End Sub

Ivan F Moala

http://www.xcelfiles.com