关闭

javascript 导excle

233人阅读 评论(0) 收藏 举报

 把页面的内容导成excle表格

1table中不存在跨行或快列的情况

unction AutomateExcel(){

 var oXL = new ActiveXObject("Excel.Application");  //创建应该对象
 // alert("hang==1");
 var oWB = oXL.Workbooks.Add();//新建一个Excel工作簿
 //alert("hang==2");
 var oSheet = oWB.ActiveSheet;//指定要写入内容的工作表为活动工作表
 //alert("hang==11");
 var table = document.getElementById("display111");//all.display1;//指定要写入的数据源的id
 alert(document.all.display1);
 var hang = table.rows.length;//取数据源行数
 //alert(hang);
 var lie = table.rows(0).cells.length;//取数据源列数
 //alert(lie);
 //alert("hang=="+hang);
 // Add table headers going cell by cell.
 for (i=0;i<hang;i++){//在Excel中写行
   for (j=0;j<lie;j++){//在Excel中写列
     //定义格式
     //alert('333');
     oSheet.Cells(i+1,j+1).Font.Bold = true;//加粗
     oSheet.Cells(i+1,j+1).Font.Size = 10;//字体大小
     oSheet.Cells(i+1,j+1).value = table.rows(i).cells(j).innerText;//向单元格写入值
   }
 }
 oXL.Visible = true;
 oXL.UserControl = true;
}

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:4711次
    • 积分:137
    • 等级:
    • 排名:千里之外
    • 原创:8篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章分类
    文章存档