使用vb.net在excel工作表中查找特定文本并返回它所在的行或列

Imports Excel = Microsoft.Office.Interop.Excel

Module Module1
    Sub Main()
        Dim excelApp As New Excel.Application()
        Dim workbook As Excel.Workbook = excelApp.Workbooks.Open("C:\path\to\your\excel\file.xlsx")
        Dim worksheet As Excel.Worksheet = workbook.Sheets(1)

        Dim searchText As String = "特定文本"
        Dim foundRange As Excel.Range = worksheet.Cells.Find(What:=searchText, LookIn:=Excel.XlFindLookIn.xlValues, LookAt:=Excel.XlLookAt.xlPart, SearchOrder:=Excel.XlSearchOrder.xlByRows, SearchDirection:=Excel.XlSearchDirection.xlNext, MatchCase:=False)

        If Not foundRange Is Nothing Then
            Console.WriteLine("找到文本在行: " & foundRange.Row & ", 列: " & foundRange.Column)
        Else
            Console.WriteLine("未找到文本")
        End If

        workbook.Close(SaveChanges:=False)
        excelApp.Quit()
    End Sub
End Module