js wps excel导出

js wps excel

function makeexcel(pasteobj){
window.clipboardData.setData("Text",pasteobj.outerHTML);
try{
var ExApp;
try {
ExApp = new ActiveXObject("ET.Application");
} catch(e) {
try {
ExApp = new ActiveXObject("Excel.Application");
//var ExApp = new ActiveXObject("Excel.Application");
var ExWBk = ExApp.workbooks.add();
var ExWSh = ExWBk.worksheets(1);
ExApp.DisplayAlerts = false;
ExApp.visible = true;
} catch(e) {
alert( "您的电脑没有安装Microsoft Excel软件！ ");
return;
}
ExWBk.worksheets(1).Paste;
}
var curTbl = document.getElementById("tab1");
var oXL = ExApp;
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
//在此进行样式控制
oSheet.Rows(1+":"+1).RowHeight =20;//定义行高
oSheet.Rows(2+":"+2).RowHeight =20;
//定义列宽
oSheet.Columns('A:A').ColumnWidth = 50;
oSheet.Columns('B:B').ColumnWidth = 20;
oSheet.Columns('C:C').ColumnWidth = 10;
oSheet.Columns('D:D').ColumnWidth = 10;
oSheet.Columns('E:E').ColumnWidth = 10;
oSheet.Columns('F:F').ColumnWidth = 10;
oSheet.Columns('G:G').ColumnWidth = 10;
oSheet.Columns('H:H').ColumnWidth = 10;
oSheet.Rows(1).HorizontalAlignment=3;
var sel = document.body.createTextRange();
sel.moveToElementText(curTbl);
//sel.select();
sel.execCommand("Copy");
oSheet.Paste();
oXL.Visible = true;
}catch(e){
alert("您的电脑没有安装Microsoft Excel软件！");
return false;
}
//ExWBk.worksheets(1).Paste;
}

<table align=center width=80% cellspacing=0 id="tab">

<tr><td align=right><button onClick="makeexcel(document.all('tab1'))" accesskey="X"><a href=" http://www.50xiao.com">生成EXCEL(X)</a></button></td></tr>
</table>
50校招生网 http://www.50xiao.com