关闭

javascript 导excle 多表对应一个EXCEL

362人阅读 评论(0) 收藏 举报
 function printExcle(fromrow,pageId) {
 //pageId传的是一个table的对象
  //alert(pageId);
  //alert(fromrow);
  //alert('11111');
    var oXL = new ActiveXObject("Excel.Application"); //创建应该对象
      var oWB = oXL.Workbooks.Add();//新建一个Excel工作簿
      var oSheet = oWB.ActiveSheet;//指定要写入内容的工作表为活动工作表
      var table = pageId;
      var rows = table.rows.length;
      var colSumCols = table.rows(0).cells.length;
      var beginCol = 0;
      var cols = colSumCols;
      var rowSpans=1;  //行合并
      var colSpans=1;  //列合并
     //寻找列数,考虑到第一行可能存在合并
     for (var i=0; i<colSumCols;i++) {
         var tmpcolspan = table.rows(0).cells(i).colSpan;
         if ( tmpcolspan>1 ) {
             cols += tmpcolspan-1;
         }
     }
     //定义2维容器数据,1:行;2:列;值(0 可以填充,1 已被填充)
     var container=new Array(rows);
     for (var i=0;i<rows;i++) {
         container[i]=new Array(cols);
         for (j=0;j<cols;j++) {
             container[i][j]=0;
         }
     }
     //将所有单元置为文本,避免非数字列被自动变成科学计数法和丢失前缀的0
    
     oSheet.Range(oSheet.Cells(fromrow+1,1), oSheet.Cells(fromrow+rows,cols)).NumberFormat = "@";
     oXL.Visible = true;
     // Add table headers going cell by cell.
     for (i=0;i<rows;i++){
         for (j=0;j<cols;j++){
             //寻找开始列
             for (k=j;k<cols;k++){
                 if (container[i][k]==0) {
                     beginCol=k;
                     k=cols; //退出循环
                 }
             }
             //赋值
             try{
             oSheet.Cells(i+1+fromrow,beginCol+1).value = table.rows(i).cells(j).innerText;
             colSpans = table.rows(i).cells(j).colSpan;
             if (colSpans>1) {
                 //合并
                 oSheet.Range(oSheet.Cells(i+1+fromrow,beginCol+1), oSheet.Cells(i+1+fromrow,beginCol+colSpans)).Merge();
             }
             //将当前table位置填写到对应的容器中
             for (k=0; k<colSpans;k++) {
                 container[i][beginCol+k]= 1;
             }
             rowSpans = table.rows(i).cells(j).rowSpan;
             if (rowSpans>1) { //行合并
                 oSheet.Range(oSheet.Cells(i+1+fromrow,beginCol+1), oSheet.Cells(i+rowSpans+fromrow,beginCol+colSpans)).Merge();
                 //将当前table位置填写到对应的容器中
                 for (k=1; k<rowSpans;k++) {  //由于第0行已经被colSpans对应的代码填充了,故这里从第1行开始
                     for (l=0;l<colSpans;l++) {
                         container[i+k][beginCol+l]=1;
                     }
                 }
             }
             //如果开始列+合并列已经等于列数了,故不需要再循环html table
             if (beginCol+colSpans>=cols) j=cols;
             }catch(e){
             }
         }
     }
     //字符大小为9
     oSheet.Range(oSheet.Cells(fromrow+1,1), oSheet.Cells(fromrow+rows,cols)).Font.Size=9;
     //自动调整列宽
     oSheet.Range(oSheet.Cells(1,1), oSheet.Cells(fromrow+rows,cols)).Columns.AutoFit();
     //自动调整行高
     oSheet.Range(oSheet.Cells(fromrow+1,1), oSheet.Cells(fromrow+rows,cols)).Rows.AutoFit();
     //划边框
     oSheet.Range(oSheet.Cells(fromrow+1,1), oSheet.Cells(fromrow+rows,cols)).Borders.LineStyle = 1;
     return rows;
 }
 <!--***********下边是图片********************-->
 
 function copyToExcel(){  
  
    //alert(pics);          
   var excelOBJ= new ActiveXObject("Excel.Application"); //实例化对象 
   var sheet = excelOBJ.WorkBooks.Add();//建立一个新的Excel
   //alert(sheet);
   //alert("picPath======" + pics);
 sheet.Sheets(1).Pictures.Insert(pics);//查如图片pics指的是图片的url 向excle中插入图片
   excelOBJ.Quit();  
  excelOBJ=null;  
   }
       
     function copyToExcel1(){ 
       
       var excelOBJ= new ActiveXObject("Excel.Application");  
       var sheet = excelOBJ.WorkBooks.Add();
       //alert(sheet);
       alert("picPath======" + pics1);
       sheet.Sheets(1).Pictures.Insert(pics1);//查如图片pics指的是图片的url 向excle中插入图片
       excelOBJ.Quit();  
      excelOBJ=null;  
       } 
0
0

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