function rs_test($dir){
        
            //列出数据
            $sql="select 统筹区,单位名称 from rs_ry where group by 统筹区,单位名称";
            $r=oci_getAll($sql);
                
            foreach($r as $i => $vo){
                 
                $objExcel = new PHPExcel();
            
                $objWriter = new PHPExcel_Writer_Excel2007($objExcel); // 用于 2007 格式    
                $objWriter->setOffice2003Compatibility(true);  
                //$objWriter->setOffice2003Compatibility(true);  

                //*************************************    
                //设置当前的sheet索引，用于后续的内容操作。    
                //一般只有在使用多个sheet的时候才需要显示调用。    
                //缺省情况下，PHPExcel会自动创建第一个sheet被设置SheetIndex=0    
                
                //$objActSheet = $objPHPExcel->getActiveSheet();
                //$objExcel->setActiveSheetIndex(0);    
                   
                   
                //$objActSheet = $objExcel->getActiveSheet(); 
                $objActSheet = $objExcel->getActiveSheet();
                
                //设置当前活动sheet的名称    
                //$objActSheet->setTitle('Sheet1' );    
                   
                //*************************************    
                //设置单元格内容    
                //    
                //由PHPExcel根据传入内容自动判断单元格内容类型  

                //第一行
                $baseRow=1;


                $objActSheet->setCellValue('A'.$baseRow,iconv("utf8","utf-8",'序号  '));
                $objActSheet->setCellValue('B'.$baseRow,iconv("utf8","utf-8",'统筹区  '));
                $objActSheet->setCellValue('C'.$baseRow,iconv("utf8","utf-8",'单位编码  '));
                $objActSheet->setCellValue('D'.$baseRow,iconv("utf8","utf-8",'单位名称  '));
                $objActSheet->setCellValue('E'.$baseRow,iconv("utf8","utf-8",'姓名  '));
                $objActSheet->setCellValue('F'.$baseRow,iconv("utf8","utf-8",'证件类型  '));
                $objActSheet->setCellValue('G'.$baseRow,iconv("utf8","utf-8",'身份证号码  '));
                $objActSheet->setCellValue('H'.$baseRow,iconv("utf8","utf-8",'性别  '));
                $objActSheet->setCellValue('I'.$baseRow,iconv("utf8","utf-8",'国籍  '));
                $objActSheet->setCellValue('J'.$baseRow,iconv("utf8","utf-8",'民族  '));
                $objActSheet->setCellValue('K'.$baseRow,iconv("utf8","utf-8",'手机号码  '));
                $objActSheet->setCellValue('L'.$baseRow,iconv("utf8","utf-8",'出生日期  '));

                $baseRow=2;
                
                $sql="select * from rs_ry where 统筹区='".$vo['统筹区']."' and 单位名称='".$vo['单位名称']."'";

                $r2=oci_getAll($sql);

                foreach($r2 as $j => $v2)
                {    
                    $row = $baseRow + $j;
                    $objActSheet->setCellValueExplicit('A'.$row,($j+1),PHPExcel_Cell_DataType::TYPE_STRING);
                    $objActSheet->setCellValueExplicit('B'.$row,iconv("utf8","utf-8",$v2['统筹区']),PHPExcel_Cell_DataType::TYPE_STRING);
                    $objActSheet->setCellValueExplicit('C'.$row,iconv("utf8","utf-8",$v2['单位编码']),PHPExcel_Cell_DataType::TYPE_STRING);
                    $objActSheet->setCellValueExplicit('D'.$row,iconv("utf8","utf-8",$v2['单位名称']),PHPExcel_Cell_DataType::TYPE_STRING);
                    $objActSheet->setCellValueExplicit('E'.$row,iconv("utf8","utf-8",$v2['姓名']),PHPExcel_Cell_DataType::TYPE_STRING);
                    $objActSheet->setCellValueExplicit('F'.$row,iconv("utf8","utf-8","身份证"),PHPExcel_Cell_DataType::TYPE_STRING);
                    $objActSheet->setCellValueExplicit('G'.$row,iconv("utf8","utf-8",$v2['身份证号码']),PHPExcel_Cell_DataType::TYPE_STRING);
                    $objActSheet->setCellValueExplicit('H'.$row,iconv("utf8","utf-8",$v2['性别']),PHPExcel_Cell_DataType::TYPE_STRING);
                    $objActSheet->setCellValueExplicit('I'.$row,iconv("utf8","utf-8",$v2['国籍']),PHPExcel_Cell_DataType::TYPE_STRING);
                    $objActSheet->setCellValueExplicit('J'.$row,iconv("utf8","utf-8","汉族"),PHPExcel_Cell_DataType::TYPE_STRING);
                    $objActSheet->setCellValueExplicit('K'.$row,iconv("utf8","utf-8",$v2['手机号码']),PHPExcel_Cell_DataType::TYPE_STRING);
                    $objActSheet->setCellValueExplicit('L'.$row,iconv("utf8","utf-8",$v2['出生日期']),PHPExcel_Cell_DataType::TYPE_STRING);
                }
                
                $objActSheet->setTitle('sheet1');
                $objExcel->setActiveSheetIndex(0);
                
                $outputFileName = $vo['统筹区']."/".$vo['单位名称'].".xlsx" ;
                $objWriter->save($outputFileName);
            }
            
            
}