VB搜索多个Excel表格

在VB中搜索多个Excel表格可以使用以下代码示例：

Imports System.IO
Imports Excel = Microsoft.Office.Interop.Excel

Public Class Form1

    Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
        Dim folderPath As String = "C:\ExcelFiles\" ' 指定Excel文件所在文件夹路径
        Dim searchTerm As String = txtSearchTerm.Text ' 获取搜索关键词

        ' 初始化Excel应用程序
        Dim excelApp As New Excel.Application
        excelApp.Visible = False

        ' 循环遍历文件夹中的所有Excel文件
        For Each file As String In Directory.GetFiles(folderPath, "*.xlsx")
            Dim workBook As Excel.Workbook = excelApp.Workbooks.Open(file) ' 打开Excel文件
            Dim workSheet As Excel.Worksheet = workBook.Sheets(1) ' 获取第一个工作表

            ' 搜索关键词在工作表中的位置
            Dim range As Excel.Range = workSheet.UsedRange
            Dim resultRange As Excel.Range = range.Find(searchTerm)

            ' 如果找到了关键词，则显示结果
            If resultRange IsNot Nothing Then
                MsgBox("关键词 " & searchTerm & " 在文件 " & file & " 的单元格 " & resultRange.Address & " 中找到。")
            End If

            ' 关闭工作簿
            workBook.Close()
        Next

        ' 关闭Excel应用程序
        excelApp.Quit()
    End Sub

End Class

上述代码使用Microsoft.Office.Interop.Excel命名空间中的Excel对象模型来操作Excel文件。在搜索之前，需要先将Microsoft.Office.Interop.Excel添加为项目的引用。

代码中的folderPath变量指定了Excel文件所在文件夹的路径，可以根据需要修改为实际的文件夹路径。

另外，代码中使用了一个文本框txtSearchTerm和一个按钮btnSearch来输入搜索关键词和执行搜索操作。可以根据实际情况进行修改。

在循环遍历文件夹中的每个Excel文件时，代码打开文件，获取第一个工作表，并在工作表中搜索关键词。如果找到了关键词，则弹出一个消息框显示搜索结果。

最后，代码关闭打开的工作簿，并退出Excel应用程序。

注意：在使用Microsoft.Office.Interop.Excel时，需要确保安装了Microsoft Office，且Excel版本与代码兼容。