如何使用Jscript编写EXCEL导出

这篇文章主要介绍了如何使用Jscript编写EXCEL导出，具有一定借鉴价值，感兴趣的朋友可以参考下，希望大家阅读完这篇文章之后大有收获，下面让小编带着大家一起了解一下。

成都创新互联公司主营文水网站建设的网络公司,主营网站建设方案,app开发定制,文水h5微信平台小程序开发搭建,文水网站营销推广欢迎文水等地区企业咨询

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         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);    
}

感谢你能够认真阅读完这篇文章，希望小编分享的“如何使用Jscript编写EXCEL导出”这篇文章对大家有帮助，同时也希望大家多多支持创新互联，关注创新互联行业资讯频道，更多相关知识等着你来学习!

分享标题：如何使用Jscript编写EXCEL导出
路径分享：https://www.cdcxhl.com/article16/ieecgg.html

成都网站建设公司_创新互联，为您提供做网站、云服务器、自适应网站、外贸网站建设、搜索引擎优化、网站维护

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联