html导出excel的方法(简单)

html导出excel的方法（简单）
在html实现打印和导出excel的实现：
2006/11/05 01:54 P.M.
在所要打印和导如的EXCES的table 加个如 id = "PrintA"
在打印按纽上注册监听如：onclick="javascript:AllAreaWord(); 在加上如下内容：
<input type="submit" onclick="javascript:AllAreaWord();" value="打印" /> &nbsp;<input type="submit" onclick="javascript:CellAreaExcel();" value="导入EXCEl" />
<script language="javascript">
//指定页面区域内容导入Excel
function AllAreaExcel()
{
var oXL = new ActiveXObject("Excel.Application");
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
var sel=document.body.createTextRange();
sel.moveToElementText(PrintA);
sel.select();
sel.execCommand("Copy");
oSheet.Paste();
oXL.Visible = true;
}
//指定页面区域“单元格”内容导入Excel
function CellAreaExcel()
{
var oXL = new ActiveXObject("Excel.Application");
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
var Lenr = PrintA.rows.length;
for (i=0;i<Lenr;i++)
{
var Lenc = PrintA.rows(i).cells.length;
for (j=0;j<Lenc;j++)
{
oSheet.Cells(i+1,j+1).value = PrintA.rows(i).cells(j).innerText; }
}
oXL.Visible = true;
}
//指定页面区域内容导入Word
function AllAreaWord()
{
var oWD = new ActiveXObject("Word.Application"); var oDC = oWD.Documents.Add("",0,1);
var oRange =oDC.Range(0,1);
var sel = document.body.createTextRange();
sel.moveToElementText(PrintA);
sel.select();
sel.execCommand("Copy");
oRange.Paste();
oWD.Application.Visible = true;
//window.close();
}
</SCRIPT>
这样你的table中的内容就实现打印和导出到EXCEL中去了在导出到EXCEL中是有时候显示时间是
"#########" 你只要拖动鼠标把表格的距离拉大就可以了呵呵是不是很简单啊我也是刚学的！！。