class excel_creator {
		
        private $header="<?xml version=\" 1 . 0 \"?><?mso-application progid=\"Excel.Sheet\"?>";
		private $encoding="UTF-8";
		private $filename="file.xls";
		private $author="";
		private $styles=array();
		private $worksheets=array();
		private $attributes=array();
		private $currentworksheet="";
		private $worksheetpointer=null;
		private $tablepointer=null;
		private $rowpointer=null;

public function __construct($encoding="UTF-8", $filename="file.xls", $author=""){
			$this->encoding=$encoding;
			$this->filename=$filename;
			$this->addStyleProperty("Default","Alignment","Vertical","Bottom");
			$this->addStyleProperty("Default","Borders");
			$this->addStyleProperty("Default","Font");
			$this->addStyleProperty("Default","Interior");
			$this->addStyleProperty("Default","NumberFormat");
			$this->addStyleProperty("Default","Protection");
		}
.
.
.
		
		public function end() {
			header("Content-Type: application/vnd.ms-excel; charset=" . $this->encoding);
			header("Pragma: public"); 
			header("Expires: 0");
			header("Cache-Control: must-revalidate, post-check=0, pre-check=0");
			header("Cache-Control: private",false); 
			header("Content-Disposition: attachment; filename=\"" . $this->filename . ".xls\"");

			print(stripslashes(sprintf($this->header, $this->encoding)));
			
			print("\n<Workbook xmlns=\"urn:schemas-microsoft-com:office:spreadsheet\"\n".
					"\txmlns:o=\"urn:schemas-microsoft-com:office:office\"\n".
					"\txmlns:x=\"urn:schemas-microsoft-com:office:excel\"\n".
					"\txmlns:ss=\"urn:schemas-microsoft-com:office:spreadsheet\"\n".
					"\txmlns:html=\"http://www.w3.org/TR/REC-html40\">\n");

			print("<DocumentProperties xmlns=\"urn:schemas-microsoft-com:office:office\">\n".
					"\t<Author>".$this->author."</Author>\n".
					"\t<LastAuthor>".$this->author."</LastAuthor>\n".
					"\t<Created>".date("Y-m-d")."T".date("H:i:s")."Z</Created>\n".
					"\t<Company>TEST</Company>\n".
					"\t<Version>11.8036</Version>\n".
					"</DocumentProperties>\n");
		.
                .
                .
			print "\n</Workbook>\n";
		}
	}