《js操作word、excel.pdf》由会员分享，可在线阅读，更多相关《js操作word、excel.pdf（13页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、JS操作 Word 和 Excel 的方法*单元格 1 单元格 2 单元格 3 单元格 4 单元格合并 test function MakeWord()var word=new ActiveXObject(Word.Application);/var doc=word.documents.open(c:test.doc);/此处为打开已有的模版var doc=word.Documents.Add(,0,1);/不打开模版直接加入内容var Range=doc.Range();var sel=document.body.createTextRange();sel.moveToElementTex
2、t(form);/此处 form 是页面 form 的 id sel.select();sel.execCommand(Copy);Range.Paste();word.Application.Visible=true;alert(s);word.Application.Selection.InlineShapes.AddPicture(c:m20.gif);alert(n);doc.saveAs(c:ba.doc);/存放到指定的位置注意路径一定要是“”不然会报错 *2.用 JS生成 WORD*function wordcontorl()alert(1111)var WordApp=new
3、ActiveXObject(Word.Application);var wdCharacter=1 var wdOrientLandscape=1 WordApp.Application.Visible=true;var myDoc=WordApp.Documents.Add();WordApp.ActiveDocument.PageSetup.Orientation=wdOrientLandscape WordApp.Selection.ParagraphFormat.Alignment=1/1 居中对齐,0 为居右WordApp.Selection.Font.Bold=true WordA
4、pp.Selection.Font.Size=20 WordApp.Selection.TypeText(我的标题);WordApp.Selection.MoveRight(wdCharacter);/光标右移字符WordApp.Selection.TypeParagraph()/插入段落WordApp.Selection.Font.Size=12 WordApp.Selection.TypeText(副标题);/分行插入日期WordApp.Selection.TypeParagraph()/插入段落var myTable=myDoc.Tables.Add(WordApp.Selection.
5、Range,8,7)/8 行 7 列的表格/myTable.Style=网格型 var aa=我的列标题 var TableRange;/以下为给表格中的单元格赋值for(i=0;i7;i+)with(myTable.Cell(1,i+1).Range)font.Size=12;InsertAfter(aa);ColumnWidth=4 for(i=0;i7;i+)for(n=0;n7;n+)with(myTable.Cell(i+2,n+1).Range)font.Size=12;InsertAfter(bbbb);row_count=0;col_count=0 myDoc.Protect(
6、1)wordcontorl()*3.遍历导出到word*1、遍历导出每个文本框内的内容。function OpenWord()/导出 word var txt=txt;for(i=0;itable1.rows.length;i+)/遍历导出图表和文字 txt=txt+jilui;myRange=mydoc.Range(myRange.End-1,myRange.End);/设定起始点var sel=Layer1.document.body.createTextRange();/sel.moveToElementText(table1);sel.moveToElementText(documen
7、t.alltxt);sel.select();Layer1.document.execCommand(Copy);sel.moveEnd(character);myRange.Paste();myRange=mydoc.Range(myRange.End-1,myRange.End);myRange.InsertAfter(n);ExcelSheet.ActiveWindow.View.TableGridlines=false;/隐藏虚框 2、拷贝 table1 内的内容到word function OpenWord()/导出 word Layer1.style.border=0;ExcelS
8、heet=new ActiveXObject(Word.Application);ExcelSheet.Application.Visible=true;var mydoc=ExcelSheet.Documents.Add(,0,0);myRange=mydoc.Range(0,1);myRange=mydoc.Range(myRange.End-1,myRange.End);/设定起始点var sel=Layer1.document.body.createTextRange();sel.moveToElementText(table1);sel.select();Layer1.documen
9、t.execCommand(Copy);sel.moveEnd(character);myRange.Paste();myRange=mydoc.Range(myRange.End-1,myRange.End);myRange.InsertAfter(n);ExcelSheet.ActiveWindow.View.TableGridlines=false;*4.操作 excel*content function MakeExcel()var i,j,n;try var xls=new ActiveXObject(Excel.Application);catch(e)alert(要打印该表，您必
10、须安装Excel 电子表格软件，同时浏览器须使用“ActiveX 控件”，您的浏览器须允许执行控件。请点击【帮助】了解浏览器设置方法！);return;xls.visible=true;/设置 excel 为可见var xlBook=xls.Workbooks.Add;var xlsheet=xlBook.Worksheets(1);xlsheet.Range(xlsheet.Cells(1,1),xlsheet.Cells(1,7).mergecells=true;xlsheet.Range(xlsheet.Cells(1,1),xlsheet.Cells(1,7).value=发卡记录;x
11、lsheet.Range(xlsheet.Cells(1,1),xlsheet.Cells(1,3).Interior.ColorIndex=5;/设置底色为蓝色/xlsheet.Range(xlsheet.Cells(1,1),xlsheet.Cells(1,6).Font.ColorIndex=4;/设置字体色/xlsheet.Rows(1).Interior.ColorIndex=5;/设 置 底 色为 蓝色设 置 背景 色Rows(1).Font.ColorIndex=4 xlsheet.Rows(1).RowHeight=25;xlsheet.Rows(1).Font.Size=14
12、;xlsheet.Rows(1).Font.Name=黑体;xlsheet.Columns(A:D).ColumnWidth=18;xlsheet.Columns(2).NumberFormatLocal=;xlsheet.Columns(7).NumberFormatLocal=;/设置单元格内容自动换行range.WrapText=true;/设 置 单 元 格内 容 水平 对齐 方式range.HorizontalAlignment=Excel.XlHAlign.xlHAlignCenter;/设置单元格内容竖直堆砌方式/range.VerticalAlignment=Excel.XlV
13、Align.xlV AlignCenter/range.WrapText=true;xlsheet.Rows(3).WrapText=true 自动换行/设置标题栏xlsheet.Cells(2,1).Value=卡号;xlsheet.Cells(2,2).Value=密码;xlsheet.Cells(2,3).Value=计费方式;xlsheet.Cells(2,4).Value=有效天数;xlsheet.Cells(2,5).Value=金额;xlsheet.Cells(2,6).Value=所属服务项目;xlsheet.Cells(2,7).Value=发卡时间;var oTable=d
14、ocument.allfors:data;var rowNum=oTable.rows.length;for(i=2;i=rowNum;i+)for(j=1;j=7;j+)/html table 类容写到excel xlsheet.Cells(i+1,j).Value=oTable.rows(i-1).cells(j-1).innerHTML;/xlsheet.Range(xlsheet.Cells(i,4),xlsheet.Cells(i-1,6).BorderAround,4/for(mn=1,mn=6;mn+).xlsheet.Range(xlsheet.Cells(1,mn),xlsh
15、eet.Cells(i1,j).Columns.AutoFit;xlsheet.Columns.AutoFit;xlsheet.Range(xlsheet.Cells(1,1),xlsheet.Cells(rowNum+1,7).HorizontalAlignment=-4108;/居中xlsheet.Range(xlsheet.Cells(1,1),xlsheet.Cells(1,7).VerticalAlignment=-4108;xlsheet.Range(xlsheet.Cells(2,1),xlsheet.Cells(rowNum+1,7).Font.Size=10;xlsheet.
16、Range(xlsheet.Cells(2,1),xlsheet.Cells(rowNum+1,7).Borders(3).Weight=2;/设置左边距xlsheet.Range(xlsheet.Cells(2,1),xlsheet.Cells(rowNum+1,7).Borders(4).Weight=2;/设置右边距xlsheet.Range(xlsheet.Cells(2,1),xlsheet.Cells(rowNum+1,7).Borders(1).Weight=2;/设置顶边距xlsheet.Range(xlsheet.Cells(2,1),xlsheet.Cells(rowNum
17、+1,7).Borders(2).Weight=2;/设置底边距xls.UserControl=true;/很重要,不能省略,不然会出问题意思是 excel 交由用户控制xls=null;xlBook=null;xlsheet=null;ziyuanweihu 卡号 密码 计费方式 有效天数 金额 所 属 服 务 项 目 发卡时间 h000010010 543860 计点 2.0 测试项目 2006-06-23 10:14:40.843 h000010011 683352 计点 2.0 测试项目 2006-06-23 10:14:40.843 h000010012 433215 计点 2.0
18、测试项目 2006-06-23 10:14:40.843 h000010013 393899 计点 2.0 测试项目 2006-06-23 10:14:40.843 h000010014 031736 计点 2.0 测试项目 2006-06-23 10:14:40.843 h000010015 188600 计点 2.0 测试项目 2006-06-23 10:14:40.843 h000010016 363407 计点 2.0 测试项目 2006-06-23 10:14:40.843 h000010017 175315 计点 2.0 测试项目 2006-06-23 10:14:40.843 h
19、000010018 354437 计点 2.0 测试项目 2006-06-23 10:14:40.843 h000010019 234750 计点 2.0 测试项目 2006-06-23 10:14:40.843%-/-1-导出到 excel function exportExcel(tableid)if(typeof(EXPORT_OBJECT)!=object)document.body.insertAdjacentHTML(afterBegin,);with(EXPORT_OBJECT)DataType=HTMLData;HTMLData=tableid.outerHTML;try 表格
20、.xls,0);alert(成功导出EXCEL 表格！);catch(e)alert(导出 EXCEL 表格失败，请确定已安装Excel2000(或更高版本),并且没打开同名 xls 文件);第一个单元格 第二个单元格 第三个单元格 第四个单元格 第五个单元格 第六个单元格 /-2-function tableToExcel()window.clipboardData.setData(Text,document.all(theObjTable).outerHTML);try var ExApp=new ActiveXObject(Excel.Application);var ExWBk=ExA
21、pp.workbooks.add();var ExWSh=ExWBk.worksheets(1);ExApp.DisplayAlerts=false;ExApp.visible=true;catch(e)alert(您的电脑没有安装Microsoft Excel 软件！);return false;ExWBk.worksheets(1).Paste;function tableToWord()var oWD=new ActiveXObject(Word.Application);var oDC=oWD.Documents.Add(,0,1);var oRange=oDC.Range(0,1);
22、var sel=document.body.createTextRange();sel.moveToElementText(theObjTable);sel.select();sel.execCommand(Copy);oRange.Paste();oWD.Application.Visible=true;在 html 页面中 把网页中的表 格内容导入到 word 中 也可以导入到excel /-3-%*5.有关用 js 实现网页中的内容直接转化为excel 的方法*function out()try var elTable=document.getElementById(out);var o
23、RangeRef=document.body.createTextRange();oRangeRef.moveToElementText(elTable);oRangeRef.execCommand(Copy);var oXL=new ActiveXObject(Excel.Application)var oWB=oXL.Workbooks.Add;var oSheet=oWB.ActiveSheet;oSheet.Paste();oSheet.Cells.NumberFormatLocal=;oSheet.Columns(D:D).Select oXL.Selection.ColumnWidth=20/oSheet.Columns(A:A).Select/oSheet.Columns(A).Width=1000;oXL.Visible=true;oSheet=null;oWB=null;appExcel=null;catch(e)alert(e.description)00001 0002 00001 000002 0003 00003