利用ActiveXObject导出excel

最新推荐文章于 2023-03-28 10:51:44 发布
最新推荐文章于 2023-03-28 10:51:44 发布
阅读量1.1k 收藏
点赞数
分类专栏： javascript 
<html> 
<head> 
<script language="javascript" type="text/javascript"> 
function MakeExcel() { 
var i, j, n; 
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,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 = "发卡时间"; 
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; 
} 
} 
<!-- 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; 
} 
</script> 
<link href="css/styles3.css" rel="stylesheet" type="text/css"/> 
<title>ziyuanweihu</title> 
</head> 
<body> 
<form id="fors" method="post" action="/WebModule/admins/card/showcard.faces" enctype="application/x-www-form-urlencoded"> 
<table id="fors:top" border="0" cellpadding="0" cellspacing="0" width="100%"> 
<tbody> 
<tr> 
<td class="left"><img src="images/jiao1.gif" alt="" /></td> 
<td class="topMiddle"></td> 
<td class="right"><img src="images/jiao2.gif" alt="" /></td> 
</tr> 
</tbody> 
</table> 
<table border="0" cellpadding="0" cellspacing="0" width="100%"> 
<tbody> 
<tr> 
<td class="middleLeft"></td> 
<td class="btstyle"> 
<table id="fors:sort" border="0" cellpadding="0" cellspacing="0" style="valign:center" width="100%"> 
<tbody> 
<tr> 
<td class="btstyle"> 
<input type="button" name="fors:_id7" value="生成excel文件" onclick="MakeExcel()" /> 
</td> 
</tr> 
</tbody> 
</table> 
<table id="fors:data" border="1" cellpadding="0" cellspacing="1" width="100%"> 
<thead> 
<tr> 
<th scope="col"><span id="fors:data:headerText1">卡号</span></th> 
<th scope="col"><span id="fors:data:headerText2">密码</span></th> 
<th scope="col"><span id="fors:data:headerText3">计费方式</span></th> 
<th scope="col"><span id="fors:data:headerText4">有效天数</span></th> 
<th scope="col">金额</th> 
<th scope="col"><span id="fors:data:headerText6">所属服务项目</span></th> 
<th scope="col"><span id="fors:data:headerText7">发卡时间</span></th> 
</tr> 
</thead> 
<tbody> 
<tr> 
<td>h000010010</td> 
<td>543860</td> 
<td>计点</td> 
<td></td> 
<td>2.0</td> 
<td>测试项目</td> 
<td>2006-06-23 10:14:40.843</td> 
</tr> 
<tr> 
<td>h000010011</td> 
<td>683352</td> 
<td>计点</td> 
<td></td> 
<td>2.0</td> 
<td>测试项目</td> 
<td>2006-06-23 10:14:40.843</td> 
</tr> 
<tr> 
<td>h000010012</td> 
<td>433215</td> 
<td>计点</td> 
<td></td> 
<td>2.0</td> 
<td>测试项目</td> 
<td>2006-06-23 10:14:40.843</td> 
</tr> 
<tr> 
<td>h000010013</td> 
<td>393899</td> 
<td>计点</td> 
<td></td> 
<td>2.0</td> 
<td>测试项目</td> 
<td>2006-06-23 10:14:40.843</td> 
</tr> 
<tr> 
<td>h000010014</td> 
<td>031736</td> 
<td>计点</td> 
<td></td> 
<td>2.0</td> 
<td>测试项目</td> 
<td>2006-06-23 10:14:40.843</td> 
</tr> 
<tr> 
<td>h000010015</td> 
<td>188600</td> 
<td>计点</td> 
<td></td> 
<td>2.0</td> 
<td>测试项目</td> 
<td>2006-06-23 10:14:40.843</td> 
</tr> 
<tr> 
<td>h000010016</td> 
<td>363407</td> 
<td>计点</td> 
<td></td> 
<td>2.0</td> 
<td>测试项目</td> 
<td>2006-06-23 10:14:40.843</td> 
</tr> 
<tr> 
<td>h000010017</td> 
<td>175315</td> 
<td>计点</td> 
<td></td> 
<td>2.0</td> 
<td>测试项目</td> 
<td>2006-06-23 10:14:40.843</td> 
</tr> 
<tr> 
<td>h000010018</td> 
<td>354437</td> 
<td>计点</td> 
<td></td> 
<td>2.0</td> 
<td>测试项目</td> 
<td>2006-06-23 10:14:40.843</td> 
</tr> 
<tr> 
<td>h000010019</td> 
<td>234750</td> 
<td>计点</td> 
<td></td> 
<td>2.0</td> 
<td>测试项目</td> 
<td>2006-06-23 10:14:40.843</td> 
</tr> 
</tbody> 
</table> 
</td> 
<td class="middleRight"></td> 
</tr> 
</tbody> 
</table> 
<table id="fors:bottom" border="0" cellpadding="0" cellspacing="0" width="100%"> 
<tbody> 
<tr> 
<td class="left"> 
<img src="images/jiao3.gif" alt=""/> 
</td> 
<td class="bottomMiddle"> </td> 
<td class="right"> 
<img src="images/jiao4.gif" alt=""/> 
</td> 
</tr> 
</tbody> 
</table> 
<input type="hidden" name="fors" value="fors" /> 
</form> 
</body> 
</html>
xiaonibaba
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
使用JavaScript中的ActiveXObject填充并设置Excel格式
07-29
使用JavaScript中的ActiveXObject填充并设置Excel格式
ActiveXObject做excel导出
志明博客
11-13 2714
var idTmr; function getExplorer() { var explorer = window.navigator.userAgent ; //ie if (explorer.indexOf("MSIE") >= 0) { return 'ie'; } //firefox else if (explorer.in
vue项目导出Excel表格
weixin_43638890的博客
10-30 5449
vue项目导出Excel表格
实现excel 表格导出
weixin_59395272的博客
03-28 228
1、安装第三方包 npm install vue-json-excel --save。在setBank.vue 文件中的代码如下。方法一：后端配合，通过调接口导出。2、在main.js中引入。3、在.vue文件中使用。
调用ActiveX控件把页面内容直接导入excel
绿茵场的激情
11-22 3017
//导出excel     function method1(tableid) {          var curTbl = document.getElementById(tableid);          var oXL;          try{              oXL = new ActiveXObject("Excel.Application");
使用ActiveXObject将页面中的表格导入到Excel中
wangchunyu506的博客
12-14 1397
将页面中指定表格的数据导入到Excel中 function AutoExcel(){    var oXL = new ActiveXObject("Excel.Application"); //创建应该对象    var oWB = oXL.Workbooks.Add(); //新建一个Excel工作簿    var oSheet = oWB.ActiveSheet;
js导入导出excel(实例代码)
12-03
导入： 代码如下:<...<head>...[removed]function importXLS(fileName){ objCon = new ActiveXObject(“ADODB.Connection”); objCon.Provider = “Microsoft.Jet.OLEDB.4.0”; objCon.Conn
EasyUI 结合JS导出Excel文件的实现方法
01-19
废话俺就少说了，直接进入正题！！单纯的JS能够导出Excel的不多见，一般都需要调用客户端所安装的Office Excel组件来完成这个工作。... var oXL = new ActiveXObject(Excel.Application); //创建AX对象excel
JavaScript将Web页面内容导出到Word及Excel的方法
10-24
主要介绍了JavaScript将Web页面内容导出到Word及Excel的方法,涉及javascript操作ActiveXObject控件的使用技巧,具有一定参考借鉴价值,需要的朋友可以参考下
window.ActiveXObject使用说明
09-05
判断浏览器是否支持ActiveX控件，如果浏览器支持ActiveX控件可以利用
js实现数据导出为EXCEL（支持大量数据导出）
01-19
1、ActiveXObject(“Excel.Application”) 这种方法只能在IE下使用。 优点：参照VBA控制excel对象。（代码不会的可以录制宏） 缺点：引用cell对象太慢，上万行数据导出时间超过2分钟 2、以Table方式导出为html文件...
盘点我用过的导出Excel的方法
yuol的专栏
11-07 817
盘点我用过的c#导出Excel的6种方式，放送真实可用的代码，部分也介绍了缺点，可择优选用。
同时导出多个excel，并且一个excel中包含多个sheet
qq_42688511的博客
07-15 1811
前段组内要做一个关于excel的任务，其中一个小业务：一个文件夹下有多个excel,要求导出的一个文件夹代表一个excel，一个excel代表一个sheet，最终导出的是一个excel中包含多个sheet。也就是要合并一个文件夹中的多个excel。......
详讲：C#快速导出多个sheet到excel的两种方法（Cell和Range方法）， 解决了（导入时外部表不是预期的格式）...
dawuafang
12-03 560
C# 导出的表加载时报错:外部表不是预期的格式。的解决方案 在网卡找了一些Excel导出的方法，大部分能导出，但时不能将导出的Excel导入。总是报：外部表不是预期的格式 找了好久终于找到了解决方案。 这是本人整理修改后的的可以实现导出导入的方法。供大家学习参考，方法就是用一个没问题的Excel模板，在模板的基础上进行操作。 引用空间：using Excel = Microsoft.O...
使用JS导出表格为Excel
hellotutu的博客
04-26 5766
使用JS导出表格为Excel HTML部分 js方法： var idTmr; function getExplorer() { var userAgent = navigator.userAgent; //取得浏览器的userAgent字符串 var isOpera = userAgent.indexOf(“Opera”) > -1; //判断是否Opera浏览器 var isIE = userAgent.indexOf(“compatible”) > -1 && user
ActiveXObject对excel的操作
my2016的专栏
07-15 8146
1.入门: 创建 Automation 对象，将新的 ActiveXObject 赋给对象变量：  var ExcelSheet;  ExcelApp = new ActiveXObject("Excel.Application");  ExcelSheet = new ActiveXObject("Excel.Sheet");   　本代码启动创建对象
Javascript操作Excel总结
铭心工作室
02-26 3838
 1.创建一个新Excel表格    var XLObj = new ActiveXObject("Excel.Application");    var xlBook = XLObj.Workbooks.Add;                         //新增工作簿    var ExcelSheet = xlBook.Worksheets(1);                 
原生js导出Excel表格，兼容ie
最新发布
05-27
要在原生js中导出Excel表格并兼容ie，可以使用ActiveXObject对象。以下是代码示例： ```javascript function exportExcel(tableId) { // 获取表格对象 var tbl = document.getElementById(tableId); // 创建...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值