Javascript调用 ActiveXObject导出excel文档。

function makeDataBook(){
        var xls = new ActiveXObject ("Excel.Application");
        xls.visible = true;
        var newBook = xls.Workbooks.Add;
        newBook.Worksheets.Add;
        newBook.Worksheets(1).Activate;
        xls.ActiveWorkBook.ActiveSheet.PageSetup.Orientation = 1;
        xls.ActiveWorkBook.ActiveSheet.PageSetup.PaperSize = 1;
        var lineNum = 1;
        var colNum = jQuery("#dataTable tr.dataTableTitle").children("th").not(".dataTableMeta").size();
        jQuery("#dataTable tr.dataTableTitle").children("th").not(".dataTableMeta").each(function(index){
                var value = jQuery(this).text()+"";
                 newBook.Worksheets(1).Cells(lineNum,(index+1)).value=value;
        });
        jQuery("#dataTable tr.dataTableCell").each(function(index){
                lineNum =lineNum+1;
                jQuery(this).children("td").not(".dataTableMeta").each(function(index){
                        newBook.Worksheets(1).Cells(lineNum,(index+1)).value=jQuery(this).text();
                });
        });
        newBook.Worksheets(1).Name=jQuery("#dataTableName").text();
}