>I allmost resolved the problem, I need only one thing more...
>
>When I use
>
>oExcel = createobject("Excel.application")
> with oExcel
> .Workbooks.Open("C:\estaib\archivos\abril2006.xls")
> .visible = .t.
>I´m sure that the computer has intalled the software, but what happen if the compuiter doesn´t has the Excel installed, how can I check it...???

if !IsClassRegistered("Excel.Application")
messagebox("Excel is not installed")
else
*...
endif

function IsClassRegistered
lparameters tcClass
#DEFINE HKEY_CLASSES_ROOT    -2147483648
#DEFINE ERROR_SUCCESS		0	&& OK

DECLARE Integer RegOpenKey IN Win32API ;
	Integer nHKey, String @cSubKey, Integer @nResult

DECLARE Integer RegCloseKey IN Win32API ;
	Integer nHKey

local lnKey
lnKey = 0
llRetVal = ( RegOpenKey(HKEY_CLASSES_ROOT, tcClass, @lnKey) = ERROR_SUCCESS )
if llRetVal
  RegCloseKey(lnKey)
endif
return llRetVal

Cetin