Question

VB操作EXCEL，在vb界面中对指定的excel文件写入数据

举个简单的例子吧，vb界面中有一个text1,一个command1。
要求1：在text1中写入数据“xx“,然后点击command1，就可以把"xx"显示在excel表格的A1单元格里，比如excel表格的路径在"d:\11.xls"。录入数据后，要自动保存。
要求2：再次打开vb，录入数据，比如在text1中写入"xxx"，点击command1时，因为刚才excel中，A1单元格已经有数据了，所以"xxx"要显示在A2单元格里，依次类推，显示在A3,A4,A5单元格里，也自动保存。
这样可以实现吗？谢谢了，我把分都给你。不过，零头就不给了，呵呵，留着压口袋。

Answer 1

可以的。
1楼办法还行，不过要是已经有1万行了，那就要先循环1万次在添加数据。
所以，要先获取最后一行的行数，然后加1，这个就是那个空单元格，就在这个单元格里填写数据了。

Answer 2

'在工程中添加对Excel的引用
Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook

Private Sub Command1_Click()
Dim I As Integer
Set xlsApp = Excel.Application
xlsApp.Visible = False
Set xlsBook = xlsApp.Workbooks.Open("D:\11.xls")
I = 1
Do While xlsApp.Sheets(1).cells(I, 1) <> ""
I = I + 1
Loop
xlsApp.Sheets(1).cells(I, 1) = Text1.Text
xlsBook.Close (True)
xlsApp.Quit
Set xlsApp = Nothing
MsgBox "数据写入成功！"
End Sub