js 导出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;

 }