>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 > >>
declare long ShellExecute in "shell32.dll" ; long hwnd, string lpszOp, ; string lpszFile, string lpszParams, ; string lpszDir, long nShowCmd ShellExecute(0,'Open',getfile(),'','',1)Cetin