vb在excel中搜索数据

vb或怎么快速批量搜索excel数据？~

用数据库的方式 将表数据作为数据库打开 用查询语句去查询你想要的数据
sql="select * from 表1,表2 where 表1.字段1=表2.字段1 and 表1.字段2=表2.字段2"

查询条件和结果数据，是同一行吗？

'引用：
'添加对该对象的引用 工程菜单-->引用，找到 Microsoft Scripting Runtime
'引用microsoft Excel 14.0 object library
'
Dim elApp As Excel.Application
Dim elBooks As Excel.Workbook
Dim ekSheet As Excel.Worksheet
Dim TblMap_Card '创建一个变量

Private Sub Command1_Click()
Dim i As Integer
openEl
Set dic = CreateObject("Scripting.Dictionary")
'MsgBox ekSheet.Cells(Rows.Count, 1).End(3).Row
For i = 2 To ekSheet.Cells(Rows.Count, 1).End(3).Row
If dic.Exists(ekSheet.Cells(i, 2).Value) Then
dic(ekSheet.Cells(i, 1).Value) = dic(ekSheet.Cells(i, 1).Value) + ekSheet.Cells(i, 2).Value
Else
dic(ekSheet.Cells(i, 1).Value) = ekSheet.Cells(i, 2).Value
End If
Next i

ekSheet.Range("H:J").Clear

'ekSheet.Cells(1, 9).Resize(1, 2) = Array("商品", "售量")
ekSheet.Cells(2, 9).Resize(dic.Count, 1) = Application.Transpose(dic.Keys)
ekSheet.Cells(2, 10).Resize(dic.Count, 1) = Application.Transpose(dic.Items)

End Sub

Private Sub openEl()
Dim myPath As String
myPath = "\week.xlsx"
Set elApp = CreateObject("Excel.Application")
Set elBooks = elApp.Workbooks.Open(App.Path & myPath)
Set ekSheet = elBooks.Worksheets("Sheet1")
'Set ekSheet = elBooks.Worksheets(1)
elApp.Visible = True
End Sub

VB6的，测试通过。界面上只有一个按钮。

Dim Range As Range
Set Range = xlsheet.Cells.Find(what:="20", lookat:=xlWhole) 'xlWhole表示单元格匹配
If Not Range Is Nothing Then
x = Range.Row
y = Range.Column
End If

Cells.find，然后再获得range.row和range.column

---

夏津县13654601608： 如何使用vb查找excel中某个数值 - ？
德邓庆大： 语句: Msgbox Range(＂A1:C2＂).Find( 4).Address 会弹出在区域“A1:C2”中查找到的值等于4的第一个单元格的地址的消息窗口

夏津县13654601608： 如何将在VB窗体中查询excel中内容 - ？
德邓庆大： Dim xlapp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSHEET As Excel.Worksheet Set xlapp = CreateObject(＂excel.application＂) '这里是小写,如果出错的话,下面还有大写的创建. Set xlBook = xlapp.Workbooks.Open(Str_xls) 'Str_xls是excel的文件路径 Set xlSHEET = xlBook.Worksheets(1)'下面是获取excel的值 x= xlSHEET.Cells(hang_bianliang,lie_bianliang)

夏津县13654601608： vb在excel中搜索数据 - ？
德邓庆大： '引用:'添加对该对象的引用 工程菜单-->引用,找到 Microsoft Scripting Runtime'引用microsoft Excel 14.0 object library' Dim elApp As Excel.Application Dim elBooks As Excel.Workbook Dim ekSheet As Excel.Worksheet Dim TblMap_Card '创建...

夏津县13654601608： VB 查询EXCEL表格中某一列的数据 - ？
德邓庆大： '首先要在VB中 引用 EXCEL'在FORM 中 绘制 textbox *2 commandbutton * 1'先打开 EXCEL 第一列输入 查询字段 第二列 输入 结果内容'先点击COMMAND1 连接EXCEL'在TEXT1中 输入查询字段 点击COMMAND2 TEXT2中显示结果'在VB6 ...

夏津县13654601608： 在Excel中怎样利用VB,从一个表中获取所需要的数据？
德邓庆大： 1.获取excel文件的路径,并打开excel文件 2.用read等函数读取excel文件中的内容 3.连接数据库,用insert语句将数据插入到数据库

夏津县13654601608： VB如何对excel进行多重查找 - ？
德邓庆大： 1、首先将EXCEL 文件中的数据导出为TXT文件;然后再查找.2、或者通过VB建立于EXCEL表的链接,再对里面的数据查询.雨滴计算.

夏津县13654601608： 如何VB实现对Excel的数据查询 - ？
德邓庆大： 在VB中建立到excel表的连接,就可以打开文件了..然后读取excel文件的代码和VBA差不多,具体的自己调试下!下面代码要求执行代码的电脑上必须安装了excel程序(这样可以不添加对excel的...

夏津县13654601608： 如何在VB中设置一个按钮 单击就可以在指定的EXCEL中搜索 - ？
德邓庆大： 可以在EXCEL的工具栏里设置,添加条件查询按钮

夏津县13654601608： 怎样用VB读取Excel文件中表格中的数据? - ？
德邓庆大： 1、VB是常用的应用软件开发工具之一,由于VB的报表功能有限,而且一但报表格式发生变化,就得相应修改程序,给应用软件的维护工作带来极大的不便.因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能. 2、 VB读...

夏津县13654601608： VB实现搜索excel中列出文件的功能 - ？
德邓庆大： 一般是运行语句 Copy to d:\documents\00 type xl5