VB 查询EXCEL表格中某一列的数据

Question

我有一个EXCEL的表格
需要用VB做一个简单的查询应用程序
VB界面中一个按钮 一个查询条件输入的窗口 一个显示窗口即可
我现在需要在输入条件的窗口输入要查询的东西 然后点击查询
在显示窗口显示出对应的EXCEL中的相应列
如EXCEL中 A列是查询条件 B是详细内容
输入A列中的名称 查询
显示 B列中的内容

小弟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

我想你还是先学VBA吧,VBA和VB很类似,这样进步比较快些.本回答被网友采纳

Answer 3

你还不如直接帅选，简单多了