如果在别的浏览器中无法导入，尝试用IE浏览器

function AutomateExcelall(){

try {

oXL = new ActiveXObject('Excel.Application');

}catch (e) {

alert("无法启动Excel!\n\n如果您确信您的电脑中已经安装了Excel，"+"那么请调整IE的安全级别。\n\n具体操作：\n\n"+"工具 → Internet选项 → 安全 → 自定义级别 → 对没有标记为安全的ActiveX进行初始化和脚本运行 → 启用");

return false;

}

//var oXL = new ActiveXObject("Excel.Application");

var oWB = oXL.Workbooks.Add();//新建一个Excel工作簿

var oSheet = oWB.ActiveSheet;//指定要写入内容的工作表为活动工作表

var tResultArray = Grid1Obj.getData();

var hang = tResultArray.length;//取数据源行数

var lie = tResultArray[0].length;//取数据源列数

oSheet.Cells(1, 1).Value = "序号";

oSheet.Cells(1, 2).Value = "单号";

oSheet.Cells(1, 3).Value = "发起日期";

oSheet.Cells(1, 4).Value = "发起人";

oSheet.Cells(1, 5).Value = "发起部门";

oSheet.Cells(1, 6).Value = "发起公司";

oSheet.Cells(1, 7).Value = "事由";

oSheet.Cells(1, 8).Value = "公章名称";

oSheet.Cells(1, 9).Value = "用章类型";

oSheet.Cells(1, 10).Value = "盖章分数";

oSheet.Cells(1, 11).Value = "使用时间";

oSheet.Cells(1, 12).Value = "归还时间";

for (i=0;i<hang;i++){//在Excel中写行

oSheet.Cells(i+2,1).Value = i+1;

for (j=0;j<lie;j++){//在Excel中写列

oSheet.Cells(i+2,j+2).NumberFormatLocal = "@";

oSheet.Cells(i+2,j+2).value = tResultArray[i][j];//向单元格写入值

}

}

oXL.Visible = true;

oXL.UserControl = true;

}