2008-03-03

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;

 }
评论
发表评论

您还没有登录，请登录后发表评论

lsk
搜索本博客
存档
最新评论