- 浏览: 28454 次
- 性别:
- 来自: 北京
最新评论
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title>导出为excel</title>
<script type="text/javascript">
function printToExcel(html) {
try{
var ExApp = new ActiveXObject("Excel.Application") //创建应该对象
var ExWBk = ExApp.workbooks.add() //新建一个Excel工作簿
var ExWSh = ExWBk.worksheets(1) //指定要写入内容的工作表为活动工作表
ExApp.DisplayAlerts = false
ExApp.visible = true
}catch(e){
alert("您所设定的安全级别太高,或者您的电脑没有安装Microsoft Excel软件!")
return false
}
window.clipboardData.setData("Text", html);
ExWBk.worksheets(1).Paste;
ExWBk.worksheets(1).Columns.AutoFit;
ExWBk.worksheets(1).Rows.AutoFit;
}
function printToWord(html)
{
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.moveToElementText(html);//此处form是页面form的id
sel.select();
sel.execCommand("Copy");
Range.Paste();
word .Application.Visible = true;
word.Application.Selection.InlineShapes.AddPicture("c:\\m20.gif");
doc .saveAs("c:\\ba.doc"); //存放到指定的位置注意路径一定要是“\\”不然会报错
}
</script>
</head>
<body>
<!-- 以下为数据区 -->
<div id="dataArea">
<p style="color: Red; font-size: 20px;">
2009年猪流感统计表</p>
<table border="1" cellpadding="0" style="border-collapse: collapse;">
<tbody>
<tr>
<td>
<b>编号</b></td>
<td>
<b>用户名</b></td>
</tr>
<tr>
<td>
<b>编号</b></td>
<td>
<b>用户名</b></td>
</tr>
</tbody>
</table>
<br />
<input id="btExcel" type="button" onclick="printToExcel(dataArea.innerHTML);" value="导出为Excel" />
<input id="Button1" type="button" onclick="printToWord(dataArea);" value="导出为Word" />
</div>
</body>
</html>
1.创建一个新Excel表格
var XLObj = new ActiveXObject("Excel.Application");
var xlBook = XLObj.Workbooks.Add; //新增工作簿
var ExcelSheet = 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;
oXL.UserControl = true;
oXL=null;
oWB=null;
activeSheet=null;
//结束excel进程,退出完成
idTmr = window.setInterval("Cleanup();",1);
}
function Cleanup() {
window.clearInterval(idTmr);
CollectGarbage();
}
7.页面设置
ExcelSheet.ActiveSheet.PageSetup.Orientation = 2;
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.LeftFooter = "页脚左部内容";
ExcelSheet.ActiveSheet.PageSetup.RightFooter = "页脚右部内容"; ExcelSheet.ActiveSheet.PageSetup.CenterHeader = "&\"宋体,加粗\"&18长天公司" + date1 + "至" + date2 + "(施工图)项目进度检查表";
ExcelSheet.ActiveSheet.PageSetup.RightHeader = "&D";
ExcelSheet.ActiveSheet.PageSetup.PrintGridlines = true;
ExcelSheet.ActiveSheet.PageSetup.PrintTitleRows = "$1:$1";
ExcelSheet.ActiveSheet.PageSetup.Zoom = 75;
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.ActiveSheet.Cells(row,col).HorizontalAlignment = 3; //水平对齐方式枚举* (1-常规,
2-靠左,3-居中,4-靠右,5-填充 6-两端对齐,7-跨列居中,8-分散对齐)
ExcelSheet.ActiveSheet.Cells(row,col).VerticalAlignment = 2; //垂直对齐方式枚举*(1-靠上,
2-居中,3-靠下,4-两端对齐,5-分散对齐)
//行,列有相应操作:
ExcelSheet.ActiveSheet.Rows(row).
ExcelSheet.ActiveSheet.Columns(col).
ExcelSheet.ActiveSheet.Rows(startrow+":"+endrow). //如Rows("1:5")即1到5行
ExcelSheet.ActiveSheet.Columns(startcol+":"+endcol). //如Columns("1:5")即1到5列
//区域有相应操作:
XLObj.Range(startcell+":"+endcell).Select;
//如Range("A2:H8")即A列第2格至H列第8格的整个区域
XLObj.Selection.
//合并单元格
XLObj.Range(startcell+":"+endcell).MergeCells = true;
//如Range("A2:H8")即将A列第2格至H列第8格的整个区域合并为一个单元格
或者:
XLObj.Range("A2",XLObj.Cells(8, 8)).MergeCells = true;
9.设置行高与列宽
ExcelSheet.ActiveSheet.Columns(startcol+":"+endcol).ColumnWidth = 22;
//设置从firstcol到stopcol列的宽度为22
ExcelSheet.ActiveSheet.Rows(startrow+":"+endrow).RowHeight = 22;
//设置从firstrow到stoprow行的宽度为22
发表评论
-
js判断undefined类型
2013-02-22 10:22 582if (reValue== undefined){ a ... -
Js操作Select大全
2013-01-18 16:12 617Js操作Select大全 判断select选项中 ... -
Chrome下dhtmlxgrid加载xml报错
2012-12-20 15:04 1267今日,在Chorme下调试一个dhtmlxgrid页面,IE6 ... -
innerHTML和innerText
2012-12-13 12:18 541innerHTML是符合W3C标准的属性,而innerText ... -
Js操作Select大全
2012-11-29 10:48 612Js操作Select大全 判断select选项中 ... -
<base target="_self"/> 导致 "无法打开站点,已终止操作?"
2012-11-28 11:44 945<base target="_se ... -
jquery ajax中success与complete的执行顺序
2012-11-27 19:21 1354$.ajax({ type: &quo ...
相关推荐
javaScript写的方法,将html导出word和excel的详细例子。
JavaScript直接导出或导入Excel,Word
JavaScript利用ActiveX导出Excel,Word
java\JavaScript利用ActiveX导出Excel,Word .doc
使用JAVASCRIPT导出页面里的任意一个Table里的内容到Word或Excel.而且还保留了Table在页面里的样式。
javascript实现页面导出word_and_excel举例
本文实例讲述了JavaScript将Web页面内容导出到Word及Excel的方法。分享给大家供大家参考。具体实现方法如下: <HTML> <HEAD> <title>WEB页面导出为EXCEL文档的方法 </title> </HEAD&...
实例245 为网页设置背景音乐 378 实例246 随机播放背景音乐 380 实例247 MIDI音乐选择 381 8.9 插入Flash动画 383 实例248 插入Flash动画 383 实例249 插入背景透明的Flash动画 384 8.10 播放视频文件 385 实例250 ...
Javascript 浏览器客户端导出指定区域到Word、Excel,非常不错的应用实例
实例376 将查询结果导出到Word 619 实例377 调用Excel 621 实例378 调用PowerPoint 622 16.4 其他 623 实例379 树状导航菜单 623 第17章 JavaScript与ASP.NET结合 627 17.1 窗口与对话框 628 实例380...
实例245 为网页设置背景音乐 378 实例246 随机播放背景音乐 380 实例247 MIDI音乐选择 381 8.9 插入Flash动画 383 实例248 插入Flash动画 383 实例249 插入背景透明的Flash动画 384 8.10 播放视频文件...
15.29 用JavaScript导出图像到Excel 15.30 使用VML打造可改变大小的圆框 15.31 JavaScript实现文档结构图 15.32 判断一副图片是否加载完毕 第16章 页面数据的验证 16.1 验证字符串是否全由数字组成 16.2 验证表单项...
15.29 用JavaScript导出图像到Excel 15.30 使用VML打造可改变大小的圆框 15.31 JavaScript实现文档结构图 15.32 判断一副图片是否加载完毕 第16章 页面数据的验证 16.1 验证字符串是否全由数字组成 16.2 验证表单项...
javascript结合报表实现,从初级到高级提升的阶梯 实现了excel表格的打印,从excel导出到word功能
要以XLSX(Excel 2007+ XML格式)格式导出表,您需要包括: < script type = "text/javascript" src = "libs/js-xlsx/xlsx.core.min.js" > < / script > 要将表格导出为PDF文件,需要包括以下内容: &...
tableExport.jquery.plugin 将HTML表格导出到 CSV DOC文件 JSON格式 ... 要以XLSX(Excel 2007+ XML格式)格式导出表,您需要另外包括: < script type =" text/javascript " src =" libs/js-xls
<SCRIPT LANGUAGE="javascript"> <!-- function AutomateExcel() { // Start Excel and get Application object. var oXL = new ActiveXObject("Excel.Application"); //var oXL = new ActiveXObject("Word....
用于将表格/HTML 导出为流行文件格式的 Typescript 角度模块 将 html 或 table 元素导出到可下载文件的简单模块。 支持的格式: 图像 - .png PDF - .pdf CSV - .csv 文本 - .txt Microsoft Excel 工作表 - ....