javascript 导excle 多表对应一个EXCEL

原创 2007年09月29日 17:40:00
 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;  
       } 

多表内连接查询关键字不对应时要注意的一个问题

作者:iamlaosong 多表连接查询中最常用的事内连接,内连接中最常用的是等值连接,即在连接条件中使用等于号(=)运算符比较被连接列的列值,其查询结果中列出被连接表中的所有列,包括其中的重复列。例...

FORM 更新多表视图(Form直接更新View对应的数据表)

一般来说,多表视图在Form是不可以直接更新的。但是视图有其方便性(就是可以串出很多需要的栏位,不需要在Form的Post-query或者其他触发器中特别写代码赋值), 所以很多时候我们需要Form...
  • samt007
  • samt007
  • 2012年09月21日 17:54
  • 1896

excel多表合并实例

  • 2012年05月31日 20:29
  • 21KB
  • 下载

Excel宏操作多表合并

  • 2009年09月01日 17:59
  • 814B
  • 下载

hibernate中的多表对应关系

1 多对一javabean(Item.java)private User manager; //子栏目版主//配置文件 Item.hbm.xml //测试 @Test p...

多表分sheet导出到excel

  • 2011年12月27日 18:58
  • 374KB
  • 下载

DataSet中多表导出到同一Excel的不同sheet中

1.封装代码如下   using System; using System.Collections.Generic; using System.Web; using System.Data;...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:javascript 导excle 多表对应一个EXCEL
举报原因:
原因补充:

(最多只允许输入30个字)