110,538
社区成员
发帖
与我相关
我的任务
分享
function AllAreaExcel() {
try{
var oXL = new ActiveXObject("Excel.Application");
}catch(e){
alert("请先安装Excel再进行导出");
return false;
}
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
oSheet.Columns.ColumnWidth =10;
var sel = document.body.createTextRange();
sel.moveToElementText(PrintA);
sel.select();
sel.execCommand("Copy");
oSheet.Paste();
oXL.Visible = true;
}
function AllAreaWord() {
try{
var oWD = new ActiveXObject("Word.Application");
}catch(e){
alert("请先安装Word再进行导出");
return false;
}
var oDC = oWD.Documents.Add("", 0, 1);
var oRange = oDC.Range(0, 1);
var sel = document.body.createTextRange();
sel.moveToElementText(PrintA);
sel.select();
sel.execCommand("Copy");
oRange.Paste();
oWD.Application.Visible = true;
//window.close();
}
</script>