关于用VB控制excel追加保存数据的问题

Question

各位高手：小弟有一个问题急需求救：
如何用VB控制向已经存在的EXCEL中追加并保存新的数据？也就是说EXCEL文档中已经存在旧的数据，但不能删除和覆盖，需要在WORKSHEET的数据尾部追加新的数据，并保存。
非常感谢大家的帮助！！！

Answer 1

http://blog.csdn.net/vbman2003/archive/2007/10/25/1843645.aspx

Answer 2

vbman2003,你好！我看了一下你发的这个网页，里面都是操作EXCEL常用的代码，没有找到我想要的追加保存数据的代码。请帮帮我！非常感谢！

Answer 3

vbman2003,你好！我看了一下你发的这个网页，里面都是操作EXCEL常用的代码，没有找到我想要的追加保存数据的代码。请帮帮我！非常感谢！
------------------------------------
先将你要添加的数据保存在一个二维数组中，比如：
dim arrInput(1 to 5,1 to 6)   '5行6列
然后打开你要追加的EXCEL表格，找到数据的最后一行(代码如上面的链接)，比如是100行
最后一行+1就是你要添加数据的起始行，由A列开始添加数据：
oSheet.Range("A101").Resize(5,6).Value = arrInput