javascript生成excel.doc
上传人:sy****28 上传时间:2024-09-13 格式:DOC 页数:3 大小:31KB 金币:16 举报 版权申诉
预览加载中,请您耐心等待几秒...

javascript生成excel.doc

javascript生成excel.doc

预览

在线预览结束,喜欢就下载吧,查找使用更方便

16 金币

下载此文档

如果您无法下载资料,请参考说明:

1、部分资料下载需要金币,请确保您的账户上有足够的金币

2、已购买过的文档,再次下载不重复扣费

3、资料包下载后请先用软件解压,在使用对应软件打开

使用JavaScript中的ActiveXObject填充并设置Excel格式。1创建varXLObj=newActiveXObject("Excel.Application");varxlBook=XLObj.Workbooks.Add;//新增工作簿varExcelSheet=xlBook.Worksheets(1);//创建工作表2.保存表格ExcelSheet.SaveAs("C:\\TEST.XLS");3.使Excel通过Application对象可见ExcelSheet.Application.Visible=true;4.打印xlBook.PrintOut;或者:ExcelSheet.PrintOut;5.关闭xlBook.Close(savechanges=false);或者:ExcelSheet.Close(savechanges=false);6.结束进程ExcelSheet.Application.Quit();或者:XLObj.Quit();XLObj=null;7.页面设置ExcelSheet.ActiveSheet.PageSetup.LeftMargin=2/0.035;//页边距左2厘米ExcelSheet.ActiveSheet.PageSetup.RightMargin=3/0.035;//页边距右3厘米ExcelSheet.ActiveSheet.PageSetup.TopMargin=4/0.035;//页边距上4厘米ExcelSheet.ActiveSheet.PageSetup.BottomMargin=5/0.035;//页边距下5厘米ExcelSheet.ActiveSheet.PageSetup.HeaderMargin=1/0.035;//页边距页眉1厘米ExcelSheet.ActiveSheet.PageSetup.FooterMargin=2/0.035;//页边距页脚2厘米ExcelSheet.ActiveSheet.PageSetup.CenterHeader="页眉中部内容";ExcelSheet.ActiveSheet.PageSetup.LeftHeader="页眉左部内容";ExcelSheet.ActiveSheet.PageSetup.RightHeader="页眉右部内容";ExcelSheet.ActiveSheet.PageSetup.CenterFooter="页脚中部内容";ExcelSheet.ActiveSheet.PageSetup.LeftFooter="页脚左部内容";ExcelSheet.ActiveSheet.PageSetup.RightFooter="页脚右部内容";8.对单元格操作,带*部分对于行,列,区域都有相应属性ExcelSheet.ActiveSheet.Cells(row,col).Value="内容";//设置单元格内容ExcelSheet.ActiveSheet.Cells(row,col).Borders.Weight=1;//设置单元格边框*()ExcelSheet.ActiveSheet.Cells(row,col).Interior.ColorIndex=1;//设置单元格底色*(1-黑色,2-白色,3-红色,4-绿色,5-蓝色,6-黄色,7-粉红色,8-天蓝色,9-酱土色..可以多做尝试)ExcelSheet.ActiveSheet.Cells(row,col).Interior.Pattern=1;//设置单元格背景样式*(1-无,2-细网格,3-粗网格,4-斑点,5-横线,6-竖线..可以多做尝试)ExcelSheet.ActiveSheet.Cells(row,col).Font.ColorIndex=1;//设置字体颜色*(与上相同)ExcelSheet.ActiveSheet.Cells(row,col).Font.Size=10;//设置为10号字*ExcelSheet.ActiveSheet.Cells(row,col).Font.Name="黑体";//设置为黑体*ExcelSheet.ActiveSheet.Cells(row,col).Font.Italic=true;//设置为斜体*ExcelSheet.ActiveSheet.Cells(row,col).Font.Bold=true;//设置为粗体*ExcelSheet.ActiveSheet.Cells(row,col).ClearContents;//清除内容*ExcelSheet.ActiveSheet.Cells(row,col).WrapText=true;//设置为自动换行*ExcelSheet.ActiveS