[VB.NET] Dopo aver aperto un file Excel, il processo rimane in memoria

[zorro77]

Salve a tutti
nella mia applicazione apro un file excell, salvo i dati e poi chiudo la connessione, ma in task manager il processo rimane attivo.

Di seguito il codice utilizzato

Grazie per le risposte

Dim exWb = excellApp.Workbooks.Open(strPerc)

                'seleziona il foglio di lavoro 1 del file excel
                Dim numSheet = excellApp.Worksheets.Count
                'Dim a = excellApp.Worksheets.Select(1)
                Dim exWs = exWb.Worksheets(1)
                Dim nameWs = exWs.name

                Dim con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & strPerc & ";" & "Extended Properties=Excel 8.0")
                con.Open()
                Dim queryExcell As String = ("SELECT * FROM " & "[" & nameWs & "$]")
                Dim cmd As New OleDb.OleDbDataAdapter(queryExcell, con)
                DS = New DataSet
                cmd.Fill(DS, "tabella")
                DataGridViewExcell.DataSource = DS
                DataGridViewExcell.DataMember = "Tabella"

                con.Close()

Premetto che ho visto procedure per killare i processi, ma c'è un modo meno drastico dopo aver aperto e letto un file excell?

[gibra]

Dov'è che chiudi l'oggetto excellApp ?

[zorro77]

Avevo provato anche così dopo la chiusura della conn

excellApp.Workbooks.Close()

ma in Task Manager risulta sempre attivo il processo

[gibra]

No, io mi riferisco all'oggetto excellApp, non al Workbooks (che comunque andrebbe chiuso anche quello).

Dovrebbe essere

exWb.Close
excellApp.Quit

[zorro77]

Provato con quanto mi hai indicato tu....ma in TM risulta sempre il processo EXCELL.exe. Più file excell apro e più ne rimangono aperti.
Infatti se provo a riaprire più di una volta un file excell mi dice che è in uso da altro processo/utente

[gibra]

Allora c'è anche qualche altro problema.

Mostra il codice con cui crei l'oggetto excellApp...

[zorro77]

Ecco

Public Sub caricaExcell()
        Dim DS As New DataSet

        'Dim numRighe As Integer
        'Dim indRiga As Integer
        Dim strPerc As String

        Try
            'Apertura finestra di dialogo per apertura file
            Dim apriFile As New OpenFileDialog
            apriFile.InitialDirectory = App_Path()

            apriFile.Multiselect = True
            If apriFile.ShowDialog = DialogResult.OK Then


                'apre excel
                Dim excellApp = New Excel.Application
                'Rende visibile Excel
                'excellApp.Visible = False
                'apre il file xls
                strPerc = apriFile.FileName

                'Gestire multiselezione
                'Dim nFilesel = apriFile.FileNames

                'Dim nFile As Integer
                'nFile=asa.

                Dim exWb = excellApp.Workbooks.Open(strPerc)

                'seleziona il foglio di lavoro 1 del file excel
                Dim numSheet = excellApp.Worksheets.Count
                'Dim a = excellApp.Worksheets.Select(1)
                Dim exWs = exWb.Worksheets(1)
                Dim nameWs = exWs.name

                Dim con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & strPerc & ";" & "Extended Properties=Excel 8.0")
                con.Open()
                Dim queryExcell As String = ("SELECT * FROM " & "[" & nameWs & "$]")
                Dim cmd As New OleDb.OleDbDataAdapter(queryExcell, con)
                DS = New DataSet
                cmd.Fill(DS, "tabella")
                DataGridViewExcell.DataSource = DS
                DataGridViewExcell.DataMember = "Tabella"

                exWb.Close()
                excellApp.Quit()
                con.Close()

                
                'excellApp.Workbooks.Close()

                caricaDatiDB()

            End If
        Catch ex As COMException
            MessageBox.Show("Error accessing Excel: " + ex.ToString())
        Catch ex As Exception
            MessageBox.Show("Error: " + ex.ToString())
        End Try

    End Sub

[gibra]

Scusa, ma stai usando Microsoft.Office.Interop ?

[zorro77]

esatto
se pensi che mi crea solo prob (come sto vedendo anche io) accetto con enorme piacere altri suggerimenti ;-)

[gibra]

Originariamente inviato da zorro77
esatto
se pensi che mi crea solo prob (come sto vedendo anche io) accetto con enorme piacere altri suggerimenti ;-)

Personalmente sconsiglio questo metodo (early-binding), perchè obbliga ad aggiungere un riferimento ad una versione specifica di Excel, e quando si cambia versione oppure il codice viene eseguito su un computer che ha una versione diversa, non funziona più.

E' sempre meglio usare il 'late-binding' ovvero CreateObject() che funzionerà sempre con qualsiasi versione di Excel installata.


Quindi prima togli il riferimento alla libreria di Excel, poi modifica il codice come sotto (ti riporto le parti salienti):

'apre excel
Dim excellApp As Object
excellApp = CreateObject("Excel.Application")

' apre il workbook
Dim exWb As Object
exWb = excellApp.Workbooks.Open(strPerc)

' apre il worksheet
Dim exWs As Object
exWs = exWb.Worksheets(1)

'
' codice vario di elaborazione
'

' codice di chiusura
con.Close()
con = Nothing

exWs = Nothing

exWb.Close()
exWb = Nothing

excellApp.Quit()
excellApp = Nothing

Ovviamente, in questo caso, le righe seguenti non hanno più ragione d'essere:

Catch ex As COMException
    MessageBox.Show("Error accessing Excel: " + ex.ToString())

Comunque, nonostante il codice sia corretto, vi sono effettivamente problemi nel rilascio dell'istanza di Excel.
- Apri Gestione Attività e spostalo a destra dello schermo.
- Ora avvia la tua applicazione e, una volta caricato il DataGridView si vede che l'istanza resta 'appesa'.
- Nel DataGridView premi 2 o 3 volte i tasti END e HOME.
- Vedrai che l'istanza sparisce da Gestione attività.

Naturalmente non è un metodo applicabile quindi ecco la soluzione finale:

Aggiungi l'Imports
Imports System.Runtime.InteropServices

Poi aggiungi al codice sopra le parti in blue che riporto sotto:

excellApp.Quit()

Marshal.ReleaseComObject(excellApp)

excellApp = Nothing

GC.Collect()
GC.WaitForPendingFinalizers()
GC.Collect()

Ora vedrai che in Gestione attività l'istanza viene rilasciata immediatamente.