运行时报Active X部件不能创建对象：’Excel.Application’

SUPERWOMEN

执行Set excelObj = CreateObject("Excel.Applicaiton") 时
Active X部件不能创建对象：’Excel.Application’
请问如何解决？

SUPERWOMEN

执行到conn.Open strCnn ' //打开数据库  这一步骤后，报错“找不到可安装的ISAM”.我在网上搜了一下，是因为我DATASOURCE中间没有空格。我加了空格就好了。多谢大侠对我提示问题给与指点。谢谢。

SUPERWOMEN

现在Set Excelobj=CreateObject ("Excel.Application")不报错了。
执行到conn.Open strCnn ' //打开数据库  这一步骤后，报错“找不到可安装的ISAM”.
麻烦前辈帮忙看看我下面这段代码，是不是哪有问题啊~~谢谢前辈。
我这段脚本是想实现用QTP将ACEESS数据库中的数据导入到EXCEL中。
Set Excelobj=CreateObject ("Excel.Application")
xlsUrl ="D:\data.xls"  '指定一个已经存在的XSL 文件路径
excelObj.workbooks.open(xlsUrl) '打开EXCEL
Set sheetNew = excelObj.sheets.item(2) '设置将数据放在EXCEL 中的那一页上(索引从１开始)
'相关的数据库操作
Dim conn ,strDb,rs,strCnn,xlsUrl ' //定义变量
strCnn="Provider=Microsoft.Jet.OLEDB.4.0;Ole DB Services=-4;DataSource=E:\TEST.mdb" ' //将获得的连接字符串赋值到
Set conn =CreateObject("ADODB.Connection") '//生成数据库连接对象
conn.Open strCnn ' //打开数据库
Set rs=CreateObject("ADODB.Recordset") '//生成记录集对象
rs.Open "select * from data" ,conn
Dim i
while not rs.eof
user_id = rs("ID").value
user_name = rs("Name").value
sheetNew.cells(i+1,1).value = user_id '列付值
sheetNew.cells(i+1,2).value = user_name '列付值
i = i + 1
rs.movenext
wend
excelObj.activeworkbook.saveas "D:\ data.xls" '保存数据
excelObj.quit '关闭对象
set excelObj = nothing '清空对象
rs.close '关闭数据库连接操作
set rs=nothing
conn.close
set conn = nothing

wenti

直接复制我这句看下 Set Excelobj=CreateObject ("Excel.Application")  刚才跑你贴出来的那句 是由于Excel.Application中间的 .  错误 重新输下就行了

SUPERWOMEN

我试了下，重新用英文状态下的引号还是不行。

SUPERWOMEN

哪位前辈曾遇到过这个问题，麻烦详细指点下应该怎么解决呢？谢谢大家了。我真的不知道怎么做了？
谢谢。

wenti

语句没有错可能是由于符号的问题(输入法下的符号) -----CreateObject ("Excel.Application")这里

wenti

用这句  Set Excelobj=CreateObject ("Excel.Application") 看下 我这里可以

SUPERWOMEN

请问前辈，那么怎么装ACTIVE X?这个问题应该如果解决呢？麻烦各位前辈给与详细的指点。谢谢大侠们。

ziheng198688

楼主这种情况应该是你编辑脚本的时候没有加载Active X控件

SUPERWOMEN

麻烦各位前辈给与指点。谢谢。