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