经验直达：
- VB中如何查找Excel内容
- 如何VB实现对Excel的数据查询
一、VB中如何查找Excel内容
【如何VB实现对Excel的数据查询 VB中如何查找Excel内容】我用的textbox,你也可以改成你的那种控件,这个是返回在一个工作簿中的每个工作表中找到的第一个,如果要返回所有找到的,也可以修改.希望可以帮到你.我测试是OK的.
Private Sub CommandButton2_Click()
on error resume next '防止你要输入的a这个表未打开时报错.
Application.ScreenUpdating = False
Dim a As String
Dim b As String
Dim sh As Worksheet
a = TextBox1.Text '可以改成你的Text1.text
b = TextBox2.Text '可以改成你的Text2.text
Str1 = "*" & b & "*"
For Each sh In Workbooks(a & ".xls").Worksheets
For Each c In sh.Cells
If c.Value Like Str1 Then '如果要查相等的用c.value=https://www.itzhengshu.com/excel/b
x = c.Row
y = c.Column
MsgBox "工作表:" & sh.Name & vbNewLine & "x = " & x & ", y = " & y
Exit For
End If
DoEvents
Next
Next
Application.ScreenUpdating = True
End Sub
二、如何VB实现对Excel的数据查询
在VB中建立到excel表的连接，就可以打开文件了 。。
然后读取excel文件的代码和VBA差不多，具体的自己调试下！
下面代码要求执行代码的电脑上必须安装了excel程序（这样可以不添加对excel的引用） 。。
Dim xlsApp As Object, xlsWb As Object, xlsWs As Object '定义Excel对象
Set xlsApp = CreateObject("Excel.Application") '建立excel对象
Set xlsWb = xlsApp.Workbooks.Open(fPath) '要打开的文档路径
Set xlsWs = xlsWb.Worksheets(1) '选工作表 。多张表时通过序号指定不同的表
xlsWs.Activate '选定工作表，下面就可以开始读取表内容了 。
最后数据处理完成后记得执行下面操作：
xlsWb.Close '关闭excel文件
xlsApp.Quit '退出excel
Set xlsWs = Nothing
Set xlsWb = Nothing
Set xlsApp = Nothing