在Windows Forms App上使用VB.NET检测Excel单元格中的删除线

Imports Microsoft.Office.Interop.Excel

' 创建Excel应用程序对象
Dim excelApp As New Application()

' 打开Excel文件
Dim workbook As Workbook = excelApp.Workbooks.Open("文件路径")
Dim worksheet As Worksheet = workbook.Sheets("工作表名称")

' 遍历单元格范围
For Each cell As Range In worksheet.UsedRange.Cells
    ' 检测删除线
    If cell.Font.Strikethrough = True Then
        ' 单元格中有删除线
        ' 可以在此处进行相应的处理
    End If
Next

' 关闭并保存Excel文件
workbook.Close(True)

' 释放资源
System.Runtime.InteropServices.Marshal.ReleaseComObject(worksheet)
System.Runtime.InteropServices.Marshal.ReleaseComObject(workbook)
System.Runtime.InteropServices.Marshal.ReleaseComObject(excelApp)

' 结束Excel进程
excelApp.Quit()