网页内容导出word/excel的js代码

//指定区域导出到Word
function html2word(Area) {
    var oWD = new ActiveXObject("Word.Application");
    var oDC = oWD.Documents.Add("", 0, 1);
    var oRange = oDC.Range(0, 1);
    var sel = document.body.createTextRange();
    sel.moveToElementText(document.getElementById(Area));
    sel.select();
    sel.execCommand("Copy");
    oRange.Paste();
    oWD.Application.Visible = true;
}

//指定区域导出到Excel
function html2Excel(Area) {
    try {
        var oRangeRef = document.body.createTextRange();
        oRangeRef.moveToElementText(document.getElementById(Area));
        //oRangeRef.select();
        oRangeRef.execCommand("Copy");

        var oXL = new ActiveXObject("Excel.Application");
        var oWB = oXL.Workbooks.Add;
        var oSheet = oWB.ActiveSheet;
        oSheet.Paste();
        oXL.Visible = true;
        oSheet = null;
        oWB = null;
        oXL = null;
    } catch (e) {
        alert(e.description)
    }
}