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

jonsonzxw 2003-04-03 10:47:19
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程序的
...全文
106 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
cer 2003-06-28
  • 打赏
  • 举报
回复
我也遇到的,有没有大侠知啊
jonsonzxw 2003-04-03
  • 打赏
  • 举报
回复
没人知道如何解决吗?目前知道造成这种原因的有安全访问的级别设置,但修改后仍然无效.另外还有一种原因是:

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

那如何才能表示我是正确安装了的呢,请高手指点
jonsonzxw 2003-04-03
  • 打赏
  • 举报
回复
这是客户端脚本程序,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>
huxin1012 2003-04-03
  • 打赏
  • 举报
回复
添加引用了吗?
jonsonzxw 2003-04-03
  • 打赏
  • 举报
回复
up

111,098

社区成员

发帖
与我相关
我的任务
社区描述
.NET技术 C#
社区管理员
  • C#
  • AIGC Browser
  • by_封爱
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

让您成为最强悍的C#开发者

试试用AI创作助手写篇文章吧