用vb读取excel数据

希望得到可以读取如 A5的数据这样的效果

2024年12月01日 13:55

有2个网友回答

网友（1）：

'以下是程序，在窗体中建一下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

网友（2）：

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