VB6 表查询Excel

【实例简介】VB6 表查询Excel

随便写的，有错误但是查询可用，新手请勿喷

【实例截图】

【核心代码】

Public xlapp As Excel.Application 'Excel对象

Public xlrange As Excel.Range

Private Sub Form_Load()
Dim Xi As Integer
Dim Xj As Integer
Dim X As String
Dim s As String, q As String
Set xlapp = CreateObject("Excel.Application") '创建EXCEL应用类
xlapp.Visible = False '设置EXCEL可见  True False
Set xlbook = xlapp.Workbooks.Open("E:\temp\bb.xls") '打开EXCEL工作簿
Set xlsheet = xlbook.Worksheets(1) '打开EXCEL工作表
xlsheet.Activate '激活工作表
X = 1
End Sub
Private Sub Command2_Click()
Dim Xi(100) As Integer
Dim Xj(100) As Integer
Dim X As Integer
s = Text2.Text
q = ""
For i = 5 To xlsheet.UsedRange.Rows.Count     '从第一行一直到最后一个使用的行
    For j = 1 To xlsheet.UsedRange.Columns.Count '从第一列一直到最后一个使用的列
        If InStr(1, xlsheet.Cells(i, j), s) Then  ' 判定单元格内容里是否有需要查找的内容
            q = q & "单元格 " & xlsheet.Cells(i, j).Address(0, 0) & " 中的数据为: " & xlsheet.Cells(i, j)
            '有需要查找的内容返回单元格行列地址和内容
                Text1(0).Text = xlsheet.Cells(i, 2) '企业名称
                Text1(1).Text = xlsheet.Cells(i, 3) '法人
                Text1(2).Text = xlsheet.Cells(i, 4) '电话
                Text1(3).Text = xlsheet.Cells(i, 5) '地址
                Text1(4).Text = xlsheet.Cells(i, 6) '营业执照
                Text1(5).Text = xlsheet.Cells(i, 7) '组织机构代码
                Text1(6).Text = xlsheet.Cells(i, 9) '检查日期
                Text1(7).Text = xlsheet.Cells(i, 1) '序号
                Text1(8).Text = xlsheet.Cells(i, 8) '产品
X = 1
                Xi(X) = i
                Xj(X) = j
                
                M = Xi(X)
                N = Xj(X)
        Exit For
        End If

    Next j
If q <> "" Then
Exit For
End If
Next i
If q = "" Then
    MsgBox "没有查找的内容"
Else
    'MsgBox "表 " & xlsheet.Name & " 中查询包含" & s & "的单元格结果如下:" & vbCrLf & q
End If
    
    i = 0
End Sub
Private Sub Command3_Click()
xlapp.Quit
End Sub