Question

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

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

Answer 1

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

追问

哥们，你看我的问题补充

追答

dim xlapp as excel.application
dim xlbook as excel.workbook
dim xlsheet as excel.worksheet
set xlapp=createobject("excel.application")
set xlbook=xlapp.workbooks.open("路径")
set xlsheet=xlbook.worksheets(1)
xlapp.visible=true
For i = 7 To 15
For j = 1 To 10

xlsheet.Cells(i, j) = j '当前工作簿第一页的第I行第J列
Next j
Next i
With xlsheet '设置边框为是实线
.Range(.Cells(7, 1), .Cells(28, 29)).Borders.LineStyle = xlContinuous
End With
xlapp.Quit '结束EXCEL对象'xlapp.Workbooks.Close

Set xlapp = Nothing '释放xlApp对象
这样，我们就可以简单的对excel文件进行操作了。下面再放一些我从网上查到的资料吧，还挺有用的：

1．创建Excel对象
　　eole=CREATEOBJECT(′Excel.application′)
　　2．添加新工作簿
　　eole.Workbooks.add
　　3．设置第3个工作表为激活工作表
　　eole.Worksheets(″sheet3″).Activate
　　4．打开指定工作簿
　　eole.Workbooks.Open(″c:\temp\ll.xls″)
　　5．显示Excel窗口
　　eole.visible=.t.
　　6．更改Excel标题栏
　　eole.Caption=″VB应用程序调用Microsoft Excel″
　　7．给单元格赋值
　　eole.cells(1,4).value=XM(XM为数据库字段名)
　　8．设置指定列的宽度(单位：字符个数)
　　eole.ActiveSheet.Columns(1).ColumnWidth=5

等等