js操作wordexcel.docx
《js操作wordexcel.docx》由会员分享，可在线阅读，更多相关《js操作wordexcel.docx（18页珍藏版）》请在冰豆网上搜索。
js操作wordexcel
JS操作Word和Excel的方法
***************************************************************************************
</p><p>
center;">
单元格1 |
单元格2 | 单元格3 | 单元格4 | center;">单元格合并
|
| test |
MakeWord（）;"value="导出页面到Word">
functionMakeWord（）
{
varword=newActiveXObject（"Word.Application"）;
//vardoc=word.documents.open（"c:
\test.doc"）;//此处为打开已有的模版
vardoc=word.Documents.Add（"",0,1）;//不打开模版直接加入内容
varRange=doc.Range（）;
varsel=document.body.createTextRange（）;
sel.moveToElementText（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
***************************************************************************************************
***************************************************************************************************
3.遍历导出到word
***************************************************************************************************
1、遍历导出每个文本框内的内容。
functionOpenWord（）{//导出word
vartxt="txt";
for（i=0;i{
txt="txt"+jilu[i];
myRange=mydoc.Range（myRange.End-1,myRange.End）;//设定起始点
varsel=Layer1.document.body.createTextRange（）;
//sel.moveToElementText（table1）;
sel.moveToElementText（document.all[txt]）;
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
functionOpenWord（）{//导出word
Layer1.style.border=0;
ExcelSheet=newActiveXObject（'Word.Application'）;
ExcelSheet.Application.Visible=true;
varmydoc=ExcelSheet.Documents.Add（'',0,0）;
myRange=mydoc.Range（0,1）;
myRange=mydoc.Range（myRange.End-1,myRange.End）;//设定起始点
varsel=Layer1.document.body.createTextRange（）;
sel.moveToElementText（table1）;
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;
}
**************************************************************************************************
4.操作excel
**************************************************************************************************
<%@pagec%>
content
functionMakeExcel（）{
vari,j,n;
try{
varxls=newActiveXObject（"Excel.Application"）;
}
catch（e）{
alert（"要打印该表，您必须安装Excel电子表格软件，同时浏览器须使用“ActiveX控件”，您的浏览器须允许执行控件。
请点击【帮助】了解浏览器设置方法！
"）;
return"";
}
xls.visible=true;//设置excel为可见
varxlBook=xls.Workbooks.Add;
varxlsheet=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="发卡记录";
xlsheet.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;
--设置字体ws.Range（ws.Cells（i0+1,j0）,ws.Cells（i0+1,j1））.Font.Size=13-->
xlsheet.Rows
（1）.Font.Size=14;
--设置字体设置选定区的字体xlsheet.Range（xlsheet.Cells（i0,j0）,ws.Cells（i0,j0））.Font.Name="黑体"-->
xlsheet.Rows
（1）.Font.Name="黑体";
--设置列宽xlsheet.Columns
（2）=14;-->
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.XlVAlign.xlVAlignCenter
//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="发卡时间";
varoTable=document.all['fors:
data'];
varrowNum=oTable.rows.length;
for（i=2;i<=rowNum;i++）{
for（j=1;j<=7;j++）{
//htmltable类容写到excel
xlsheet.Cells（i+1,j）.Value=oTable.rows（i-1）.cells（j-1）.innerHTML;
}
}
--xlsheet.Range（xls.Cells（i+4,2）,xls.Cells（rowNum,4））.Merge;-->
//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）,xlsheet.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.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+1,7））.Borders
（2）.Weight=2;//设置底边距
xls.UserControl=true;//很重要,不能省略,不然会出问题意思是excel交由用户控制
xls=null;
xlBook=null;
xlsheet=null;
}
ziyuanweihu
top"border="0"cellpadding="0"cellspacing="0"width="100%">
|
sort"border="0"cellpadding="0"cellspacing="0"style="valign:
center"width="100%">
_id7"value="生成excel文件"/>
|
data"border="1"cellpadding="0"cellspacing="1"width="100%">
data:
headerText1">卡号
data:
headerText2">密码
data:
headerText3">计费方式
data:
headerText4">有效天数
金额
data:
headerText6">所属服务项目
data:
headerText7">发卡时间
|
| h000010010 | 543860 | 计点 | | 2.0 | 测试项目 | 2006-06-2310: 14: 40.843 |
| h000010011 | 683352 | 计点 | | 2.0 | 测试项目 | 2006-06-2310: 14: 40.843 |
| h000010012 | 433215 | 计点 | | 2.0 | 测试项目 | 2006-06-2310: 14: 40.843 |
| h000010013 | 393899 | 计点 | | 2.0 | 测试项目 | 2006-06-2310: 14: 40.843 |
| h000010014 | 031736 | 计点 | | 2.0 | 测试项目 | 2006-06-2310: 14: 40.843 |
| h000010015 | 188600 | 计点 | | 2.0 | 测试项目 | 2006-06-2310: 14: 40.843 |
| h000010016 | 363407 | 计点 | | 2.0 | 测试项目 | 20
展开阅读全文
相关搜索
|