Shell not working

[Nathan H]

I want to be able to open specific excel spreadsheets from my access db. However, on different computers the excel.exe is in OFFICE, OFFICE10, OFFICE11, etc...

I followed a bunch of threads but still can not get it to work

Private Sub TEST_DOWNLOAD_Click()
On Error GoTo RUNAPP_ERROR
 
Call Shell("C:\Program Files\Microsoft Office\OFFICE11\excel.exe""C:\Program Files\NADB\AWBC.xls""", 1)
 
Exit Sub
 
RUNAPP_ERROR:
    MsgBox "WHY WON'T THIS WORK", vbOKOnly, "FOR THE LOVE OF GOD!"
End Sub
 

[Rabbit]

Please use code tags.

You don't have nearly enough quotation marks.

Call Shell("""C:\Program Files\Microsoft Office\OFFICE11\excel.exe"" ""C:\Program Files\NADB\AWBC.xls""", 1)
 

And if excel is in different folders then you need to find out which one it's in by using the Dir() function on the most likely candidates first. If it's outside of those, then you're SOL. Although it's probably stored in a registry key somewhere, but I don't have experience with that so maybe someone else can tell you how to pull that.

[Nathan H]

Please use code tags.

You don't have nearly enough quotation marks.

Call Shell("""C:\Program Files\Microsoft Office\OFFICE11\excel.exe"" ""C:\Program Files\NADB\AWBC.xls""", 1)
 

And if excel is in different folders then you need to find out which one it's in by using the Dir() function on the most likely candidates first. If it's outside of those, then you're SOL. Although it's probably stored in a registry key somewhere, but I don't have experience with that so maybe someone else can tell you how to pull that.

Rabbit,

It opens excel.exe but not the target spreadsheet...which is present.

Thank you in advance.

Nathan

[Rabbit]

You're gonna have to double-check that the file is there and that everything is spelled correctly because I just tested it.

[Nathan H]

You're gonna have to double-check that the file is there and that everything is spelled correctly because I just tested it.

Rabbit,

I missed the space between the path and file name. Sorry about that. Thanks for helping me.

Nathan

[Rabbit]

Not a problem. Good luck.

[ADezii]

Please use code tags.

You don't have nearly enough quotation marks.

Call Shell("""C:\Program Files\Microsoft Office\OFFICE11\excel.exe"" ""C:\Program Files\NADB\AWBC.xls""", 1)
 

And if excel is in different folders then you need to find out which one it's in by using the Dir() function on the most likely candidates first. If it's outside of those, then you're SOL. Although it's probably stored in a registry key somewhere, but I don't have experience with that so maybe someone else can tell you how to pull that.

Hello Rabbit, just an idea - how about eliminating all doubt and guesswork as to where Excel.exe is located by using the following code segment:

'Must set a Reference to the Microsoft Excel XX.X Object Library
Dim appExcel As New Excel.Application, strPathToExcelEXE As String
Dim strPathToWorksheet As String
 
strPathToExcelEXE = appExcel.Path & "\Excel.exe"
strPathToWorksheet = " C:\Test\Book1.xls"
 
appExcel.Quit
Set appExcel = Nothing
 
Call Shell(strPathToExcelEXE & strPathToWorksheet, vbMaximizedFocus)

[Rabbit]

Hello Rabbit, just an idea - how about eliminating all doubt and guesswork as to where Excel.exe is located by using the following code segment:

'Must set a Reference to the Microsoft Excel XX.X Object Library
Dim appExcel As New Excel.Application, strPathToExcelEXE As String
Dim strPathToWorksheet As String
 
strPathToExcelEXE = appExcel.Path & "\Excel.exe"
strPathToWorksheet = " C:\Test\Book1.xls"
 
appExcel.Quit
Set appExcel = Nothing
 
Call Shell(strPathToExcelEXE & strPathToWorksheet, vbMaximizedFocus)

Interesting, didn't know there was a path method for the application class.