51Testing软件测试论坛

标题: 如何追加excel中数据（已解决） [打印本页]

作者: manhong 时间: 2009-8-24 16:49
标题: 如何追加excel中数据（已解决）
想把report写到excel里，但不知道如何追加写入。
比如用cells（1，2）。value=“me” ‘写入了第一行第2列。当我想第二次写入的时候要写入的是cells（2，2）。怎么判断呢。
有追加写入的函数吗？

[ 本帖最后由 manhong 于 2009-8-25 12:16 编辑 ]

作者: kuangquanshui 时间: 2009-8-24 17:05

作者: manhong 时间: 2009-8-24 17:09
cells(i,2).value="sdfsdfsdfsdf'"
i=i+1
这么写？

作者: manhong 时间: 2009-8-24 17:10
不行。。。

作者: manhong 时间: 2009-8-24 17:18
如何判断一个单元格中数据不为空？

作者: manhong 时间: 2009-8-24 17:45
或者有获取行数的函数吗?
怎么没人呀。。

作者: manhong 时间: 2009-8-24 17:46
哦我用datatable获取行数呢，行。。呵呵试试去

作者: jadeyu712 时间: 2009-8-24 18:23

原帖由 manhong 于 2009-8-24 17:09 发表
cells(i,2).value="sdfsdfsdfsdf'"
i=i+1
这么写？

我认为这样是可以的...

因为我可以通数据库都能取得..代码如下:
Dim i
Dim j
j=1
Do while not res.eof
  For i=0 to res.Fields.count-1
         sheetNew.cells(j,(i+1)).value=res.fields(i).value
  Next
  j=j+1
  res.movenext()
Loop

但是要注意的是:在excel中的列和行.都是从1开始的..我开始的时候也出现错误.后来才发是这样

作者: manhong 时间: 2009-8-25 09:37
标题: 回复 8# 的帖子
report有多个的，一个一个执行，而不是用一个函数循环一下就完事的。

作者: jadeyu712 时间: 2009-8-25 11:21
标题: 回复 9# 的帖子
如果是这样,还是用文件流比较好.
没有帮上忙.对不起1

作者: manhong 时间: 2009-8-25 11:37
我用datatable成功了。可保存时总弹出“在当前位置发现已经存在名为“resume.xlw”的文件”这个提示。。。。

作者: manhong 时间: 2009-8-25 12:16
脚本写错了。。解决了。。。

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