51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1501|回复: 2
打印 上一主题 下一主题

[原创] 问题出在哪里呢

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2010-4-1 17:44:18 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
Set excelObj = CreateObject("Excel.Application") '创建一个对象
xlsUrl = "d:\aa.xls" '指定一个已经存在的XSL 文件路径
excelObj.workbooks.open(xlsUrl) '打开EXCEL
Set sheetNew = excelObj.sheets.item(2) '设置将数据放在EXCEL 中的那一页上(索引从1开始)
'相关的数据库操作
Set conn = CreateObject("adodb.connection")
set rs = createobject("adodb.recordset")
conn.open "rovider=SQLOLEDB.1assword=1111ersist 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文件,里面没有内容呢。是哪里出错了呢
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2010-4-1 18:01:14 | 只看该作者
try
sheetNew.cells(i+1,1).value = user_id'列付值
sheetNew.cells(i+1,2).value = user_name'列付值
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2010-4-2 08:58:20 | 只看该作者
感谢版主,问题解决了
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-14 07:15 , Processed in 0.083889 second(s), 28 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表