如何使用vb.net代码从已有的excel文件中删除一些特定的工作表？

Imports Microsoft.Office.Interop

Public Sub DeleteWorksheetsFromExcelFile(filePath As String, sheetNames As List(Of String))
    ' 创建Excel应用程序对象
    Dim excelApp As New Excel.Application()
    ' 打开Excel文件
    Dim workbook As Excel.Workbook = excelApp.Workbooks.Open(filePath)

    ' 循环遍历要删除的工作表名称列表
    For Each sheetName As String In sheetNames
        ' 检查工作表是否存在
        If WorksheetExists(workbook, sheetName) Then
            ' 获取要删除的工作表对象
            Dim worksheet As Excel.Worksheet = workbook.Sheets(sheetName)
            ' 删除工作表
            worksheet.Delete()
        End If
    Next

    ' 保存并关闭Excel文件
    workbook.Save()
    workbook.Close()
    excelApp.Quit()

    ' 释放Excel对象
    ReleaseObject(worksheet)
    ReleaseObject(workbook)
    ReleaseObject(excelApp)
End Sub

Private Function WorksheetExists(workbook As Excel.Workbook, sheetName As String) As Boolean
    ' 遍历工作表，检查是否存在指定名称的工作表
    For Each worksheet As Excel.Worksheet In workbook.Sheets
        If worksheet.Name = sheetName Then
            Return True
        End If
    Next
    Return False
End Function

Private Sub ReleaseObject(obj As Object)
    ' 释放COM对象
    Try
        System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
        obj = Nothing
    Catch ex As Exception
        obj = Nothing
    Finally
        GC.Collect()
    End Try
End Sub

Dim filePath As String = "C:\path\to\your\excel\file.xlsx"
Dim sheetNames As New List(Of String) From {"Sheet2", "Sheet4"}

DeleteWorksheetsFromExcelFile(filePath, sheetNames)