关于js导出word文档的问题 word对话框js 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 这样试试 try { var fileName = SaveName; //文件名 var areaRes = document.getElementById(tbName); //指定要输入区域 var wordObj = new ActiveXObject("Word.Application"); //指定输出类型 var docObj = wordObj.Documents.Add("", 0, 1); var oRange = docObj.Range(0, 1); var sel = document.body.createTextRange(); sel.moveToElementText(areaRes); sel.select(); sel.execCommand("Copy"); oRange.Paste(); wordObj.Application.Visible = true; //这里修改成你要保存的路径 docObj.SaveAs("d:\\"+fileName+".doc"); catch (e) { print("Nested catch caught " + e);} 我安装了office,现在导出就直接打开word了,导出excel提示保存地址导出excel代码//execl输出function tbSaveExcel(SaveName,tbName,_Window){//整个表格拷贝到EXCEL中 var tableid=tbName; var curTbl = _Window.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 = _Window.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(SaveName+".xls", "Excel Spreadsheets (*.xls), *.xls"); if(fname){ oWB.SaveAs(fname); } }catch(e){ print("Nested catch caught " + e); }finally{ oWB.Close(savechanges=false); oXL.Quit(); oXL=null; //结束excel进程,退出完成 idTmr = window.setInterval("Cleanup();",1); }} 这样做是可以保存,但是并没有提示用户保存,我的需求是导出word的同时提示用户选择保存地址 你参考一下 http://hi.baidu.com/ljl88900/item/c59d1086ca1c22dcd1f8cd9a 你参考一下 http://hi.baidu.com/ljl88900/item/c59d1086ca1c22dcd1f8cd9a感谢你,我希望用js解决,不过还是谢谢你 你参考一下 http://hi.baidu.com/ljl88900/item/c59d1086ca1c22dcd1f8cd9a感谢你,我希望用js解决,不过还是谢谢你主是看一下 知道 它的属性实现方式, JS一样也可以实现了//这方式,弹出对话框要word文档里 try { var fileName = SaveName; //文件名 var areaRes = document.getElementById(tbName); //指定要输入区域 var wordObj = new ActiveXObject("Word.Application"); //指定输出类型 var docObj = wordObj.Documents.Add("", 0, 1); var oRange = docObj.Range(0, 1); var sel = document.body.createTextRange(); sel.moveToElementText(areaRes); sel.select(); sel.execCommand("Copy"); oRange.Paste(); wordObj.Application.Visible = true; //这里修改成你要保存的路径 var filePath=showDialog(); if(filePath) docObj.SaveAs( filePath); function showDialog(){ var dial=wordObj.FileDialog(2); return dial.show()==-1?dial.SelectedItems(1):''; } }catch (e) { print("Nested catch caught " + e);} 你参考一下 http://hi.baidu.com/ljl88900/item/c59d1086ca1c22dcd1f8cd9a感谢你,我希望用js解决,不过还是谢谢你主是看一下 知道 它的属性实现方式, JS一样也可以实现了//这方式,弹出对话框要word文档里 try { var fileName = SaveName; //文件名 var areaRes = document.getElementById(tbName); //指定要输入区域 var wordObj = new ActiveXObject("Word.Application"); //指定输出类型 var docObj = wordObj.Documents.Add("", 0, 1); var oRange = docObj.Range(0, 1); var sel = document.body.createTextRange(); sel.moveToElementText(areaRes); sel.select(); sel.execCommand("Copy"); oRange.Paste(); wordObj.Application.Visible = true; //这里修改成你要保存的路径 var filePath=showDialog(); if(filePath) docObj.SaveAs( filePath); function showDialog(){ var dial=wordObj.FileDialog(2); return dial.show()==-1?dial.SelectedItems(1):''; } }catch (e) { print("Nested catch caught " + e);} 大神谢谢了,这个很有用, 有没高手帮下忙? Jquery 绑定 newWindow事件 extjs 导航菜单 小弟要学JS,求一两本好的书籍! js正则如何识别繁体啊 http://gz.o.cn是用javascript实现的吗? 又没有修复JS文件格式缩进的办法 如何在Web下设计套打发票? 请教加载中文路径图片的问题 关于字符串的处理 js 小提问 今天开始学习Session
var fileName = SaveName; //文件名
var areaRes = document.getElementById(tbName); //指定要输入区域
var wordObj = new ActiveXObject("Word.Application"); //指定输出类型
var docObj = wordObj.Documents.Add("", 0, 1);
var oRange = docObj.Range(0, 1);
var sel = document.body.createTextRange();
sel.moveToElementText(areaRes);
sel.select();
sel.execCommand("Copy");
oRange.Paste();
wordObj.Application.Visible = true;
//这里修改成你要保存的路径
docObj.SaveAs("d:\\"+fileName+".doc");
catch (e) {
print("Nested catch caught " + e);
}
导出excel代码
//execl输出
function tbSaveExcel(SaveName,tbName,_Window)
{//整个表格拷贝到EXCEL中
var tableid=tbName;
var curTbl = _Window.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 = _Window.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(SaveName+".xls", "Excel Spreadsheets (*.xls), *.xls");
if(fname){
oWB.SaveAs(fname);
}
}catch(e){
print("Nested catch caught " + e);
}finally{
oWB.Close(savechanges=false);
oXL.Quit();
oXL=null;
//结束excel进程,退出完成
idTmr = window.setInterval("Cleanup();",1);
}
}
http://hi.baidu.com/ljl88900/item/c59d1086ca1c22dcd1f8cd9a
http://hi.baidu.com/ljl88900/item/c59d1086ca1c22dcd1f8cd9a感谢你,我希望用js解决,不过还是谢谢你
http://hi.baidu.com/ljl88900/item/c59d1086ca1c22dcd1f8cd9a感谢你,我希望用js解决,不过还是谢谢你
主是看一下 知道 它的属性实现方式, JS一样也可以实现了//这方式,弹出对话框要word文档里
try {
var fileName = SaveName; //文件名
var areaRes = document.getElementById(tbName); //指定要输入区域
var wordObj = new ActiveXObject("Word.Application"); //指定输出类型
var docObj = wordObj.Documents.Add("", 0, 1);
var oRange = docObj.Range(0, 1);
var sel = document.body.createTextRange();
sel.moveToElementText(areaRes);
sel.select();
sel.execCommand("Copy");
oRange.Paste();
wordObj.Application.Visible = true;
//这里修改成你要保存的路径
var filePath=showDialog();
if(filePath) docObj.SaveAs( filePath);
function showDialog(){
var dial=wordObj.FileDialog(2);
return dial.show()==-1?dial.SelectedItems(1):'';
}
}catch (e) {
print("Nested catch caught " + e);
}
http://hi.baidu.com/ljl88900/item/c59d1086ca1c22dcd1f8cd9a感谢你,我希望用js解决,不过还是谢谢你
主是看一下 知道 它的属性实现方式, JS一样也可以实现了//这方式,弹出对话框要word文档里
try {
var fileName = SaveName; //文件名
var areaRes = document.getElementById(tbName); //指定要输入区域
var wordObj = new ActiveXObject("Word.Application"); //指定输出类型
var docObj = wordObj.Documents.Add("", 0, 1);
var oRange = docObj.Range(0, 1);
var sel = document.body.createTextRange();
sel.moveToElementText(areaRes);
sel.select();
sel.execCommand("Copy");
oRange.Paste();
wordObj.Application.Visible = true;
//这里修改成你要保存的路径
var filePath=showDialog();
if(filePath) docObj.SaveAs( filePath);
function showDialog(){
var dial=wordObj.FileDialog(2);
return dial.show()==-1?dial.SelectedItems(1):'';
}
}catch (e) {
print("Nested catch caught " + e);
}
大神谢谢了,这个很有用,