51Testing软件测试论坛

标题: 未知运行的错误？请大家帮忙看看 [打印本页]

作者: Coffey111111 时间: 2007-1-10 14:47
标题: 未知运行的错误？请大家帮忙看看
'创建excel的对象
Set ExcelObj = CreateObject("Excel.Application")
'指定一个execl的格式，这个需要我们事先定制好
aatype="c:\Global.xls"
'打开excel
ExcelObj.Workbooks.Open(aatype)
'设置操作的工作表
Set NewSheet = ExcelObj.Sheets.Item(2)
'以下是数据库操作
Dim rs,sq,pkey
'set conn=createobject("adodb.command")
set conn=createobject("adodb.connection")
set  rs=createobject("adodb.recordset")
set  rs1=createobject("adodb.recordset")
'conn.activeconnection="DRIVER=SQL Server;SERVER=10.10.40.61;DATABASE=CUL;user id=sa ; password=sa"
conn.open="DRIVER=SQL Server;SERVER=10.10.40.61;DATABASE=CUL;user id=sa ; password=sa"
sql="select * from TDoc"
rs.open sql,conn
i=1
do while not rs.eof
                  values1=rs("pkey")
                  values2=rs("name")
                  NewSheet.Cells(i+1,1).Value =values1
                  NewSheet.Cells(i+1,2).Value =values2
   i=i+1
      rs.movenext
Loop
'保存excel数据
ExcelObj.ActiveWorkbook.Saveas "C:\data.xls"
ExcelObj.Quit
Set ExcelObj = Nothing
rs.close
set rs=nothing
conn.close
set conn=nothing

大家讨论下这个脚本我怎么运行不成功的啊？请教达人，出现的错误如下：
file:///C:/Documents%20and%20Settings/Administrator/桌面/图片.png

作者: Coffey111111 时间: 2007-1-10 14:48
图片如下：
file:///C:/Documents%20and%20Settings/Administrator/桌面/图片.png

作者: Coffey111111 时间: 2007-1-10 14:50
file:///C:/Documents%20and%20Settings/Administrator/桌面/图片.png

作者: Coffey111111 时间: 2007-1-10 14:53
file:///C:/Documents%20and%20Settings/Administrator/桌面/图片.png

作者: 风过无息 时间: 2007-1-10 14:54
你有pkey这个字段吗？

作者: Coffey111111 时间: 2007-1-10 15:24
恩，知道了，改了，通过了sdlkfj5
谢谢~~

作者: miniyal 时间: 2007-1-10 15:42
是字段的原因

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