Question

利用vb6查询Excel表格数据

温度和压力分别是两列表格数据，利用VB编一个如图的简单查询程序

Answer 1

'首先要在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

Answer 2

首先创建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，没办法测试