导出work、excel文件的JS
function OpenWord(){
bdhtml=window.document.body.innerHTML;
sprnstr="";
eprnstr="";
prnhtml=bdhtml.substr(bdhtml.indexOf(sprnstr)+17);
prnhtml=prnhtml.substring(0,prnhtml.indexOf(eprnstr));
var name=prompt("请输入导出盘符,如您想保存到d盘下,并且文件名为:a.xls 那
么您可以输入:d:\\a.xls 注意:冒号必须是小写的冒号~","d:\\Shop.xls");
if (!name)
{ //alert("您必须输入有效的文件保存地址~");
return false;
}
if( typeof(prnhtml)=="undefined" || typeof(prnhtml)=="unkown"){
alert("没有数据要保存");
return;
}
var mysheet;
var path=name;//道出需要保存的路泾
var off2000=false;
var off2002xp=false;
var off2003=false;
var off2007=false;
//office2007
try {
mysheet=new ActiveXObject("OWC11.Spreadsheet");
off2007=true;
} catch(e){}
//office2003
if(!off2007){
try {
mysheet=new ActiveXObject("OWC11.Spreadsheet");
off2003=true;
} catch(e){}
}
//office2002-xp
if(!off2003){
try {
mysheet=new ActiveXObject("OWC10.Spreadsheet");
off2002xp=true;
} catch(e){}
}
//office 2000
if(!off2003 && !off2002xp){
try {
mysheet=new ActiveXObject("OWC.Spreadsheet");
off2000=true;
} catch(e){}
}
if(!off2000 && !off2002xp && !off2003){
alert( "要保存该
表
关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf
,您必须安装Excel软件,\n同时浏览器须使用“ActiveX 控
件”,而且允许执行该控件。 \n请点击【帮助】了解浏览器设置
方法
快递客服问题件处理详细方法山木方法pdf计算方法pdf华与华方法下载八字理论方法下载
~");
return;
}
with(mysheet){
DataType = "HTMLData";
HTMLData = prnhtml.outerHTML;
try{
if(off2000) ActiveSheet.Export(path,0);
else {Export(path,0);}
} catch (e){
//alert("你已经取消了导出Excel表或导出路径错误。导出Excel表失败。
\n请确定已安装Excel2000(或更高版本),并且没打开同名xls文件。");
}
}
}
function OpenExcel2(){
bdhtml=window.document.body.innerHTML;
sprnstr="";
eprnstr="";
prnhtml=bdhtml.substr(bdhtml.indexOf(sprnstr)+17);
prnhtml=prnhtml.substring(0,prnhtml.indexOf(eprnstr));
try
{
var ExApp = new ActiveXObject("Excel.Application");
var ExWBk = ExApp.workbooks.add();
var ExWSh = ExWBk.worksheets(1);
ExWSh.add(prnhtml);
ExApp.DisplayAlerts = false;
ExApp.visible = true;
}
catch(e){
alert("您的电脑没有安装Microsoft Excel软件~")
return false
}
ExWBk.worksheets(3).Paste;
}
function OpenExcel(){
bdhtml=window.document.body.innerHTML;
sprnstr="";
eprnstr="";
prnhtml=bdhtml.substr(bdhtml.indexOf(sprnstr)+17);
prnhtml=prnhtml.substring(0,prnhtml.indexOf(eprnstr));
var name=prompt("请输入导出盘符,如您想保存到d盘下,并且文件名为:a.xls 那
么您可以输入:d:\\a.xls 注意:冒号必须是小写的冒号~","d:\\answer.xls");
if (!name)
{
//alert("您必须输入有效的文件保存地址~");
return false;
}
if( typeof(prnhtml)=="undefined" || typeof(prnhtml)=="unkown"){
alert("没有数据要保存");
return;
}
var path=name;//道出需要保存的路泾
try
{
var Excel, Book;
Excel = new ActiveXObject("Excel.Application");
Excel.Visible = true;
Book = Excel.Workbooks.Add();
Book.ActiveSheet.add(prnhtml);
Book.SaveAs(path);
Excel.Application.Quit();
}
catch(e){
alert("您的电脑没有安装Microsoft Excel软件~")
return false
}
}