国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表
主站蜘蛛池模板: 商丘市| 古田县| 新野县| 封丘县| 磐石市| 鄂伦春自治旗| 区。| 离岛区| 山东省| 安塞县| 宝鸡市| 皮山县| 涪陵区| 甘南县| 吴江市| 凌源市| 襄汾县| 伊金霍洛旗| 韶关市| 临泉县| 巴彦淖尔市| 凤冈县| 永修县| 宁强县| 鹤峰县| 高台县| 和龙市| 桑日县| 宁武县| 东乌珠穆沁旗| 宝兴县| 仁布县| 肥西县| 青田县| 山阳县| 诏安县| 自贡市| 澎湖县| 沁源县| 青海省| 达孜县|