51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 9110|回复: 10
打印 上一主题 下一主题

[求助] 运行时报Active X部件不能创建对象:’Excel.Application’

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2009-6-24 15:59:21 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
执行Set excelObj = CreateObject("Excel.Applicaiton") 时
Active X部件不能创建对象:’Excel.Application’
请问如何解决?
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
 楼主| 发表于 2009-6-24 17:00:43 | 只看该作者
麻烦各位前辈给与指点。谢谢。
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 2009-6-24 17:11:21 | 只看该作者
楼主这种情况应该是你编辑脚本的时候没有加载Active X控件
回复 支持 反对

使用道具 举报

该用户从未签到

4#
 楼主| 发表于 2009-6-24 17:28:44 | 只看该作者
请问前辈,那么怎么装ACTIVE X?这个问题应该如果解决呢?麻烦各位前辈给与详细的指点。谢谢大侠们。
回复 支持 反对

使用道具 举报

该用户从未签到

5#
发表于 2009-6-24 17:32:04 | 只看该作者
用这句  Set Excelobj=CreateObject ("Excel.Application") 看下 我这里可以
回复 支持 反对

使用道具 举报

该用户从未签到

6#
发表于 2009-6-24 17:41:08 | 只看该作者
语句没有错可能是由于符号的问题(输入法下的符号) -----CreateObject ("Excel.Application")这里
回复 支持 反对

使用道具 举报

该用户从未签到

7#
 楼主| 发表于 2009-6-24 17:43:08 | 只看该作者
哪位前辈曾遇到过这个问题,麻烦详细指点下应该怎么解决呢?谢谢大家了。我真的不知道怎么做了?
谢谢。
回复 支持 反对

使用道具 举报

该用户从未签到

8#
 楼主| 发表于 2009-6-24 17:47:05 | 只看该作者
我试了下,重新用英文状态下的引号还是不行。
回复 支持 反对

使用道具 举报

该用户从未签到

9#
发表于 2009-6-24 17:55:12 | 只看该作者
直接复制我这句看下 Set Excelobj=CreateObject ("Excel.Application")  刚才跑你贴出来的那句 是由于Excel.Application中间的 .  错误 重新输下就行了
回复 支持 反对

使用道具 举报

该用户从未签到

10#
 楼主| 发表于 2009-6-24 18:22:37 | 只看该作者
现在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 中的那一页上(索引从1开始)
'相关的数据库操作
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
回复 支持 反对

使用道具 举报

该用户从未签到

11#
 楼主| 发表于 2009-6-24 18:40:03 | 只看该作者
执行到conn.Open strCnn ' //打开数据库  这一步骤后,报错“找不到可安装的ISAM”.我在网上搜了一下,是因为我DATASOURCE中间没有空格。我加了空格就好了。多谢大侠对我提示问题给与指点。谢谢。
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-27 12:34 , Processed in 0.091685 second(s), 28 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表