textbox向excel表格提交数据的问题

Question

    窗体上有一个textbox，怎样通过在textbox中输入数据将数据提交到Excel表格中，并即时更新，要求用VB语言实现（连接Excel表格是用ADO实现的），请各位高手帮忙看看，答的好可以加分哦

Answer 1

csdn上这类例子海了去了，自己找一下！
这个与textbox无excel根本无关，关键在于ado打开excel文件的方式，找看看。

Answer 2

ADO打开Excel已经成功了，就是不会用textbox提交并更新这块，查过了没找着我要的，大家帮帮忙啊

Answer 3

在工程中引用Microsoft Excel类型库：
　　从"工程"菜单中选择"引用"栏；选择Microsoft Excel 9.0 Object Library（EXCEL2000），然后选择"确定"。表示在工程中要引用EXCEL类型库。Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet
Private Sub Command1_Click() '更新EXCEL
　If Dir("D:\temp\excel.bz") = "" Then '判断EXCEL是否打开
　　Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
　　xlApp.Visible = True '设置EXCEL可见
　　Set xlBook = xlApp.Workbooks.Open("D:\temp\bb.xls") '打开EXCEL工作簿
　　Set xlsheet = xlBook.Worksheets(1) '打开EXCEL工作表
　　xlsheet.Activate '激活工作表
　　xlsheet.Cells(1, 1) = TextBox1.Text '给单元格1行驶列赋值
    xlBook.Close (True) '关闭工作簿
    xlApp.Quit '结束EXCEL对象
    Set xlApp = Nothing '释放xlApp对象
　Else
　　MsgBox ("EXCEL已打开") 
　End If
End Sub

Answer 4

这个与ADO无关，只要引用excel 11.0 库就可以了。

Answer 5

以上各位说的都做了，打开并显示数据也成功了，关键是从Textbox中录入数据并更新到数据表不知如何实现