... ) If Ole2TxtError() != "S_OK" CursorArrow() MsgStop( "Error al intentar acceder a Excel","Error") oExcel:End() Return Endif oExcel:WorkBooks:Add() oHoja := oExcel:Get( "ActiveSheet" ) BLA.. BLA.. oExcel:Visible := .T. oHoja:End() oExcel:End() desde ya gracias Saludos Patricio