Try to specify full path
lcFullName = sys(5)+sys(2003)+'\iedmsdata.xls'
tmpsheet = GetObject(lcFullName,'excel.sheet')
XLApp = tmpsheet.application
XLApp.RUN(lcFullName + "!SAMProject")
>Please help me to fix those codes so I can convert the application from VFP 6.0 to VFP 8.0.
>
>For VFP 8.0 I have to put iedmsdata.xls!SAMProject under the Microsoft Office XLStart folder otherwise I will have OLE Error.
>
>The codes that works unter VFP 6.0:
>
>tmpsheet = GetObject(sys(5)+sys(2003)+'\iedmsdata.xls','excel.sheet')
>XLApp = tmpsheet.application
>XLApp.RUN("iedmsdata.xls!SAMProject")
>XLApp.Visible = .T.
>RELEASE XLApp
>
>Thanks, Tai Fei Pao
--sb--