Automatizar codigo phpExcel

[JorgeQuirino]

Código PHP:

$sql6="SELECT resultados.usuarios, resultados1.rut, resultados.nombreusuario, GROUP_CONCAT( DISTINCT resultados.grupo ) grupo
    FROM resultados, resultados1
    WHERE resultados.usuarios = resultados1.usuarios
    GROUP BY usuarios
    HAVING COUNT( * ) >3";
    $resultado6 = mysql_query ($sql6,$conexion)or die (mysql_error());
    $registros6 = mysql_num_rows ($resultado6);
    $objPHPExcel6 = $objPHPExcel->createSheet();
    if ($registros6 >0){
    require_once 'Classes/PHPExcel.php';
    //$objPHPExcel = new PHPExcel();
    $i =5;
 
    while($registros6 = mysql_fetch_object ($resultado6)){
        $objPHPExcel->setActiveSheetIndex(5)
        ->setCellValue('a'.$i,$registros6->usuarios)
        ->SetCellValue('b'.$i,$registros6->rut)
        ->SetCellValue('c'.$i,$registros6->nombreusuario)
        ->SetCellValue('d'.$i,$registros6->grupo);  
    $i++;
    }
    //TITULOS DE LAS PLANTILLAS 
    $objPHPExcel6->setCellValue('A1','CHEQUEOS DE INCONSISTENCIAS RACF - RRHH /   (MES-AÑO)');
    $objPHPExcel6-> setCellValue('a2','NOMINA DE USUARIOS QUE PRESENTAN MAS DE UNA CONEXIÓN RACF A GRUPOS FUNCIONALES');
    //se insertan los encabezados   
    $objPHPExcel6->setCellValue('a4','Usuarios');
    $objPHPExcel6->setCellValue('b4','RUT');
    $objPHPExcel6->setCellValue('c4','Nombre Usuarios');
    $objPHPExcel6->setCellValue('d4','Grupo');      
    $objPHPExcel6->setCellValue('e4','Grupo RR.HH');    
    $objPHPExcel6->setCellValue('f4','Comentarios RR.HH');      
    $objPHPExcel6->setCellValue('g4','Accion'); 
            
    $miestilo= array(
        'font' => array(
            'bold' => true,
            'color' => array(
                'rgb' => 'fffff'
            )
        ),
        'fill' => array(
            'type' => PHPExcel_Style_Fill::FILL_SOLID,
            'startcolor' => array(
                'rgb' => '333399'
            )
        )
    );
    //ESTILOS DE COLUMNAS
    $objPHPExcel->getActiveSheet()->getStyle("A1:d1")->applyFromArray($miestilo);
    $objPHPExcel->getActiveSheet()->getStyle("A2:d2")->applyFromArray($miestilo);
    $objPHPExcel->getActiveSheet()->getStyle("A4:g4")->applyFromArray($miestilo);
    //CENTRALIZADO DE REGISTROS EN COLUMNAS
    $objPHPExcel->getActiveSheet()->getColumnDimension('a')->setAutoSize(true);
    $objPHPExcel->getActiveSheet()->getColumnDimension('b')->setAutoSize(true);
    $objPHPExcel->getActiveSheet()->getColumnDimension('c')->setAutoSize(true);
    $objPHPExcel->getActiveSheet()->getColumnDimension('d')->setAutoSize(true); 
    //CENTRALIZA EL TITULO DE LA PLANTILLA
    $objPHPExcel->getActiveSheet()->getStyle('A1')->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
    $objPHPExcel->getActiveSheet()->getStyle('A2')->getAlignment()->setHorizontal(PHPExcel_Style_Alignment::HORIZONTAL_CENTER);
    //CONVINA LAS CELDAS DE A1 A D1
    $objPHPExcel->getActiveSheet()->MergeCells('A1:g1');
    $objPHPExcel->getActiveSheet()->MergeCells('A2:g2');
    //ANCHO FIJO DE LAS COLUMNAS
    $objPHPExcel->getActiveSheet()->getColumnDimension('e')->setWidth(20);  
    $objPHPExcel->getActiveSheet()->getColumnDimension('f')->setWidth(25);
    $objPHPExcel->getActiveSheet()->getColumnDimension('g')->setWidth(15);
    }
        
    $f=date("d-m-y");
    header('Content-Type: application</span>/vnd.ms-excel');
    $fecha01="Comparativo Racf-RRHH_".$f.".xlsx";   
    header('Content-Disposition: attachment;filename='.$fecha01.'');
    header('Cache-Control: max-age=0');
 
    $objPHPExcel2->setTitle('Racf');
    $objPHPExcel3->setTitle('USUARIOS NO EXISTEN EN PVIGENTE');
    $objPHPExcel4->setTitle('USARIOS NO EXISTEN EN RACF');
    $objPHPExcel5->setTitle('Inconsistencias de Grupo');
    $objPHPExcel6->setTitle('Usuarios con + de 1 Conexion');
    
    $objWriter=PHPExcel_IOFactory::createWriter ($objPHPExcel ,'Excel2007');
    $objWriter->save('php://output');
    exit;
    mysql_close (); 
?>