在VB窗体上添加excel！！！！！！！！！！！！

来源：百度知道 编辑：UC知道 时间：2024/04/30 01:59:36
在VB窗体上添加了一个excel，然后我可以向这个表格中输入数据，输入数据之后，然后通过别的事件调用表格中的数据，求哪位高手给个实际代码！！！
我的问题是VB窗体上已经包含了一个excel对象，我要对这个表格进行操作。

部件-添加-可插入对象--选择excel 表格就可以在窗体添加该表格控件

工程-引用-Microsoft Excel 11.0 Object Library
下面给个简单的例子
Private Sub Command1_Click()
Dim xlExcel As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim AppExcel As Object

Set xlExcel = CreateObject("Excel.Application")
xlExcel.Workbooks.Open "C:\test.xls"
Set xlBook = xlExcel.Workbooks("test.xls")
Set xlSheet = xlBook.Worksheets(1)
Text1.Text = xlSheet.Cells(1, 1).Value
Text1.Text = Text1.Text & "ADD"
xlSheet.Cells(1, 1).Value = Text1.Text
Application.DisplayAlerts = False
xlBook.Close SaveChanges:=True
Application.DisplayAlerts = True
End Sub

excel这个控件不行，到网上搜索一个好的。他只能通过api函数，来实现操作，还不是很好。不如自己画个表格，放几个text控件或者label控件。后台连一个excel