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

发布网友

我来回答

共3个回答

热心网友

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

热心网友

我想你还是先学VBA吧,VBA和VB很类似,这样进步比较快些.

热心网友

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