複製程式碼 程式碼如下:
<!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%">
<tr>
<td> 姓名</td>
<td colspan="2">年齡</td>
<td>出生日期</td>
</tr>
<td>6</td>
<td>25</td>
<td colspan="2">8</td>
<td height="22">1</td>
<td height="22">2</td>
<td colspan="2" height="22">4</td>
</table>
<input type="button" name="out_excel" onclick="AutomateExcel();" value="匯出到excel">
</body>
</html>
複製程式碼 程式碼如下:
<!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%">
<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="匯出到excel">
</body>
</html>