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

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

共3个回答

热心网友时间：2023-07-26 02:36

'首先要在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-26 02:36

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

热心网友时间：2023-07-26 02:37

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