51Testing软件测试论坛

标题: 运行时报Active X部件不能创建对象：’Excel.Application’ [打印本页]

作者: SUPERWOMEN 时间: 2009-6-24 15:59
标题: 运行时报Active X部件不能创建对象：’Excel.Application’
执行Set excelObj = CreateObject("Excel.Applicaiton") 时
Active X部件不能创建对象：’Excel.Application’
请问如何解决？

作者: SUPERWOMEN 时间: 2009-6-24 17:00
麻烦各位前辈给与指点。谢谢。

作者: ziheng198688 时间: 2009-6-24 17:11
楼主这种情况应该是你编辑脚本的时候没有加载Active X控件

作者: SUPERWOMEN 时间: 2009-6-24 17:28
请问前辈，那么怎么装ACTIVE X?这个问题应该如果解决呢？麻烦各位前辈给与详细的指点。谢谢大侠们。

作者: wenti 时间: 2009-6-24 17:32
用这句 Set Excelobj=CreateObject ("Excel.Application") 看下我这里可以

作者: wenti 时间: 2009-6-24 17:41
语句没有错可能是由于符号的问题(输入法下的符号) -----CreateObject ("Excel.Application")这里

作者: SUPERWOMEN 时间: 2009-6-24 17:43
哪位前辈曾遇到过这个问题，麻烦详细指点下应该怎么解决呢？谢谢大家了。我真的不知道怎么做了？
谢谢。

作者: SUPERWOMEN 时间: 2009-6-24 17:47
我试了下，重新用英文状态下的引号还是不行。

作者: wenti 时间: 2009-6-24 17:55
直接复制我这句看下 Set Excelobj=CreateObject ("Excel.Application") 刚才跑你贴出来的那句是由于Excel.Application中间的 . 错误重新输下就行了

作者: SUPERWOMEN 时间: 2009-6-24 18:22
现在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

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

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)