51Testing软件测试论坛

标题: 问题出在哪里呢 [打印本页]

作者: chinafree 时间: 2010-4-1 17:44
标题: 问题出在哪里呢
Set excelObj = CreateObject("Excel.Application") '创建一个对象
xlsUrl = "d:\aa.xls" '指定一个已经存在的XSL 文件路径
excelObj.workbooks.open(xlsUrl) '打开EXCEL
Set sheetNew = excelObj.sheets.item(2) '设置将数据放在EXCEL 中的那一页上(索引从１开始)
'相关的数据库操作
Set conn = CreateObject("adodb.connection")
set rs = createobject("adodb.recordset")
conn.open "

rovider=SQLOLEDB.1

assword=1111

ersist Security Info=True;User ID=sa;Initial Catalog=hncsmmis;Data Source=10.206.20.8"
rs.open "select top 5 stockapplyid,stockapplycode from IM_stockapply",conn,1,1
Dim i
while not rs.eof
user_id = rs("stockapplyid").value
user_name = rs("stockapplycode").value
sheetNew.cells(i+1,1).value = stockapplyid '列付值
sheetNew.cells(i+1,2).value = stockapplycode '列付值
i = i + 1
rs.movenext
wend
excelObj.activeworkbook.saveas "d:\aa.xls" '保存数据,用于存放从数据库读取的stockapplyid,stockapplycode
excelObj.quit '关闭对象
set excelObj = nothing '清空对象
rs.close '关闭数据库连接操作
set rs=nothing
conn.close
set conn = nothing

这段脚本远行完成后，为什么打开aa.xls文件，里面没有内容呢。是哪里出错了呢

作者: lantianwei 时间: 2010-4-1 18:01
try
sheetNew.cells(i+1,1).value = user_id'列付值
sheetNew.cells(i+1,2).value = user_name'列付值

作者: chinafree 时间: 2010-4-2 08:58
感谢版主，问题解决了

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