Hi Fernando
maybe this will help you

Code:
                                        Get xlCreaBook True     to hoBook   // true means xml xlsx
                                        Send ComLoad to hoBook sFilePath
                                        Get ComGetSheet of hoBook 0 to vSheet
                                        If (not(IsNullComObject(vSheet))) Begin
                                            Get Create (RefClass(cszLibXLSheet)) to hoSheet
                                            Move 0 to iRow
                                            If (bTitulos) Move 1 to iRow
                                            If (hoSheet) Begin
                                              Move (Status_Panel(Self)) to StatPnl
                                              Send Initialize_StatusPanel of StatPnl "Importando terceros" " No Interrumpa !!" " Importando ..."
                                              Send Start_StatusPanel of StatPnl
                            
                                               Set pvComObject of hoSheet to vSheet
                                               Get ComReadStr of hoSheet iRow 0 to sTipodoc
                                               Get ComReadStr of hoSheet iRow 1 to nNoDcmto
                                               Get ComReadStr of hoSheet iRow 2 to s1Nombre
                                               Get ComReadStr of hoSheet iRow 3 to s2Nombre
                                               Get ComReadStr of hoSheet iRow 4 to s1Apellido
                                               Get ComReadStr of hoSheet iRow 5 to s2Apellido
                                               Get ComReadStr of hoSheet iRow 6 to sDireccion
                                               Get ComReadStr of hoSheet iRow 7 to sEmail
                                               Get ComReadStr of hoSheet iRow 8 to sCedula
                                              
                                               Get ComLastRow of hoSheet to iLastRow 
                                               While  (iRow<=iLastRow)  
                                                   Send Update_StatusPanel of StatPnl ("["+String(iRow)+"/"+String(iLastRow)+"]"+String(nNoDcmto))
                                                    Move True to bOk
                                                    If (nNoDcmto>0) Get IncorporaCedulas sTipodoc nNoDcmto s1Nombre s2Nombre s1Apellido s2Apellido sDireccion sEmail sCedula to bOk
                                                    If (not(bOk)) Increment iConteo
                                                    Increment iRow
                                                       Get ComReadStr of hoSheet iRow 0 to sTipodoc
                                                       Get ComReadStr of hoSheet iRow 1 to nNoDcmto
                                                       Get ComReadStr of hoSheet iRow 2 to s1Nombre
                                                       Get ComReadStr of hoSheet iRow 3 to s2Nombre
                                                       Get ComReadStr of hoSheet iRow 4 to s1Apellido
                                                       Get ComReadStr of hoSheet iRow 5 to s2Apellido
                                                       Get ComReadStr of hoSheet iRow 6 to sDireccion
                                                       Get ComReadStr of hoSheet iRow 7 to sEmail
                                                       Get ComReadStr of hoSheet iRow 8 to sCedula
                                               End
                                               Send Stop_StatusPanel of StatPnl
                                               Send Info_Box ("Proceso terminado ["+String(iConteo)+"/"+String(iRow)+"]")
                                             End
                                             Send Destroy to hoSheet
                                       End       
                                End
Edgar