Set oXL = CreateObject("Excel.Application")为何会出错??

[jonsonzxw]

Sub Button1_onclick

Select Case Select1.selectedIndex

Case 0 ' Use Automation.
Dim sHTML
sHTML = window.parent.frames("bottom").document.forms(0).children("DataGrid1").outerhtml
Dim oXL, oBook
Set oXL = CreateObject("Excel.Application")
Set oBook = oXL.Workbooks.Add
oBook.HTMLProject.HTMLProjectItems("Sheet1").Text = sHTML
oBook.HTMLProject.RefreshDocument
oXL.Visible = true
oXL.UserControl = true
......

程序执行到Set oXL = CreateObject("Excel.Application")会出错:

出错提示:Active部件不能创建对象:Excel.Application

请问如何处理,我的电脑上装了EXCEL程序的

[jonsonzxw]

up

[huxin1012]

添加引用了吗？

[jonsonzxw]

这是客户端脚本程序,vbscript

<script language="vbscript">
Sub Button1_onclick

Select Case Select1.selectedIndex

Case 0 ' Use Automation.
Dim sHTML
sHTML = window.parent.frames("bottom").document.forms(0).children("DataGrid1").outerhtml
Dim oXL, oBook
Set oXL = CreateObject("Excel.Application")
Set oBook = oXL.Workbooks.Add
oBook.HTMLProject.HTMLProjectItems("Sheet1").Text = sHTML
oBook.HTMLProject.RefreshDocument
oXL.Visible = true
oXL.UserControl = true

.......
End Select
End Sub
</script>

[jonsonzxw]

没人知道如何解决吗?目前知道造成这种原因的有安全访问的级别设置,但修改后仍然无效.另外还有一种原因是:

This error also occurs when the component is not installed correctly. As a result, the component cannot create the object.

那如何才能表示我是正确安装了的呢,请高手指点

[cer]

我也遇到的,有没有大侠知啊