hi,
thank you very much,it works.

but can i open somthing as winword,html,xml...
via same code as under..

local lcXLSFile,lcTemp
lcXLSFile = GETFILE() && allow user to find file hard code if you know where it is 

#define xlRangeAutoFormatColor2 8
oExcel = createobject("Excel.Application")
createobject(oExcel[, Excel, Winword , Html , Xml].Application)
with oExcel
.WorkBooks.Open(m.lcXLSFile)
.Visible = .T.
endwith

thanks.
best regards.
m.qasem