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();
}