编程语言

img pjchen

使用Jscript编写EXCEL导出

发表于2004/10/30 23:16:00  961人阅读

下面是一段关于采用JSCRIPT语言对EXCEL的导出,下面的程序是对导出的关键一段,读者可以自己参考EXCEL用户手册进行修改。

function exportexcel()
{
    var iSubjectNum,iElementNum;   
    var sText;   
    var iX=1;
    var iY=2;
    var xlsub;
 //   alert('export');
 IniExcel();
 xlApp.visible=false; 
    if (fso.FileExists(sExcelPath)==true ) {
        xlsub=xlApp.Application.Workbooks.Open(sExcelPath); 
        //alert(xlsub);
        //xlsub=xlApp.Application.Worksheets(ipage);               
       
     }   
     else{
        xlApp.Workbooks.Add();
        //xlsub=xlApp.Application.Worksheets(1);             
        //ipage=1;
     }        
    var sheetcount=xlApp.Application.Worksheets.Count;   
    var addcount=ipage-sheetcount;   
    if (addcount!=0){
       for(var m=0;m<addcount;m++)
         xlApp.Application.Worksheets.Add();  
    }
   
   //Ñ°ÕÒÊÇ·ñÓÐÏàͬµÄSHEET       
   var bFlag=false;
   var isheetpos=-1;  
   for (var n=1;n<=sheetcount;n++) {         
     if (xlApp.Application.Worksheets(n).Name==("Sheet"+ipage.toString())) {                          
           bFlag=true;         
           isheetpos=n;
       }
     
  }     
  if (bFlag==false )
    {  xlApp.Application.Worksheets.Add();  
       ipage=1;   
    }
    else
    {
       ipage=isheetpos;
    }  
 
    xlsub=xlApp.Application.Worksheets(ipage);               
 xlsub.Cells(1,1).Value =oHead.ReportName.toString();    
 sText=of_convert_char(1)+"1:"+of_convert_char(iColumnNum)+"1"; 
 xlsub.Range(sText).Merge(true);     
 xlsub.Range(sText).HorizontalAlignment=3;
 xlsub.Range(sText).Font.Size=20;
 xlsub.Range(sText).Font.Bold=true;
 iSubjectNum=oHead.oSubject.length;
 iY=iY+1; 
    for(var i= 0; i<iSubjectNum;i++) {                               
       if (oHead.oSubject[i].oElement==null){   
    xlsub.Cells(iY,iX).Value =oHead.oSubject[i].SubjectName.toString();
    var temp=iY+3;
    sText=of_convert_char(iX)+iY.toString()+":"+of_convert_char(iX)+temp.toString();            
    xlsub.Range(sText).Merge(false);
    xlsub.Range(sText).HorizontalAlignment=3;  
    xlsub.Range(sText).Borders.LineStyle=1;                               
    xlsub.Range(sText).Font.Size=10;
    continue;
    }
    else
      iElementNum= oHead.oSubject[i].oElement.length;                   
       xlsub.Cells(iY,iX).Value =oHead.oSubject[i].SubjectName.toString();                           
       sText=of_convert_char(iX)+iY+":"+of_convert_char(iX+iElementNum-1)+iY; 
       xlsub.Range(sText).Merge(true);   
       xlsub.Range(sText).HorizontalAlignment=3;  
       xlsub.Range(sText).Borders.LineStyle=1;
       xlsub.Range(sText).Font.Size=10;
       iY=iY+1;
       for(var j=0;j<iElementNum;j++){         
    xlsub.Cells(iY,iX).Value =oHead.oSubject[i].oElement[j].ElementName.toString();
    var temp=iY+2;
    sText=of_convert_char(iX)+iY.toString()+":"+of_convert_char(iX)+temp.toString();            
    xlsub.Range(sText).Merge(false);
    xlsub.Range(sText).HorizontalAlignment=3;  
    xlsub.Range(sText).Borders.LineStyle=1;
    xlsub.Range(sText).Font.Size=10;
    iX=iX+1;
  }
       iY=iY-1;      
    }
    iY=iY+3;   
    for (var i=0;i<iRowNum;i++)    {
     
      iY++;   
      for (var j=0 ;j<iColumnNum;j++)      {
       
        xlsub.Cells(iY,j+1).Value=oBody[i][j].toString();
        xlsub.Cells(iY,j+1).Borders.LineStyle=1;
        xlsub.Cells(iY,j+1).Font.Size=10;
     
      }
 
     }   
     if (fso.FileExists(sExcelPath)==true ) { 
          var thiswork=xlApp.Application.ActiveWorkbook;
              thiswork.Saved=true;       
              thiswork.Save();
              thiswork.Close(true);       
     }   
     else
         xlsub.SaveAs(sExcelPath);
     window_onunload();
     alert("Îļþ´æ·ÅÔÚ£º"+sExcelPath);    
}
阅读全文
0 0

相关文章推荐

img
取 消
img