在VB窗体上添加excel!!!

发布网友 发布时间：2022-04-23 03:21

我来回答

共2个回答

热心网友 时间：2023-08-30 19:55

部件-添加-可插入对象--选择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

热心网友 时间：2023-08-30 19:56

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