用vb读取excel数据

发布网友 发布时间：2022-04-26 14:40

我来回答

共2个回答

热心网友 时间：2022-06-29 07:54

'以下是程序，在窗体中建一下COMMAND1
Private Sub Command1_Click()
dim ii as string
dim x as integer
dim y as integer
Set oleExcel = CreateObject("Excel.Application")
oleExcel.Visible = True
oleExcel.Workbooks.Open FileName:="E:\数据.xls"
x=0
y=5
ii=oleExcel.Worksheets("Sheet1").Range("A1").Cells(y, x)
oleExcel.Save
oleExcel.displayalerts = False
oleExcel.Quit
End Sub

'另： 需要引用microsoft activex data objects 2.5 library
microsoft DAO 3.51 object library

热心网友 时间：2022-06-29 07:54

要用VB编程调用EXCEL才能读取它里面数据