Microsoft VBScript runtime error '800a01ad'解决办法

Microsoft VBScript runtime error '800a01ad'
代码如下：

set objExcelApp=CreateObject("Excel.Application") 
objExcelApp.DisplayAlerts=false
objExcelApp.Application.Visible=false
objExcelApp.WorkBooks.Open(strAddr&db)

系统报错:
Microsoft VBScript runtime error '800a01ad'
ActiveX component can't create object:'Excel.Application'


这段代码是在ASP里面调用,我已经装了OFFICE 的....不知道为什么会报这个错,请大侠们帮帮忙.感谢！！！
[解决办法]

'这样试试：
Dim xlApp As Object 'Excel.Application
Dim xlBook As Object  'Excel.Workbook
Dim xlSheet As Object  'Excel.Worksheet

Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)

[解决办法]
不可以,问题依旧..
[解决办法]
很明显你的环境有问题，不是vbs的问题。
你装了office确定excel套件也装了吧？如果确实装了的话找到excel.exe注册下，我机器的路径是
C:\Program Files\Microsoft Office\OFFICE11\excel.exe
你进入这个目录后在cmd下执行excel.exe /regserver
[解决办法]

引用:

很明显你的环境有问题，不是vbs的问题。
你装了office确定excel套件也装了吧？如果确实装了的话找到excel.exe注册下，我机器的路径是
C:\Program Files\Microsoft Office\OFFICE11\excel.exe
你进入这个目录后在cmd下执行excel.exe /regserver

这个没试过,但是我把服务器重新启动,就OK了...郁闷~~~不知道什么原因!
[解决办法]
不利己不利人，还给自己带来繁琐的操作
[解决办法]
csdn插件提示：

xkwdm 黑名单
(xkwdm)
等　级：
结帖率：100.00%
该用户人品较差，帖子被他无满意结扎的比例较高。以下是详细信息：
*总发帖：6
*正常结贴：4
*未结贴：0
*无满意结贴：2
*正常结贴率：66.67%
*无满意结贴率：33.33%

查看更多 下一篇