这段代码哪里有错？

wslss007

是套用别人代码来着，一样的代码放别人的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

wslss007

请问和excel的版本有关吗？

wslss007

会不会和excel版本有关，我装的是office2007.

zte_boy

xlsUrl = "Z:\1.xlsx"  '指定一个已经存在的XSL文件路径

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

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

TEST_HUAN

最简单的方法debug一下.

假装不在

1,确定在数据库里读出数据与否，Value1 ，Value2是否为空。
2，关于excel的操作，你试试单独把代码拿出来，自己运行下。