Shell (Opening files)

[Richard]

My Code is below and I am getting an "Invalid procedure
ccall error. If I change the string to the literal path
("C:\Documents and Settings\Richard\My
Documents\Office\test file.xls") I still get the error,
how can I get this to work? The code errors out on the
line "Shell (strPath), vbNormalFocus.

Private Sub lstbox_DblClick(Cancel As Integer)
On Error GoTo Errhand
Dim strPath As String
strPath = Me.lstbox.Column(3)
Shell (strPath), vbNormalFocus

GoExit:
Exit Sub
Errhand:
MsgBox Err.Description & Err.Number
Resume GoExit

End Sub

Thanks for your help in advance..

Richard

 

[Gerald Stanley]

Try
Shell strPath, vbNormalFocus

Hope This Helps
Gerald Stanley MCSD

 

[Trent Argante]

Try
Shell (strPath, vbNormalFocus)

 

[Richard]

No, that did not work, I received the same error message

Richard

 

[Trent Argante]

Richard,
If Gerald's suggestion doesn't work, then view the actual
value of strPath (via a break or MsgBox), so as to verify
the value being returned by "Me.lstbox.Column(3)".
HTH
Trent

 

[Adrian Jansen]

I dont think you can directly open a data file using Shell. But you can run
an executable, and use its command line arguments to open the correct file.
Something like

strPath = "excel.exe C:\Documents and Settings\Richard\My
Documents\Office\test file.xls"

Should work.

Even easier is to use:

strPath = "C:\Documents and Settings\Richard\My
Documents\Office\test file.xls"

FollowHyperlink strPath


--
Regards,

Adrian Jansen
J & K MicroSystems
Microcomputer solutions for industrial control

 

[Graham R Seach]

Richard,

Since all you want to do is open the file, use the procedure found at
http://www.pacificdb.com.au/MVP/Code/ExeFile.htm.

Then call it using the following syntax:
ExecuteFile sPath, "Open"

Regards,
Graham R Seach
Microsoft Access MVP
Sydney, Australia

Microsoft Access 2003 VBA Programmer's Reference
http://www.wiley.com/WileyCDA/WileyTitle/productCd-0764559036.html

 

[Trent Argante]

Richard, I just clued in. You can't directly open just any
file via Shell because you're functioning in DOS when you
use shell. You have to think "command line". Change your
literal to <pathToExcelApplication> <pathToFile>
For example, "c:\ms-office\excel.exe C:\Documents and
Settings\Richard\My Documents\Office\test file.xls"
And like Gerald suggested, change your code to
Shell strPath, vbNormalFocus
Give this a test, and if it works, replace the literal.
And of course you will have to update your ListBox
control's values
HTH
Trent