如何用vb将text中的数据存入已有的excel中？

我是vb的初学者，请问那位朋友能帮一个忙，四个文本框和一个按钮，点击一下按钮将文本框中的数据存入已有的excel中，当再次点击按钮时，再自动的存入excel的下一行中，谢谢了，麻烦帮忙写清楚，定义，代码，和添加什么控件都给说下，谢谢了

这个又点麻烦哦！！
首先要用到API函数（FindWindow,FindWindowEx）获得你的目标excel
在引用excel12.0（简写）
最后定义excel.application,.sheet,.worksheet大概步骤把
这个需要你一步一步的学习

窗口添加2个按钮，1个文本框，一个timer( interval=10000 ) 工程---引用----microsoft excel 输入以下代码： dim vbexcel as object private sub form_load() set vbexcel = createobject("excel.application") end sub private sub command1_click()‘打开，写入并保存 dim xlapp as excel.application dim xlbook as excel.workbook dim xlsheet as excel.worksheet filename = "c:\documents and settings\administrator\桌面\a.xls" on error resume next set xlapp = getobject(, "excel.application") '判断excel是否打开 if err.number <> 0 then set xlapp = createobject("excel.application") '创建excel对象 xlapp.visible = false '设置excel对象不可见 end if if dir(filename) = "" then '判断文件是否存在 msgbox filename & "未找到！", vbokonly, "友情提示" exit sub end if set xlbook = xlapp.workbooks.open(filename) set xlsheet = xlapp.worksheets(1) xlsheet.activate '激活工作表 xlsheet.cells(1, 1) = text1.text '给单元格1行驶列赋值 xlbook.save end sub private sub command2_click() with vbexcel .workbooks.close'关闭工作表 end with vbexcel.quit end sub private sub timer1_timer()'没10秒打开一次，保存一次，关闭一次i command1_click command2_click end sub