中关村在线

首页 排行 新品 问答 下载 论坛 手机 笔记本 数码相机 主板 显卡 平板电脑 更多

怎么将日历中的内容导出到Excel表格中?

举报
讨论回答 (4)
long331031777
lsjlsj
jiucai99
jsp页面导出excel的话,刚好有做这个功能,可以参考如下代码:
function getExplorer() {
var explorer = window.navigator.userAgent;
// ie
if (explorer.indexOf("MSIE") >= 0 || (explorer.indexOf("Windows NT 6.1;") >= 0 && explorer.indexOf("Trident/7.0;") >= 0) ) {
alert("识别你是IE浏览器1111======");
return 'ie';
}
// firefox
else if (explorer.indexOf("Firefox") >= 0) {
return 'Firefox';
}
// Chrome
else if (explorer.indexOf("Chrome") >= 0) {
return 'Chrome';
}
// Opera
else if (explorer.indexOf("Opera") >= 0) {
return 'Opera';
}
// Safari
else if (explorer.indexOf("Safari") >= 0) {
return 'Safari';
}
}

//设置导出的excel的标题
var excelTitle ="表格数据";

function toOutPutExcel(tableid,title) {// 整个表格拷贝到EXCEL中
excelTitle =title;

if (getExplorer() == 'ie') {
var curTbl = document.getElementById(tableid);
var oXL = new ActiveXObject("Excel.Application");

// 创建AX对象excel
var oWB = oXL.Workbooks.Add();
// 获取workbook对象
var xlsheet = oWB.Worksheets(1);
// 激活当前sheet
var sel = document.body.createTextRange();
sel.moveToElementText(curTbl);
// 把表格中的内容移到TextRange中
sel.select;
// 全选TextRange中内容
sel.execCommand("Copy");
// 复制TextRange中内容
xlsheet.Paste();
// 粘贴到活动的EXCEL中
oXL.Visible = true;
// 设置excel可见属性

try {
var fname = oXL.Application.GetSaveAsFilename("Excel.xls",
"Excel Spreadsheets (*.xls), *.xls");
} catch (e) {
print("Nested catch caught " + e);
} finally {
oWB.SaveAs(fname);

oWB.Close(savechanges = false);
// xls.visible = false;
oXL.Quit();
oXL = null;
// 结束excel进程,退出完成
// window.setInterval("Cleanup();",1);
idTmr = window.setInterval("Cleanup();", 1);

}

} else {
tableToExcel(tableid);

}
}
function Cleanup() {
window.clearInterval(idTmr);
CollectGarbage();
}
var tableToExcel = (function() {
var uri = 'data:application/vnd.ms-excel;base64,', template = '<html xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:x="urn:schemas-microsoft-com:office:excel" xmlns="
http://www.w3.org/TR/REC-html40"><head><!--[if gte mso 9]><xml><x:ExcelWorkbook><x:ExcelWorksheets><x:ExcelWorksheet><x:Name>{worksheet}</x:Name><x:WorksheetOptions><x:DisplayGridlines/></x:WorksheetOptions></x:ExcelWorksheet></x:ExcelWorksheets></x:ExcelWorkbook></xml><![endif]--></head><body><table>{table}</table></body></html>', base64 = function(
s) {
return window.btoa(unescape(encodeURIComponent(s)))
}, format = function(s, c) {
return s.replace(/{(\w+)}/g, function(m, p) {
return c[p];
})
}
return function(table, name) {
if (!table.nodeType)
table = document.getElementById(table)
var ctx = {
worksheet : excelTitle || 'Worksheet',
table : table.innerHTML
}
//window.location.href = uri + base64(format(template, ctx))
var titleDate= new Date().Format("yyyy-MM-dd hh-mm-ss");
document.getElementById("dlink").href = uri + base64(format(template, ctx));
document.getElementById("dlink").download = excelTitle+titleDate+".xls";
document.getElementById("dlink").click();
}
})()
932655084
展开查看全部 4 条讨论
精品应用推荐
新浪微博 新浪微博 天气通 天气通 淘宝特价版 淘宝特价版 UC浏览器 UC浏览器
相关问题

如何实现全国各地同事共用一个excel表格?

3001 浏览 10 回答

主要使用excel处理数据的话,财务人员学习VBA和python哪个比较好?

4572 浏览 10 回答

每天面对大量excel表,好麻烦,效率很低,有什么推荐的工具吗?

3349 浏览 9 回答

word excel 一打开文件就提示另存为。。。怎麽办???着急

29.1万 浏览 8 回答

EXCEL里面数据太多了,打开好慢,怎么办?

4695 浏览 8 回答

扩展阅读

同门师兄弟谁更强?一加Ace5 Pro、真我GT7 Pro竞速版对比

评论 22

同门师兄弟谁更强?一加Ace5 Pro、真我GT7 Pro竞速版对比

如何部署本地DeepSeek 只需两步超简单

评论 2

如何部署本地DeepSeek 只需两步超简单

映众RTX 5080曜夜X3 OC显卡评测 OC战力超能释放

评论 6

映众RTX 5080曜夜X3 OC显卡评测 OC战力超能释放

iGame Z890暗黑火神主板评测 七彩虹三千元价位旗舰主板我觉得很值

评论 9

iGame Z890暗黑火神主板评测 七彩虹三千元价位旗舰主板我觉得很值

到手价6999元起!2025年华为Pura 70 Ultra影像实测

评论 35

到手价6999元起!2025年华为Pura 70 Ultra影像实测
热门问题

免费韩国漫画在线观看的地址有么?

8068 浏览 5 回答

免费韩国漫画在线观看的地址有么?

荣耀Magic7 Pro

9866 浏览 1 回答

荣耀Magic7 Pro

人和驴用什么姿势

3617 浏览 4 回答

人和驴用什么姿势

肿么找回QQ浏览器历史记录

7313 浏览 6 回答

肿么找回QQ浏览器历史记录

最新cpu天梯图

21.6万 浏览 5 回答

最新cpu天梯图

笔记本数字键盘怎么用

9.3万 浏览 5 回答

笔记本数字键盘怎么用

王者荣耀2.7灵宝市集高售价兑换码获取方法?

5510 浏览 6 回答

王者荣耀2.7灵宝市集高售价兑换码获取方法?

有一样东西,比雪还白,比黑板还黑,男的一天用三次,女的一辈子用一次,是什么?

6443 浏览 7 回答

有一样东西,比雪还白,比黑板还黑,男的一天用三次,女的一辈子用一次,是什么?

手机在哪里登录192.168.1.1设定页面?

9462 浏览 7 回答

手机在哪里登录192.168.1.1设定页面?

恒力集团董事长儿子娶了谁

7822 浏览 7 回答

恒力集团董事长儿子娶了谁
最新问答

一加13相对12的升级点,是否值得购买?

3136 浏览 5 回答

一加13相对12的升级点,是否值得购买?

投影肿么连来自接苹果手机

2097 浏览 8 回答

投影肿么连来自接苹果手机

想给男朋友买手机,预算一万内,求建议!

9393 浏览 6 回答

想给男朋友买手机,预算一万内,求建议!

真我GT7 Pro手机值得购买吗?

3454 浏览 5 回答

真我GT7 Pro手机值得购买吗?

黑苹果打开APP store,出现問題

512 浏览 7 回答

黑苹果打开APP store,出现問題
举报
举报成功

经过核实后将会做出处理,感谢您为社区和谐做出贡献。

请选择删除原因
删除成功
确定推荐该回答?
推荐成功

更多频道

频道导航
辅助工具