xresp = MESSAGEBOX('El process is ok'+ chr(13)+; '¿Open Excel?', 36, 'InternetBanking') IF xresp = 6 thisform.convertirxls() else =MESSAGEBOX('The was put', 64, 'InternetBanking') endif Method Convertirxls if !IsClassRegistered("Excel.Application") = messagebox("Excel is no installed.") else indica='\archivos\'+indicador+".xls" rank='\archivos\'+periodo+".xls" oexcel = createobject("excel.application") with oexcel .workbooks.open(m.indica) .visible = .t. with .activeworkbook.activesheet .range("e:e").numberformat = "#,##0" .range("f:f").numberformat = "#,##0.00" .range("a1:f1").font.bold=.t. with .range("a:f").font .size=10 .name='tahoma' endwith .range("a:f").entirecolumn.autofit .range("a1:f1").horizontalalignment = -4108 .range("a1:f1").verticalalignment = -4108 endwith .activeworkbook.save .workbooks.open(m.rank) with .activeworkbook.activesheet .range("c:c").numberformat = "#,##0.00" .range("d:d").numberformat = "#,##0" .range("a1:f1").font.bold=.t. with .range("a:f").font .size=10 .name='tahoma' endwith .range("a:f").entirecolumn.autofit .range("a1:f1").horizontalalignment = -4108 .range("a1:f1").verticalalignment = -4108 endwith .activeworkbook.save endwith endif return .t. end method Method IsClassRegistered #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 end methodWhere the error is?