<div class="codetitle"> <span><a style="CURSOR: pointer" data="22999" class="copybut" id="copybut22999" onclick="doCopy('code22999')"><u>复制代</u></a></span>代码如下:</div> <div class="codebody" id="code22999"> <br><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><br><html xmlns="http://www.w3.org/ 1999/xhtml"><br> <head><br> <title>新しいドキュメント </title><br> <meta name="generator" content="editplus" /><br> <meta name="author" content="" /><br> <meta name="keywords" content="" /><br> <meta name="description" content="" /><br> <SCRIPT LANGUAGE="javascript"> <br> <!-- <BR> function AutomateExcel() <BR> { <BR> // Excelを起動し、Applicationオブジェクトを取得します。 <BR> var oXL = new ActiveXObject("Excel.Application"); <BR> // 新しいワークブックを取得します。 <BR> var oWB = oXL.Workbooks.Add(); <BR> var oSheet = oWB.ActiveSheet; <BR> var table = document.all.data; <BR> var Hang = table.rows.length; <BR> var lie = table.rows(0).cells.length; <BR> // テーブルヘッダーをセルごとに追加します。 <BR> for (i=0;i<hang;i ) <BR> { <BR> for (j=0;j<lie;j ) <BR> { <BR> //oSheet.Cells(i 1, j 1).Font.Bold = True <BR> //oSheet.Cells(i 1,j 1).Font.Size = 50 <BR> //oSheet.Cells(i 1,j 1).Alignment = 2<BR> oSheet.Cells(i 1,j 1).value = table.rows(i).cells(j).innerText; <BR> } <BR> } <BR> oXL.Visible = true; <BR> oXL.UserControl = true; <BR> } <BR> //--><BR> </SCRIPT><br> </head><br><br> <br> <body><br> <table border= "1" width="100%" id="data"><br> <tr><br> <td> 姓名</td><br> <tdcolspan="2">年龄</td><br> <td>出生日期</td><br> </tr><br> <tr><br> <td>6</td><br> <td>25</td><br> <tdcolspan="2">8</td><br> < ;/tr><br> <tr><br> <td height="22">1</td><br> <td height="22">2</td><br> <tdcolspan="2" height="22">4</td><br> </tr><br> </table><br><input type="button" name=" out_excel" onclick="AutomateExcel();" value="导出到excel" class="notPrint"><br> </body><br></html><br> </div>