在VB.Net中移动excel工作表

Imports Microsoft.Office.Interop.Excel

Public Class ExcelHelper
    Public Sub MoveWorksheet(ByVal excelFilePath As String, ByVal sheetName As String, ByVal beforeSheetName As String, ByVal afterSheetName As String)
        ' 创建Excel应用程序对象
        Dim excelApp As New Application()

        ' 打开Excel文件
        Dim workbook As Workbook = excelApp.Workbooks.Open(excelFilePath)

        ' 获取工作表集合
        Dim sheets As Sheets = workbook.Sheets

        ' 获取要移动的工作表对象
        Dim worksheet As Worksheet = sheets(sheetName)

        ' 获取Before和After工作表对象
        Dim beforeWorksheet As Worksheet = Nothing
        Dim afterWorksheet As Worksheet = Nothing

        If Not String.IsNullOrEmpty(beforeSheetName) Then
            beforeWorksheet = sheets(beforeSheetName)
        End If

        If Not String.IsNullOrEmpty(afterSheetName) Then
            afterWorksheet = sheets(afterSheetName)
        End If

        ' 移动工作表
        worksheet.Move(beforeWorksheet, afterWorksheet)

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

        ' 释放资源
        ReleaseObject(worksheet)
        ReleaseObject(beforeWorksheet)
        ReleaseObject(afterWorksheet)
        ReleaseObject(sheets)
        ReleaseObject(workbook)
        ReleaseObject(excelApp)
    End Sub

    Private Sub ReleaseObject(ByVal obj As Object)
        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
            obj = Nothing
        Catch ex As Exception
            obj = Nothing
        Finally
            GC.Collect()
        End Try
    End Sub
End Class