利用vb实现读取excel表格数据，并进行查询操作范例，附源码

Dim scxls As Excel.Application
Dim scbook As Excel.Workbook
Dim scsheet As Excel.Worksheet
Dim A(3 To 61, 1 To 5) As Single
Dim M As Integer
Dim N As Integer
Dim I As Integer
Private Sub Command1_Click()
Set scxls = CreateObject("excel.application")
Set scbook = scxls.Workbooks.Add
Set scbook = scxls.Workbooks.Open("d:\1.xlsm")
Set scsheet = scbook.Worksheets(1)
For M = 1 To 5
For N = 3 To 61
A(N, M) = scsheet.Cells(N, M)
Next
Next
Set scbook = Nothing
Set scxls = Nothing
End Sub
Private Sub Command3_Click()
Dim S As Single
Dim J As Integer
S = Val(Text1.Text)
For I = 3 To 61
If A(I, 1) = S Then
J = I
End If
Next
Text2.Text = A(J, 2)
Text3.Text = A(J, 3)
Text4.Text = A(J, 4)
Text5.Text = A(J, 5)
End Sub

vb连接excel必须引用excel object控件，否则出现错误提示