<html>
<head>
<title>ThaiCreate.Com PHP Excel.Application Tutorial</title>
</head>
<body>
<?php
//*** Connect to MySQL Database ***//
$objConnect = mysql_connect("localhost","root","root") or die("Error Connect to Database");
$objDB = mysql_select_db("mydatabase");
$strSQL = "SELECT * FROM customer";
$objQuery = mysql_query($strSQL);
if($objQuery)
{
//*** Get Document Path ***//
$strPath = realpath(basename(getenv($_SERVER["SCRIPT_NAME"]))); // C:/AppServ/www/myphp
//*** File Name Gif,Jpeg,... ***//
$FileName = "MyXls/MyChart.Gif";
$Ext = "Gif";
//*** Excel Name ***//
$XlsName = "MyXls/MyChart.xls";
//*** Connect to Excel.Application ***//
$xlApp = new COM("Excel.Application");
$xlBook = $xlApp->Workbooks->Add();
$intStartRows = 3;
$intEndRows = mysql_num_rows($objQuery)+($intStartRows-1);
$xlSheet = $xlBook->Worksheets(1);
$xlApp->Application->Visible = False;
//*** Delete Sheet (2,3) - Sheet Default ***//
$xlBook->Worksheets(2)->Select;
$xlBook->Worksheets(2)->Delete;
$xlBook->Worksheets(2)->Select;
$xlBook->Worksheets(2)->Delete;
//*** Sheet Data Rows ***//
$xlBook->Worksheets(1)->Name = "MyReport";
$xlBook->Worksheets(1)->Select;
$xlBook->ActiveSheet->Cells(1,1)->Value = "My Customer";
$xlBook->ActiveSheet->Cells(1,1)->Font->Bold = True;
$xlBook->ActiveSheet->Cells(1,1)->Font->Name = "Tahoma";
$xlBook->ActiveSheet->Cells(1,1)->Font->Size = 16;
$xlBook->ActiveSheet->Cells(2,1)->Value = "Customer Name";
$xlBook->ActiveSheet->Cells(2,1)->Font->Name = "Tahoma";
$xlBook->ActiveSheet->Cells(2,1)->BORDERS->Weight = 1;
$xlBook->ActiveSheet->Cells(2,1)->Font->Size = 10;
$xlBook->ActiveSheet->Cells(2,1)->MergeCells = True;
$xlBook->ActiveSheet->Cells(2,2)->Value = "Used";
$xlBook->ActiveSheet->Cells(2,2)->BORDERS->Weight = 1;
$xlBook->ActiveSheet->Cells(2,2)->Font->Name = "Tahoma";
$xlBook->ActiveSheet->Cells(2,2)->Font->Size = 10;
$xlBook->ActiveSheet->Cells(2,2)->MergeCells = True;
$i = 0;
While($result = mysql_fetch_array($objQuery))
{
$xlBook->ActiveSheet->Cells($intStartRows+$i,1)->Value = $result["Name"];
$xlBook->ActiveSheet->Cells($intStartRows+$i,2)->Value = $result["Used"];
$xlBook->ActiveSheet->Cells($intStartRows+$i,2)->NumberFormat = "$#,##0.00";
$i++;
}
//*** End Data Rows ***//
//*** Creating Chart ***//
$xlBook->Charts->Add;
$xlBook->ActiveChart->ChartType = 67;
$xlBook->ActiveChart->SetSourceData ($xlBook->Sheets("MyReport")->Range("A".$intStartRows.":B".$intEndRows.""));
//*** Set Localtion Sheet ***//
$xlBook->ActiveChart->Location(2,"MyReport");
//*** Sheet Properties ***//
$xlBook->ActiveChart->PlotBy = 1;
$xlBook->ActiveChart->HasLegend = True;
$xlBook->ActiveChart->HasTitle = True;
$xlBook->ActiveChart->ChartTitle->Characters->Text = "Customer Report";
$xlBook->ActiveChart->ChartTitle->Font->Name = "Tahoma";
$xlBook->ActiveChart->ChartTitle->Font->FontStyle = "Bold";
$xlBook->ActiveChart->ChartTitle->Font->Size = 15;
$xlBook->ActiveChart->ChartTitle->Font->ColorIndex = 3;
//*** Location ***//
$xlBook->ActiveSheet->Shapes("Chart 1")->IncrementLeft(20);
$xlBook->ActiveSheet->Shapes("Chart 1")->IncrementTop(-97.5);
//'*** Set Height & Width ***'
$xlBook->ActiveSheet->Shapes("Chart 1")->ScaleHeight(1.0, 0,0);
$xlBook->ActiveSheet->Shapes("Chart 1")->ScaleWidth(1.0, 0,0);
//*** Save Charts ***//
@unlink($strPath."/".$FileName);
$xlApp->ActiveChart->Export($strPath."/".$FileName,$Ext);
//*** Save Excel ***//
@unlink($strPath."/".$XlsName);
$xlBook->SaveAs($strPath."/".$XlsName);
//$xlBook->SaveAs(realpath($XlsName));
$xlApp->Application->Quit;
}
?>
<strong>Charts Created</strong><br><br>
<img src="<?php echo $FileName?>">
</body>
</html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
