nDh4

yg ke excel

Jun 4th, 2012
77
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.47 KB | None | 0 0
  1. <?php
  2. error_reporting(E_ALL);
  3. require_once 'baru/Classes/PHPExcel.php';
  4. // Create new PHPExcel object
  5. $objPHPExcel = new PHPExcel();
  6.  
  7. mysql_connect("localhost", "root", "root") or die(mysql_error());
  8. mysql_select_db("pln2") or die(mysql_error());
  9. //$TGL=$_POST[TGL];
  10. $unik = strtotime($_POST['TGL']);
  11. $tanggal=date('Y-m-d', $unik);
  12. // $date=date('Y-m-d',strtotime($_POST['TGL']) );
  13.  
  14. $query = "SELECT a.NM, b.ID_PEL, b.NO_METER, b.DY_BR, b.GARDU, b.TIANG, b.TGL, c.C_TIM FROM tm_plg a, td_plg b, t_tim c where a.ID_PEL=b.ID_PEL and a.C_TIM=c.C_TIM and a.STATUS_KSR=0 and b.TGL=$tanggal";
  15. $hasil = mysql_query($query);
  16.  
  17. // Set properties
  18. $objPHPExcel->getProperties()->setCreator("Daud Edison Tarigan")
  19. ->setLastModifiedBy("Daud Edison Tarigan")
  20. ->setTitle("Office 2007 XLSX Test Document")
  21. ->setSubject("Office 2007 XLSX Test Document")
  22. ->setDescription("Test document for Office 2007 XLSX, generated using PHP classes.")
  23. ->setKeywords("office 2007 openxml php")
  24. ->setCategory("Test result file");
  25.  
  26.  
  27. //Add some data
  28. $objPHPExcel->setActiveSheetIndex(0)
  29. ->setCellValue('A1', 'Data Pelanggan')
  30. ->setCellValue('A2', 'Nama Tim')
  31. ->setCellValue('A3', 'Tanggal')
  32. ->setCellValue('A5', 'No')
  33. ->setCellValue('B5', 'Nama')
  34. ->setCellValue('C5', 'Id Pelanggan')
  35. ->setCellValue('D5', 'Nomor Meter')
  36. ->setCellValue('E5', 'Daya')
  37. ->setCellValue('F5', 'Gardu')
  38. ->setCellValue('G5', 'Tiang');
  39.  
  40. $rowNya = 6;
  41. $no = 0;
  42. while($row=mysql_fetch_array($hasil)){
  43. $objPHPExcel->setActiveSheetIndex(0)
  44. ->setCellValue("B2", $row['C_TIM'])
  45. ->setCellValue("B3", $tanggal);
  46. $no = $no +1;
  47. $objPHPExcel->setActiveSheetIndex(0)
  48. ->setCellValue("A$rowNya", $no)
  49. ->setCellValue("B$rowNya", $row['NM'])
  50. ->setCellValue("C$rowNya", $row['ID_PEL']." " )
  51. ->setCellValue("D$rowNya", $row['NO_METER']." ")
  52. ->setCellValue("E$rowNya", $row['DY_BR'])
  53. ->setCellValue("F$rowNya", $row['GARDU'])
  54. ->setCellValue("G$rowNya", $row['TIANG']);
  55. $rowNya = $rowNya + 1;
  56. }
  57.  
  58.  
  59. // Rename sheet
  60. $objPHPExcel->getActiveSheet()->setTitle('Simple');
  61.  
  62. // Set active sheet index to the first sheet, so Excel opens this as the first sheet
  63. $objPHPExcel->setActiveSheetIndex(0);
  64.  
  65. // Redirect output to a client’s web browser (Excel5)
  66. header('Content-Type: application/vnd.ms-excel');
  67. header('Content-Disposition: attachment;filename="database_plg.xls"');
  68. header('Cache-Control: max-age=0');
  69.  
  70. $objWriter = PHPExcel_IOFactory::createWriter($objPHPExcel, 'Excel5');
  71. $objWriter->save('php://output');
  72. exit;
  73. ?>
Advertisement
Add Comment
Please, Sign In to add comment