国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > JavaScript > 正文

JS將表單導(dǎo)出成EXCEL的實例代碼

2019-11-20 21:44:18
字體:
供稿:網(wǎng)友
復(fù)制代碼 代碼如下:

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
 <head>
  <title> new document </title>
  <meta name="generator" content="editplus" />
  <meta name="author" content="" />
  <meta name="keywords" content="" />
  <meta name="description" content="" />
  <SCRIPT LANGUAGE="javascript"> 
  <!-- 
  function AutomateExcel() 
  { 
  // Start Excel and get Application object. 
  var oXL = new ActiveXObject("Excel.Application"); 
  // Get a new workbook. 
  var oWB = oXL.Workbooks.Add(); 
  var oSheet = oWB.ActiveSheet; 
  var table = document.all.data; 
  var hang = table.rows.length;
  var lie = table.rows(0).cells.length; 
  // Add table headers going cell by cell. 
  for (i=0;i<hang;i++) 
  { 
  for (j=0;j<lie;j++) 
  { 
  //oSheet.Cells(i+1,j+1).Font.Bold = True 
  //oSheet.Cells(i+1,j+1).Font.Size = 50 
  //oSheet.Cells(i+1,j+1).Alignment = 2
  oSheet.Cells(i+1,j+1).value = table.rows(i).cells(j).innerText; 
  } 
  } 
  oXL.Visible = true; 
  oXL.UserControl = true; 
  } 
  //-->
  </SCRIPT>
 </head>

 
 <body>
   <table border="1" width="100%" id="data">
  <tr>
   <td> 姓名</td>
   <td colspan="2">年齡</td>
   <td>出生日期</td>
  </tr>
  <tr>
   <td>6</td>
   <td>25</td>
   <td colspan="2">8</td>
  </tr>
  <tr>
   <td height="22">1</td>
   <td height="22">2</td>
   <td colspan="2" height="22">4</td>
  </tr>
  </table>
<input type="button" name="out_excel" onclick="AutomateExcel();" value="導(dǎo)出到excel" class="notPrint">
 </body>
</html>
發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板: 荃湾区| 贡山| 灵丘县| 常州市| 昌邑市| 大宁县| 康保县| 元江| 诸城市| 城市| 高雄县| 博湖县| 浮梁县| 昂仁县| 墨玉县| 九台市| 安达市| 怀远县| 寻乌县| 富川| 华蓥市| 梅河口市| 方山县| 交口县| 化隆| 永州市| 盘山县| 蓬溪县| 饶河县| 昌图县| 安庆市| 天水市| 莱阳市| 修文县| 常宁市| 萍乡市| 营山县| 黄平县| 丰原市| 蒙阴县| 陕西省|