JS 导出EXCEL

因为公司的程序需要导出Excel,而且页面展示数据用的是 Html table 所以必需用 JS 导出 EXCEL，

调用EXCEL打开，但不自动保存。

经过测式，IE6,IE7,IE8 都好用，测式Excel版本：2000，2003，2007

导出代码如下：

<script type="text/javascript">

//开始行StartRow，开始列StartCol，结束行EndRow，结束列EndCol，特殊转换列NumCol

function TabToExcel(TableID,StartRow,StartCol,EndRow,EndCol,NumCol)
{
var Table= document.getElementById(TableID); //激活当前sheet
var AXE= new ActiveXObject("Excel.Application"); //创建AX对象excel
var AWB= AXE.Workbooks.Add(); //获取workbook对象
var ASheet = AWB.ActiveSheet; //复制TextRange中内容
try
{
//检查开始行，开始列，结束行，结束列
if (StartRow=="undefined" || StartRow <0)
{
StartRow = 0;
}
if (StartCol=="undefined" || StartCol <0)
{
StartCol = 0;
}
if (EndRow=="undefined" || EndRow <= 0)
{
EndRow = Table.rows.length;
}
if (EndRow>Table.rows.length)
{
EndRow = Table.rows.length;
}
if (EndCol == "undefined" || EndCol <=0)
{
EndCol = Table.rows[StartRow].cells.length;
}
if (EndCol>Table.rows[StartRow].cells.length)
{
EndCol = Table.rows[StartRow].cells.length;
}
//行列循环写入Excel
var ExStartRow = 1
for (var i = StartRow; i< EndRow; i++)
{
var ExStartCol = 1;
for (var j = StartCol ; j< EndCol; j++)
{
ASheet.cells(ExStartRow,ExStartCol).Value = Table.rows[i].cells[j].innerText;//文本内容
ASheet.Cells(ExStartRow,ExStartCol).Font.ColorIndex = 1;//字体颜色（黑色）
ASheet.Cells(ExStartRow,ExStartCol).Font.Size = 10;//字号(10号)
ASheet.Cells(ExStartRow,ExStartCol).Font.Name="宋体";// 字体(宋体)
//这个地方是我程序中的列为数值型13位的，所以要转一下类型，否则会出现 科学记数
if (j==NumCol && i>0)
{
ASheet.Cells(ExStartRow,ExStartCol).NumberFormat="0";
}
ExStartCol = ExStartCol+1;
}
ExStartRow = ExStartRow+1;
}
//除了上面的那个特殊列，所有的列转成文本型。s
for (var j = StartCol+1; j< EndCol+1; j++)
{
if (j!=NumCol-StartCol+1)
{
ASheet.Columns(j).NumberFormatLocal="@";
}
}
AXE.Visible = true; //设置excel可见属性
}
catch(er)
{
ASheet.Application.Quit();
}
}

<.script>