JS操作Excel

来源:互联网 发布:最好的足球数据网站 编辑:程序博客网 时间:2024/05/20 15:58
function MakeExcel(){
var
i,j;
try
{
var xls =new ActiveXObject ("Excel.Application"
);
}
catch
(e) {
alert(
"要打印该表,您必须安装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="发卡记录"
;
// xlsheet.Range(xlsheet.Cells(1,1),xlsheet.Cells(1,6)).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="发卡时间"
;

var oTable=document.all['fors: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;
}

原创粉丝点击