基于Excell值的VB.NET在Excel文件中的查找与替换

Imports Microsoft.Office.Interop.Excel

Public Class ExcelHelper
    Public Sub FindAndReplaceValue(filePath As String, searchValue As String, replaceValue As String)
        Dim excelApp As New Application()
        Dim excelWorkbook As Workbook = excelApp.Workbooks.Open(filePath)
        Dim excelWorksheet As Worksheet = excelWorkbook.Sheets(1)
        Dim excelRange As Range = excelWorksheet.UsedRange

        Dim foundCells As Range = excelRange.Find(searchValue)
        While Not foundCells Is Nothing
            foundCells.Value = replaceValue
            foundCells = excelRange.FindNext(foundCells)
        End While

        excelWorkbook.Save()
        excelWorkbook.Close()
        excelApp.Quit()
    End Sub
End Class