如何追加excel中数据（已解决）

manhong · 发表于 2009-8-24 16:49:37

想把report写到excel里，但不知道如何追加写入。
比如用cells（1，2）。value=“me” ‘写入了第一行第2列。当我想第二次写入的时候要写入的是cells（2，2）。怎么判断呢。
有追加写入的函数吗？

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

kuangquanshui · 发表于 2009-8-24 17:05:08

manhong · 发表于 2009-8-24 17:09:35

cells(i,2).value="sdfsdfsdfsdf'"
i=i+1
这么写？

manhong · 发表于 2009-8-24 17:10:12

不行。。。

manhong · 发表于 2009-8-24 17:18:40

如何判断一个单元格中数据不为空？

manhong · 发表于 2009-8-24 17:45:03

或者有获取行数的函数吗?
怎么没人呀。。

manhong · 发表于 2009-8-24 17:46:13

哦我用datatable获取行数呢，行。。呵呵试试去

jadeyu712 · 发表于 2009-8-24 18:23:43

原帖由 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:25

report有多个的，一个一个执行，而不是用一个函数循环一下就完事的。

jadeyu712 · 发表于 2009-8-25 11:21:29

如果是这样,还是用文件流比较好.
没有帮上忙.对不起1

manhong · 发表于 2009-8-25 11:37:58

我用datatable成功了。可保存时总弹出“在当前位置发现已经存在名为“resume.xlw”的文件”这个提示。。。。

manhong · 发表于 2009-8-25 12:16:24

脚本写错了。。解决了。。。

		自动登录	找回密码
密码			(注-册)加入51Testing

[求助] 如何追加excel中数据（已解决）

相关帖子

回复 8# 的帖子

回复 9# 的帖子

站长推荐 /1