Open Excel from Access 1

[arryb]

I have some code related to a button which opens a specified file in excel.

excelpath = "C:\Program Files\Microsoft Office\Office\Excel.exe"
filepath = "C:\Aarons Folder\Interconnects\Interconnects_FileReader_V2.xls"

Call Shell(excelpath & " " & filepath, vbNormalFocus)

This works okay when i have no spaces in the filepath but cannot find the file when it has spaces.

Any Ideas on how to solve this.

 

[DeanWilliams]

Hi,

You need to replace the spaces with: %20. You can use the replace function to do it in code:

excelpath = Replace(excelpath," ", "%20&quot

Dean

 

[danvlas]

Call Shell(excelpath & " " & Chr(34) & filepath & Chr(34), vbNormalFocus)

Good luck



Daniel Vlas
Systems Consultant

http://www.geocities.com/danvlas/AutoMail.html

 

[arryb]

This doesn't seem to work.
The replace function isn't compatible with Access 97 and substituting the space with %20 means the file cannot be found.

Pants???

 

[arryb]

Danvlas,

Thanks, That worked a treat.

You're a star, so have one!!