... +1 IF nRen=57 nRen:=7 nCol:=nCol + 3 ENDIF Skip 1 Enddo objExcel:Get("ActiveWorkBook"):SaveAs(cFile) objExcel:WorkBooks:Close() objExcel:Quit() Se interrumpe y marca error en: objExcel:Cells(nRen,nCol):Value := Alltrim(aInven->Descript) SIn embargo si quito las ultimas 3 lineas: objExcel:Get("ActiveWorkBook"):SaveAs(cFile) ...