导出web到Excel，Automaiton服务器无法创建对象

以下是函数：
var oXL = new ActiveXObject("Excel.Application");
var oWB = oXL.Workbooks.Add();
var oSheet = oWB.ActiveSheet;
var sel = document.body.createTextRange();
sel.moveToELementText(myTable);
sel.select();
sel.execCommand("Copy");
oSheet.Paste();
oXL.Visible = true;我的office版本是07版的试过了百度的几个方法，都不行