如何使用Jscript編寫EXCEL導出

這篇文章主要介紹了如何使用Jscript編寫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         xlApp.Application.Worksheets.Add();  
   }
   
  //?°?òê???óD?àí?μ?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("???t′????ú￡o"+sExcelPath);    
}

感謝你能夠認真閱讀完這篇文章，希望小編分享的“如何使用Jscript編寫EXCEL導出”這篇文章對大家有幫助，同時也希望大家多多支持億速云，關注億速云行業資訊頻道，更多相關知識等著你來學習!