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