Process EXCEL.exe never close ! Help please

[kazushi38]

Hello,

I've got a problem on my last code made for take data on SQL and put it on a specific worksheet in Excel.

The process Excel.exe is never close !

Any idea please ?

Module Module1
 
    Sub Main()
 
        Dim xlApp As New xls.Application
        Dim xlBook As xls.Workbook
        Dim xlSheet As xls.Worksheet
 
        Dim Connexion As New SqlConnection("Data Source=localhost;Initial Catalog=bdd_name;User Id=sa;Password=159753;")
        Dim Requete As String = "SELECT * FROM Table_test"
 
        xlBook = xlApp.Workbooks.Open("C:\Users\toto\Desktop\Classeur1.xlsx")
        xlSheet = xlBook.Worksheets("test")
 
        'Connexion à la BDD
        Connexion.Open()
 
        Dim Commande As New SqlCommand(Requete, Connexion)
        Dim Adaptateur As New SqlDataAdapter(Commande)
        Dim MonDataSet As New DataSet
 
        Try
            Adaptateur.Fill(MonDataSet, "test")
        Catch ex As Exception
 
            Console.WriteLine(ex.Message)
            Commande.Dispose()
            Connexion.Close()
        End Try
 
        Commande.Dispose()
        Connexion.Close()
 
        Dim RowInd As Int16 = 1
        Dim ColInd As Int16 = 1
 
        xlSheet.Range("A1", "Z5000").Value = ""
 
        For ColInd = 0 To 4
            For Each Ligne As DataRow In MonDataSet.Tables("Alarms").Rows()
                xlSheet.Cells(RowInd, ColInd + 1).Value = Ligne(ColInd).ToString
                RowInd += 1
            Next
            RowInd = 1
        Next
 
        xlApp.DisplayAlerts = False
        xlSheet.SaveAs("C:\Users\toto\Desktop\Classeur1.xlsx")
        xlBook.Close(False)
        xlApp.Quit()
        xlApp.DisplayAlerts = True
 
        ReleaseObject(xlApp)
        ReleaseObject(xlBook)
        ReleaseObject(xlSheet)
 
        xlApp = Nothing
        xlBook = Nothing
        xlSheet = Nothing
    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

[madankarmukta]

You hav to release each RCW object you hav created using marshal.releasecomobject.

Hope this helps.