VB.NET查表

直接打开EXCEL用CTRL+F ，可以直接定位到符合条件的数据；或用指定条件筛选

成都创新互联主要从事成都网站设计、成都网站建设、网页设计、企业做网站、公司建网站等业务。立足成都服务万安,十多年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:13518219792

vb.net如何与excel建立连接，并从里面查询并读取数据？

1.新建一张表格，在表格中导入学生的成绩表，如图所示，将建立一个按钮，通过它来实现查找。

2.单击菜单栏中的“开发工具”——插入——表单控件——按钮，在出现的十字箭头上拖住画出一个按钮，如图所示。

3.在弹出的查找红对话框中选择“录制”，在弹出的“录制新宏”对话框中，修改宏名称为“查找”，单击确定。

4. 单击“开发工具”——查看代码，打开VBA编辑器，如图所示。

5.现在输入代码：

Sub 查找()

Dim jieguo As String, p As String, q As String

Dim c As Range

jieguo = Application.InputBox(prompt:="请输入要查找的值：", Title:="查找", Type:=2)

If jieguo = "False" Or jieguo = "" Then Exit Sub

Application.ScreenUpdating = False

Application.DisplayAlerts = False

With ActiveSheet.Cells

  Set c = .Find(jieguo, , , xlWhole, xlByColumns, xlNext, False)

  If Not c Is Nothing Then

      p = c.Address

      Do

          c.Interior.ColorIndex = 4

          q = q c.Address vbCrLf

          Set c = .FindNext(c)

      Loop While Not c Is Nothing And c.Address p

  End If

End With

MsgBox "查找数据在以下单元格中：" vbCrLf vbCrLf _

  q, vbInformation + vbOKOnly, "查找结果"

Application.ScreenUpdating = True

Application.DisplayAlerts = True

End Sub

6.现在回到EXCEL表格，右击按钮，选择“编辑文字”，修改按钮名称为“查找按钮”。

7. 现在单击查找按钮，出现对话框“请输入要查找的值”，在方框中输入“男”，单击确定，出现对话框“查找数据在一下单元格中”，单击确定，对应单元格就变成了亮色。

vb.net 搜索子目录下的文件

vb.net编程查找搜索指定目录下面的所有文件和其子目录下的文件，方法如下：

''=============================================

''名称: FindPath

''作用: 查找搜索指定目录下面的所有文件和其子目录下的文件

''参数：strPath 要查找的目录，

''strFiles 用于存查找结果的缓冲区，String 类型的动态数组，调用时事先初始化， 如Redim strFiles(0)

''FileCount 用于返回文件个数

''=============================================

Public Sub FindPath(ByVal strPath As String, strFiles() As String, FileCount As Long)

Dim strDirs()   As String

Dim strResult   As String

Dim FileLimit   As Long

Dim dirLimit    As Long

Dim dirCount    As Long

Dim I           As Long

FileLimit = UBound(strFiles) + 1

dirLimit = 0

If Right$(strPath, 1)  "/" Then strPath = strPath  "/"

strResult = Dir(strPath, vbDirectory + vbSystem + vbReadOnly + vbHidden + vbNormal + vbArchive)

Do While Len(strResult)  0

If strResult  "." And strResult  ".." Then

If (GetAttr(strPath  strResult) And vbDirectory)  vbDirectory Then

If FileCount = FileLimit Then

ReDim Preserve strFiles(FileLimit + 10)

FileLimit = FileLimit + 10

End If

strFiles(FileCount) = strPath  strResult

FileCount = FileCount + 1

Else

If dirCount = dirLimit Then

ReDim Preserve strDirs(dirLimit + 10)

dirLimit = dirLimit + 10

End If

strDirs(dirCount) = strPath  strResult

dirCount = dirCount + 1

End If

End If

strResult = Dir(, vbDirectory + vbSystem + vbReadOnly + vbHidden + vbNormal + vbArchive)

Loop

For I = 0 To dirCount - 1

Call FindPath(strDirs(I), strFiles, FileCount)

Next I

End Sub

网站名称：vb.net搜索表 vbs 搜索文件
本文URL：http://kswjz.com/article/ddceege.html