ครายเคยทำข้อมูลออก word บ้างมั้ยค่ะ รบกวนผู้มีประสบการณ์ช่วยแนะนำการทำรายงานออกหน้า word หน่อยค่ะ
Code (PHP) <html>
<head>
<title>ThaiCreate.Com PHP Word.Application Tutorial</title>
</head>
<body>
<?
$wdAlignParagraphCenter = "1";
$wdAlignParagraphRight = "2";
$Wrd = new COM("Word.Application");
$DocName = "MyDoc/MyWord.doc";
$Wrd->Application->Visible = False;
//$strPath = realpath(basename(getenv($_SERVER["SCRIPT_NAME"]))); // C:/AppServ/www/myphp
$WrdDoc = $Wrd->Documents->Open(realpath("thaicreate.dot"));
$MyRange1 = $WrdDoc->Paragraphs->Add->Range;
$MyRange1->ParagraphFormat->Alignment = $wdAlignParagraphCenter;
$MyRange1->Font->Name = "Verdana";
$MyRange1->Font->Size = "20";
$MyRange1->Font->Bold = True;
$MyRange1->InsertBefore("Customer Report".chr(13));
$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);
$intRows = mysql_num_rows($objQuery);
$MyRange2 = $WrdDoc->Paragraphs->Add->Range;
$MyRange2->Font->Size = "10";
$objTable = $Wrd->ActiveDocument->Tables->Add($MyRange2,$intRows+1,6,1,2); //** Range,Rows,Column **//
//*** Header ***//
$objTable->Cell(1,1)->Range->InsertAfter("CustomerID");
$objTable->Cell(1,1)->Range->Bold = True;
$objTable->Cell(1,1)->Range->ParagraphFormat->Alignment = 1;
$objTable->Cell(1,2)->Range->InsertAfter("Name");
$objTable->Cell(1,2)->Range->Bold = True;
$objTable->Cell(1,2)->Range->ParagraphFormat->Alignment = 1;
$objTable->Cell(1,3)->Range->InsertAfter("Email");
$objTable->Cell(1,3)->Range->Bold = True;
$objTable->Cell(1,3)->Range->ParagraphFormat->Alignment = 1;
$objTable->Cell(1,4)->Range->InsertAfter("CountryCode");
$objTable->Cell(1,4)->Range->Bold = True;
$objTable->Cell(1,4)->Range->ParagraphFormat->Alignment = 1;
$objTable->Cell(1,5)->Range->InsertAfter("Budget");
$objTable->Cell(1,5)->Range->Bold = True;
$objTable->Cell(1,5)->Range->ParagraphFormat->Alignment = 1;
$objTable->Cell(1,6)->Range->InsertAfter("Used");
$objTable->Cell(1,6)->Range->Bold = True;
$objTable->Cell(1,6)->Range->ParagraphFormat->Alignment = 1;
//*** Detail ***//
$intRows = 1;
while($result = mysql_fetch_array($objQuery))
{
$intRows++;
$objTable->Cell($intRows,1)->Range->InsertAfter($result["CustomerID"]);
$objTable->Cell($intRows,1)->Range->ParagraphFormat->Alignment = 1;
$objTable->Cell($intRows,2)->Range->InsertAfter($result["Name"]);
$objTable->Cell($intRows,2)->Range->ParagraphFormat->Alignment = 0;
$objTable->Cell($intRows,3)->Range->InsertAfter($result["Email"]);
$objTable->Cell($intRows,3)->Range->ParagraphFormat->Alignment = 0;
$objTable->Cell($intRows,4)->Range->InsertAfter($result["CountryCode"]);
$objTable->Cell($intRows,4)->Range->ParagraphFormat->Alignment = 1;
$objTable->Cell($intRows,5)->Range->InsertAfter(number_format($result["Budget"],2));
$objTable->Cell($intRows,5)->Range->ParagraphFormat->Alignment = 2;
$objTable->Cell($intRows,6)->Range->InsertAfter(number_format($result["Used"],2));
$objTable->Cell($intRows,6)->Range->ParagraphFormat->Alignment = 2;
}
$MyRange3 = $WrdDoc->Paragraphs->Add->Range;
$MyRange3->ParagraphFormat->Alignment = $wdAlignParagraphRight;
$MyRange3->Font->Name = "Verdana";
$MyRange3->Font->Size = "10";
$MyRange3->InsertBefore(chr(13).chr(13).chr(13)." ................................Manager".chr(13).date("Y-m-d H:i:s"));
//$WrdDoc->SaveAs($strPath."/".$DocName);
$WrdDoc->SaveAs(realpath($DocName));
$Wrd->Application->Quit;
$Wrd = null;
?>
Word Created <a href="<?=$DocName?>">Click here</a> to Download.
</body>
</html>
PHP & Word
Date :
2009-08-14 20:58:21By :
webmaster
ขอบคุณค่ะ
Date :
2009-08-14 21:23:24By :
gummezaka
ขอบคุณเช่นกันครับบ
Date :
2009-08-14 22:23:35By :
panyapol
เยี่ยม
Date :
2009-08-15 00:32:58By :
danya
โย๊ว เยี่ยมมาก น้อง P@e
Date :
2009-08-15 07:29:09By :
webmaster
ตรงนี้ช่วยอธิบายหน่อยได้
Date :
2009-08-15 07:55:08By :
gummezaka
เอ่อ ! ของมี่ error บรรทัดที่ 16 อ่ะค่ะ
Date :
2009-08-15 08:13:22By :
gummezaka
แปววว มะมีครายอยู่ให้ถามเยย
Date :
2009-08-15 10:07:34By :
gummezaka
น่าสงสารมากมาย
Date :
2009-08-15 11:04:38By :
danya
ง่ะ ตามมากวนยั้นนี้เลยนะ
Date :
2009-08-15 11:15:19By :
gummezaka
ขุด ขุด ขุด รอคนช่วย คริ คริ
Date :
2009-08-15 13:27:27By :
gummezaka
ขึ้น error
Date :
2009-08-15 17:16:48By :
gummezaka
อืมมม แหล่ม เข้าใจแจ๋มแจ้งเลย
Date :
2009-08-15 18:11:07By :
plakrim
ง่า มาวันหยุดแล้วอ่ะ ล้างเครื่องลง windows ใหม่อ่ะ ยังมะได้หาโปรแกรมเขียนมาลงเลย เดี๋ยวลองวันจันทร์ถ้ายังมะด้ายอีกคงต้องมาขออนุญาตขุดกระทู้ต่อไป เหอๆ
Date :
2009-08-15 21:30:38By :
gummezaka
พอจาทราบการ error แล้วค่ะ เหตุเกิดจากุ้รันใน ie6 มานจารันออกมาปกติ แต่ถ้ารันใน ie7 จะเปงแบบมี่ค่ะ มีวิธีทำใน ทุก ie ได้ไหมค่ะ
Date :
2009-08-16 18:53:43By :
gummezaka
Server 05
Load balance : Server 05
Quote:
