这篇文章主要介绍了如何使用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。内容未经允许不得转载,或转载时需注明来源: 创新互联