It did not work. I still have OLE Error. it load the Excel but the run statement did not work. Any idea why?
Thanks, Tai Fei Pao
>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