利用vb6查询Excel表格数据

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

共2个回答

热心网友时间：2023-07-25 22:18

'首先要在VB中引用 EXCEL
'在FORM 中绘制 textbox ×2 commandbutton × 1
'先打开 EXCEL 第一列输入查询字段第二列输入结果内容
'先点击COMMAND1 连接EXCEL
'在TEXT1中输入查询字段点击COMMAND2 TEXT2中显示结果
'在VB6 EXCEL 2003测试通过
'如有疑问请留言

Option Explicit

Dim I, J, K, L As Long

Dim ROW_COUNT, COL_COUNT As Long

Dim EXCEL_APP As Excel.Application '声明EXCEL对象

Private Sub Command1_Click()

Set EXCEL_APP = GetObject(, "Excel.Application") '连接EXCEL

End Sub

Private Sub Command2_Click()

ROW_COUNT = EXCEL_APP.ActiveSheet.UsedRange.Rows.Count '查询有多少行数据被使用，以获得最小的查询范围

EXCEL_APP.ActiveCell.Offset(1 - EXCEL_APP.ActiveCell.Row, 1 - EXCEL_APP.ActiveCell.Column).Select '定位于左上角

Text2.Text = ""

For I = 1 To ROW_COUNT

If EXCEL_APP.Cells(I, 1).Value = Text1.Text Then

Text2.Text = EXCEL_APP.Cells(I, 2).Value

I = 100 + ROW_COUNT

End If

Next I

End Sub

热心网友时间：2023-07-25 22:18

首先创建Excel对象，使用ComObj: （所有操作都是针对这个对象来操作的）
Dim ExcelID as Excel.Application //定义对象
Set ExcelID as new Excel.Application //设置对象
ExcelID.WorkBooks.Open('C:\Excel\Demo.xls') //打开
ExcelID.WorkSheets[2].Activate //设置活动工作表，至于是哪个就看具体情况了，你可以枚举来判断符合要求的或者直接定义
编辑框.内容= ExcelID.Cells[1,4].Value //查询对应的，直接指定或者在VB里面加入时钟循环读取，至于怎么用就是你的事了
ExcelID.WorkBooks.Close //窗口销毁的时候别忘了关闭

大概就是这个过程，具体写法你测试一下，我写的时候没有VB，没办法测试