51Testing软件测试论坛

标题: 这段代码哪里有错？ [打印本页]

作者: wslss007 时间: 2008-10-27 17:41
标题: 这段代码哪里有错？
是套用别人代码来着，一样的代码放别人的QTP里执行没错，放我这里就报错了，而且报了六个错，Look：

我到底犯了什么愚蠢的错误呢？我用的是QTP9.2，谢谢了啊。红色的是报错的地方。

Set excelObj = CreateObject("Excel.Application") '创建一个对象
xlsUrl = "Z:\1.xlsx" '指定一个已经存在的XSL文件路径
excelObj.workbooks.open(xlsUrl) '打开EXCEL
Set sheetNew = excelObj.sheets.item(1) '设置将数据放在EXCEL中的那一页上(索引从１开始)
'相关的数据库操作
Dim conn,rs,sql,conset
Set conn = CreateObject("adodb.connection")
set rs = createobject("adodb.recordset")
conset = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\Program Files\Mercury Interactive\QuickTest Professional\samples\flight\app\flight32.mdb"
conn.open conset
sql="select * from orders"
rs.open sql,conn
Dim i
while not rs.eof
Value1 = rs("Order_Number").value
Value2 = rs("Customer_Name").value
sheetNew.cells(i+1,1).value = Value1　　'列付值
sheetNew.cells(i+1,2).value = Value2　　'列付值
i = i + 1
rs.movenext
Wend
excelObj.activeworkbook.saveas "Z:\1.xlsx"　　'保存数据
excelObj.quit　　　　'关闭对象
set excelObj = nothing　　'清空对象
rs.close　　　　'关闭数据库连接操作
set rs=nothing
conn.close
set conn = nothing

作者: 假装不在 时间: 2008-10-27 17:47
1,确定在数据库里读出数据与否，Value1 ，Value2是否为空。
2，关于excel的操作，你试试单独把代码拿出来，自己运行下。

作者: TEST_HUAN 时间: 2008-10-27 18:02
最简单的方法debug一下.

作者: zte_boy 时间: 2008-10-28 00:08
xlsUrl = "Z:\1.xlsx" '指定一个已经存在的XSL文件路径

后缀换成xls试下，也许是office版本问题

[ 本帖最后由 zte_boy 于 2008-10-28 00:10 编辑 ]

作者: wslss007 时间: 2008-10-28 10:33
会不会和excel版本有关，我装的是office2007.

作者: wslss007 时间: 2008-10-28 14:49
请问和excel的版本有关吗？

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