activexobject mysql_使用IE的ActiveXObject对象导出

使用IE的ActiveXObject对象

js:

try{

var oXL = new ActiveXObject("Excel.Application");

var oWB = oXL.Workbooks.Add();

var oSheet = oWB.ActiveSheet;

var sel=document.body.createTextRange();

sel.moveToElementText(obj);

sel.select();

sel.execCommand("Copy");

oSheet.Paste();

//以下是设置excel单元格宽度

oSheet.Columns(1).ColumnWidth =3;

oSheet.Columns(2).ColumnWidth =15;

oSheet.Columns(3).ColumnWidth =20;

oSheet.Columns(4).ColumnWidth =3;

oSheet.Columns(5).ColumnWidth =50;

oSheet.Columns(6).ColumnWidth =4;

oSheet.Columns(7).ColumnWidth =15;

oSheet.Columns(8).ColumnWidth =5;

oSheet.Rows.AutoFit;

oSheet.Rows.Font.Size=8;

//oSheet.Rows.RowHeight = 30

//xlsSheet.Rows(2).WrapText=true; //自动换行

//oWB.ActiveSheet.Cells(row,col).WrapText=true;

oXL.Visible = true;

}catch(e){

alert("请确定已安装Excel2000(或更高版本)!");

return;

}