JS导出word、excel

//指定页面区域内容导入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();  
}