VB.Net Office Interop - Excel 进程未关闭

使用VB.Net Office Interop - Excel 进程未关闭

vb
Imports Microsoft.Office.Interop
Module Module1
    Sub Main()
        Dim excelApp As New Excel.Application()
        Dim workbook As Excel.Workbook = excelApp.Workbooks.Add()
        Dim worksheet As Excel.Worksheet = workbook.Sheets(1)
        ' 在Excel中写入数据
        worksheet.Cells(1, 1).Value = "Hello"
        worksheet.Cells(1, 2).Value = "World"
        ' 保存并关闭Excel文件
        workbook.SaveAs("C:\path\to\your\excel\file.xlsx")
        workbook.Close()
        ' 释放资源
        ReleaseObject(worksheet)
        ReleaseObject(workbook)
        ReleaseObject(excelApp)
        ' 关闭Excel进程
        excelApp.Quit()
        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 Module