Dear Mr.Shuming Wang
Your code is working fine for me
- Code: Select all Expand view
#include "fivewin.ch"
FUNCTION MAIN
cFile:="c:\users\anser\desktop\Test.xls"
MsgInfo("About to create Excel object")
oExcel := TOleAuto():New( "Excel.Application" )
oExcel:WorkBooks:Open(ALLTRIM(cfile))
oSheet := oExcel:ActiveSheet()
MsgInfo("Open and Check Task Manager, you should find EXCEL.EXE in the Processes List")
oExcel:quit()
MsgInfo("Excel is closed. After you close this MsgBox,";
"you will not find EXCEL.EXE in the Task Manager, Processes List")
RETURN NIL
Tested using Office 2007. It is also better to do a
oWorkBook:Close() before the oExcel:Quit()
- Code: Select all Expand view
oWorkBook:=oExcel:WorkBooks:Open(ALLTRIM(cfile))
oWorkBook:Close()
oExcel:Quit()
I suggest you to check whether any previously opened Excel instances are still running in your PC, may be that could be the reason.
While trying to creating the excel object, It is always better to code as given below
- Code: Select all Expand view
TRY
oExcel = GetActiveObject( "Excel.Application" )
CATCH
TRY
oExcel = CreateObject("Excel.Application")
CATCH
MsgInfo("It seems that Excel is not installed on this PC. You need Excel to continue further")
Return .F.
END
END
Regards
Anser