<?
#ส่วนนี้เป็นการทำงานเกี่ยวกับการอัพโหลดไฟล์ excel
#ใครไม่เข้าใจส่วนนี้ให้ ศึกษาเรื่องการทำงานกับระบบไฟล์ ก่อนนะ
$ImportName = "ImportXLS.xls";
$fileXLS=$_FILES["fileXLS"]["tmp_name"];
copy($fileXLS , $ImportName);
#-------------------------------------------------------------------------
#*** Get Document Path ***
$strPath = realpath(basename(getenv($_SERVER["SCRIPT_NAME"]))); # ไฟล์ excel ที่อัพโหลดไว้
$OpenFile = $ImportName;
#*** Create Exce.Application ***
$xlApp = new COM("Excel.Application");
$xlBook = $xlApp->Workbooks->Open($strPath."/".$OpenFile);
$xlSheet1 = $xlBook->Worksheets(1);
#Query to db กำหนด 5000 rows
#อย่าลืมกำหนดส่วนการ connect db ไว้ด้วยนะ เดี๋ยวจะ query ไม่ได้
for($i=1;$i<=5000;$i++){
$sql = "insert into customer (CusID , CusName , CusAddress , CusTel , CusFax , CusBank , CusBranch , CusAccNumber) values (" ;
$sql .= '\'' . $xlSheet1->Cells->Item($i,1) . '\'' . ',' . '\''. $xlSheet1->Cells->Item($i,2) .'\'' . ',' . '\'' . $xlSheet1->Cells->Item($i,3) .'\'' . ',' . '\'' . $xlSheet1->Cells->Item($i,4) .'\'' . ',' .
'\'' . $xlSheet1->Cells->Item($i,5) . '\'' . ',' . '\'' . $xlSheet1->Cells->Item($i,6). '\'' . ',' . '\'' . $xlSheet1->Cells->Item($i,7) . '\'' . ',' . '\'' . $xlSheet1->Cells->Item($i,8) .'\'' . ')';
}
#*** Close & Quit ***
$xlApp->Application->Quit();
$xlApp = null;
$xlBook = null;
$xlSheet1 = null;
unlink($strPath."\\".$OpenFile); #ลบไฟล์ excel ครับ [ใช้แล้วทิ้ง 555+]
?>
ลองไปประยุกต์ดูนะจ๊ะ
ไม่มีความคิดเห็น:
แสดงความคิดเห็น
หมายเหตุ: มีเพียงสมาชิกของบล็อกนี้เท่านั้นที่สามารถแสดงความคิดเห็น