一个用js实现导出表格的问题

<xmlns="http://www.w3.org/1999/xhtml" >
<head>
<HTML>
<HEAD>
<TITLE>将页面中指定表格的数据导入到Excel中</TITLE>
<SCRIPT LANGUAGE="javascript"> 
<!-- 
function AutomateExcel() 
{ 
// Start Excel and get Application object. 
var oXL = new ActiveXObject("Excel.Application"); 
// Get a new workbook. 
var oWB = oXL.Workbooks.Add(); 
var oSheet = oWB.ActiveSheet; 
var table = document.all.data; 
var hang = table.rows.length;var lie = table.rows(0).cells.length;// Add table headers going cell by cell. 
for (i=0;i<hang;i++) 
{ 
for (j=0;j<lie;j++) 
{ 
oSheet.Cells(i+1,j+1).value = table.rows(i).cells(j).innerText; 
}} 
oXL.Visible = true; 
oXL.UserControl = true; 
} 
//--> 
</SCRIPT><!-- 　　导出到word代码 
  
<script language="vbscript"> 
Sub buildDoc 
set table = document.all.data 
row = table.rows.length 
column = table.rows(1).cells.lengthSet objwordDoc = CreateObject("word.Document")objwordDoc.Application.Documents.Add theTemplate, False 
objwordDoc.Application.Visible=TrueDim theArray(20,10000) 
for i=0 to row-1 
for j=0 to column-1 
theArray(j+1,i+1) = table.rows(i).cells(j).innerTEXT 
next 
next 
objwordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("综合查询结果集") //显示表格标题objwordDoc.Application.ActiveDocument.Paragraphs.Add.Range.InsertBefore("") 
Set rngPara = objwordDoc.Application.ActiveDocument.Paragraphs(1).Range 
With rngPara 
.Bold = True //将标题设为粗体 
.ParagraphFormat.Alignment = 1 //将标题居中 
.Font.Name = "隶书" //设定标题字体 
.Font.Size = 18 //设定标题字体大小 
End With 
Set rngCurrent = objwordDoc.Application.ActiveDocument.Paragraphs(3).Range 
Set tabCurrent = ObjwordDoc.Application.ActiveDocument.Tables.Add(rngCurrent,row,column)for i = 1 to columnobjwordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.InsertAfter theArray(i,1) 
objwordDoc.Application.ActiveDocument.Tables(1).Rows(1).Cells(i).Range.ParagraphFormat.alignment=1 
next 
For i =1 to column 
For j = 2 to row 
objwordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.InsertAfter theArray(i,j) 
objwordDoc.Application.ActiveDocument.Tables(1).Rows(j).Cells(i).Range.ParagraphFormat.alignment=1 
Next 
NextEnd Sub 
</SCRIPT> -->
</HEAD>
　　
<BODY>
<table border="0" width="300" id="data" bgcolor="black" cellspacing="1">
<tr bgcolor="white">
<td>编号</td>
<td>姓名</td>
<td>年龄</td>
<td>性别</td>
</tr>
<tr bgcolor="white">
<td>0001</td>
<td>张三</td>
<td>22</td>
<td>女</td>
</tr>
<tr bgcolor="white">
<td>0002</td>
<td>李四</td>
<td>23</td>
<td>男</td>
</tr>
</table>
<input type="button" name="out_excel" onclick="AutomateExcel();" value="导出到excel">
<input type="hidden" name="out_word" onclick="vbscript:buildDoc" value="导出到word" class="notPrint">
</BODY>
</HTML>
以上是我代码但是我每次运行的时候都会报automation服务器不能创建对象