PHP con EXCEL

[masterhades]

esta es la clase, hum voy a revisar la FAQ, gracias

Código PHP:

 Clase para crear y modificar un archivo Excel desde PHP
 
2002-03-22
1876 lecturas 
 
Esta clase de PHP permite crear, cargar, leer, escribir y grabar en libros y hojas de Microsoft Excel. 
 
 
<?php 
/* Class for use with PHP4 scripts only*/ 
/* 
* This is an Excel class to create,load,read,write,save and use some of the internal 
* functionalities of workbooks and sheets. 
* Tested with Windows 98 - MS Office 2000 
* Apache 1.3.9 PHP4.02 Running as CGI 
* (c) Alain M. Samoun 09/2000. 
* [email protected] 
* Gnu GPL code (see www.fsf.org for more information). 
*/ 
 
class Excel { 
/* variables */ 
var $ex; 
var $pathin; 
var $pathout; 
var $workbook; 
var $sheet; 
var $visible; 
var $fformatin; 
var $fformatout; 
var $cell; 
var $rangesens; 
var $range; 
var $ext; 
var $oext; 
var $error = 0; 
var $msg_error; 
 
/* Constructor */ 
function excel() 
{ 
#Instantiate Excel 
$this->ex = new COM("Excel.Application") or $this->error = 1; 
if ($this->get_error()==0) 
return true; 
else 
return false; 
} 
 
function XL($workbook,$pathin="",$sheet="Hoja1") 
{ 
if ($workbook != "") 
{ 
#Load the workbook 
$wkb = @$this->ex->application->Workbooks->Open($pathin.$workbook) or $this->error = 2; 
}else{ 
#New workbook 
$wkb = @$this->ex->application->Workbooks->Add or $this->error = 3; 
} 
if ($this->error==0) 
if ($sheet != "") 
{ 
#Activate the sheet 
$sheets = @$wkb->Worksheets($sheet) or $this->error = 4; 
}else{ 
#new sheet 
$sheet = "Hoja1" ; 
} 
#Excel Won't prompt the user when replacing or closing workbooks 
#Comment the line below if you want Excel to prompt 
// $this->ex->application->DisplayAlerts = "False"; 
if ($this->get_error()==0) 
return true; 
else 
return false; 
} 
 
function readrange($sheet="Hoja1",$range) 
{ 
#Read all the cells in the range to $result and return it 
unset ($result); 
$range = trim($range); 
#Determine start and end of range 
$tokstart = strtok($range,":"); 
$tokend = strtok(":"); 
if ($tokend =="") 
{ 
#Read one single cell 
$sheets = $this->ex->Application->Worksheets($sheet); 
$sheets->activate; 
#Select the cell 
$selcell = $sheets->Range($range); 
$selcell->activate; 
return $selcell->value; 
} 
#Read a range of cells 
#determine column and row numbers 
$sheets = $this->ex->Application->Worksheets($sheet); 
$sheets->activate; 
$rgstart = $sheets->range($tokstart); 
$colstart = $rgstart->column; 
$rowstart = $rgstart->row; 
$rgend = $sheets->range($tokend); 
$colend = $rgend->column; 
$rowend = $rgend->row; 
if ($colstart>$colend or $rowstart>$rowend) 
{ 
Print ("Notation Error! Cell Column/Row should be increasing."); 
return; 
} 
#Now read each cell 
if ($colstart == $colend) 
{ 
#Read Vertically 
$j=0; 
For ($i= $rowstart; $i<=$rowend; $i++) 
{ 
$selcell = $sheets->cells($i,$colstart); 
$selcell->activate; 
$result[$j] = $selcell->value; 
$j++; 
} 
}else 
{ 
#Read horizontally 
$j=0; 
For ($i= $colstart; $i<=$colend; $i++) 
{ 
$selcell = $sheets->cells($rowstart,$i); 
$selcell->activate; 
$result[$j] = $selcell->value; 
$j++; 
} 
} 
return $result; 
} 
 
function writerange($sheet="Hoja1",$range,$value) 
{ 
#Fill up all the cells in the range with array 
$range = trim($range); 
#Determine start and end of range 
$tokstart = strtok($range,":"); 
$tokend = strtok(":"); 
if ($tokend =="") 
{ 
# Write to a single cell in the active sheet 
$cell = trim($range); 
#Select the sheet 
$sheets = $this->ex->Application->Worksheets($sheet); 
$sheets->activate; 
#Select the cell 
$selcell = $sheets->Range($cell); 
$selcell->activate; 
$selcell->value = $value; 
return; 
} 
#determine column and row numbers 
$sheets = $this->ex->Application->Worksheets($sheet); 
$sheets->activate; 
$rgstart = $sheets->range($tokstart); 
$colstart = $rgstart->column; 
$rowstart = $rgstart->row; 
$rgend = $sheets->range($tokend); 
$colend = $rgend->column; 
$rowend = $rgend->row; 
if ($colstart>$colend or $rowstart>$rowend) 
{ 
Print ("Notation Error! Cell Column/Row should be increasing."); 
return; 
} 
#Now write each cell 
if ($colstart == $colend) 
{ 
#write Vertically 
$j=0; 
For ($i= $rowstart; $i<=$rowend; $i++) 
{ 
$selcell = $sheets->cells($i,$colstart); 
$selcell->activate; 
$selcell->value = $value[$j]; 
$j++; 
} 
}else 
{ 
#Write horizontally 
$j=0; 
For ($i= $colstart; $i<=$colend; $i++) 
{ 
$selcell = $sheets->cells($rowstart,$i); 
$selcell->activate; 
$selcell->value = $value[$j]; 
$j++; 
} 
} 
return 1; 
} 
function saveas($workbook,$pathout,$ext) 
{ 
 
#First get the file format code for the extension $ext 
$code = $this->fileformater($ext); 
$basefile = strtok($workbook,"."); 
$newworkbook = $basefile."."."$ext"; 
 
#If no prompt and file exists it will be replaced. 
 
#Save the current workbook as new workbook 
#The following line will work for converting spreadsheets file to xls 
#but if the original is an excel file and the new file another format 
#then it may not work because limitations of excel.(See excel doc) 
$this->ex->Application->ActiveWorkbook->SaveAS($pathout.$newworkbook,$code); 
 
return 1; 
} 
 
function fileformater($ext) 
{ 
switch(strtolower($ext)) 
{ 
case "slk": 
return 2; 
break; 
case "xlt": 
return -4143; 
break; 
case "txt": 
return -4158; 
break; 
case "csv": 
return 6; 
break; 
case "xlw": 
return 35; 
break; 
case "w4k": 
return 38; 
break; 
case "wq1": 
return 34; 
break; 
case "prn": 
return -4158; 
break; 
case "dif": 
return 9; 
break; 
case "xla": 
return -4143; 
break; 
case "wk3": 
return 32; 
break; 
case "xls": 
return -4143; 
break; 
case "htm": 
return 44; 
break; 
case "wks": 
return 4; 
break; 
default: 
return -4143; 
 
} 
} 
function XLTranslate($pathin,$pathout,$oext,$ext,$kill=0) 
{ 
#This function will translate automatically all spreadsheets files, with the 
#$oext extension, in the $pathin directory, to another spreadsheet file, 
#with the $ext extension, to the $pathout directory. 
#It will erase the original file if $kill switch = 1. 
#Limitations: Will work always when translating none excel files to 
#excel files(Extension=xl*) and with the translation xls->htm . It will 
#not generally work when translating excel files to other formats because 
#the questions asked by the excel program stop the script. 
#Get all files in the source directory $pathin to the $filelist array 
chdir($pathin); 
$dir=dir ("."); 
$i=1; 
while($file=$dir->read()) 
{ 
$filelist [$i] = $file; 
$i++; 
} 
$dir->close; 
#Translate each file, with the original extension $oext, in the $filelist 
#to the needed extension $ext. 
for ($i=1;$i<= sizeof($filelist); $i++) 
{ 
$file = $filelist[$i]; 
$basefile = strtok($file,"."); 
$extension = strtok("."); 
 
if (strtolower($extension) == strtolower($oext)) 
{ 
echo "<BR> $file"; 
$this->XL($file,$pathin,$sheet=""); 
$this->saveas($file,$pathout,$ext,""); 
#Erase the original file if $kill=1 
if ($kill) 
{ 
chmod ($file,0777); 
unlink ($pathin.$file); 
} 
#Close the new workbook 
$this->closeXL(); 
} 
} 
return 1; 
} 
 
function closexl() 
{ 
#Close active workbook without prompt from Excel 
$this->ex->application->ActiveWorkbook->Close("False"); 
return 1; 
} 
function runfunction($funct,$arrayparam) 
{ 
#Run and return value of an excel function 
$params = implode(",",$arrayparam); 
eval ("$result = $this->ex->application->$funct($params);"); 
return $result; 
} 
Function runmacro($workbook,$macroname) 
{ 
$this->ex->application->Run("$workbook!$macroname"); 
return 1; 
} 
Function createhyperlink($sheet="Hoja1",$cell,$hyperl) 
{ 
#Not working as 9/2/00 4:57PM 
print "<br>link = $hyperl <br>"; 
$sheets = $this->ex->Application->Worksheets($sheet); 
$sheets->activate; 
#Select the cell 
$selcell = $sheets->Range($cell); 
$sheets->hyperlinks->add($selcell,$hyperl); 
 
return 1; 
} 
function calculate($sheet="Hoja1") 
{ 
#Calculate (update) the current sheet 
$sheets = $this->ex->Application->Worksheets($sheet); #Select the sheet 
$sheets->activate; 
$sheets->Calculate; 
return 1; 
} 
 
function get_error() 
{ 
return $this->error; 
} 
 
function set_error($id_error) 
{ 
$this->error = $id_error; 
} 
 
function get_msg_error($id_error) 
{ 
switch($id_error) 
{ 
// case 1: return "Did not instantiate Excel"; 
case 1: return "No se puede abrir el fichero Excel"; 
// case 2: return "Did not open $pathin $workbook"; 
case 2: return "No se puede abrir el fichero Excel seleccionado"; 
// case 3: return "Unable to add a workbook"; 
case 3: return "Unable to add a workbook"; 
// case 4: return "Unable to activate $sheet"; 
case 4: return "No se puede abrir el fichero Excel seleccionado"; 
} 
} 
} /* end of Excel class */ 
?>