ActiveWorkbook.Path help

[bluefeather8989]

This works

Shell "C:\Program Files (x86)\XNote Stopwatch\xnsw.exe start", vbNormalFocus

This does not. Help me with this code

Workbooks.Open Filename:=ActiveWorkbook.Path & "\xnsw.exe start", vbNormalFocus

 

[bluefeather8989]

Help pls?

 

[Br0ck]

If you use Workbooks.Open, it will open your .exe in Excel which will display a sheet of characters. If your first code worked, why do you want it changed? What are you trying to achieve?

If you want to use ActiveWorkbook.Path, try something like this...

Sub test()
    CreateObject("Wscript.Shell").Exec (ActiveWorkbook.Path & "\xnsw.exe start")
End Sub

 

[bluefeather8989]

If you use Workbooks.Open, it will open your .exe in Excel which will display a sheet of characters. If your first code worked, why do you want it changed? What are you trying to achieve?

If you want to use ActiveWorkbook.Path, try something like this...

Sub test()
    CreateObject("Wscript.Shell").Exec (ActiveWorkbook.Path & "\xnsw.exe start")
End Sub

This works. I don't understand it but it works. Thanks