[VB6] Interazione con Excel (e chiusura corretta)

[fedina_2]

Ciao, ho un problema con VB6 ed excel.
Da programma devo creare un file excel con certi dati, le istruzioni che utilizzo sono:

Dim exApp As Object
Dim exWb As Excel.Workbook
Dim exWs As Excel.Worksheet

Set exApp = CreateObject("Excel.Application")

Set exWb = exApp.Workbooks.Open(sPercorso & sFile, False)
Set exWs = ActiveWorkbook.Worksheets("foglio1")

..istruzioni..

exApp.ActiveWorkbook.SaveAs sPercorsoSave
If exApp.Workbooks.Count <> 0 Then
exApp.Workbooks.Close
End If


exApp.UserControl = False
exApp.Quit

Set exApp = Nothing

Ma mi rimane appeso excel tra i processi del task manager, si chiude solo se chiudo l'eseguibile di vb.Eppure mi sembra di aver chiuso tutto correttamente...
Potete aiutarmi per favore????Sto impazzendo.....

Grazie

[alka]

E' sempre bene fare una ricerca sul forum prima di postare: abbiamo già trattato più volte questo argomento.

Ad esempio, prova a leggere questa discussione.

Ciao!

[fedina_2]

L'ho letto e già provato ma purtroppo niente.....

[fedina_2]

Ho provato a fare così e funziona solo parzialmente però, adesso vi spiego.
Con questo codice il processo excel non mi rimane appeso:

Public exApp As Excel.Application
Public exWb As Excel.Workbook
Public exWs As Excel.Worksheet


FileCopy sPercorso & sfile & ".xls", sPercorsoSave

Set exApp = New Excel.Application
exApp.Visible = False
Set exWb = exApp.Application.Workbooks.Open(sPercorsoSave, False)
DoEvents
exApp.DisplayAlerts = False

Set exWs = exWb.Worksheets("foglio1")

..istruzioni...

exApp.ActiveWorkbook.Save
exApp.ActiveWorkbook.Close
If exApp.Workbooks.Count <> 0 Then
exApp.Workbooks.Close
End If
exApp.UserControl = False
exApp.Application.Quit
Set exWs = Nothing
Set exWb = Nothing
Set exApp = Nothing

se però all'interno delle istruzioni aggiungo

With exWs.QueryTables.Add(sConnection, Range("A4"))

.CommandText = sSql
.FieldNames = False
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With

allora mi rimane nuovamente appeso excel nei processi, ma gli oggetti che ho aperto sono gli stessi..tutto a causa dell'istruzione exWs.QueryTables.Add()
Sapete spiegarmi perchè? C'è un modo particolare per scaricare le QueryTable?

Grazie per l'aiuto.

[alka]

Questa domanda andava inserita in fondo alla discussione che hai aperto oggi? In caso affermativo, faccio una "fusione"...

[fedina_2]

In effetti si, devo aver fatto qualche casino e alla fine ho scritto un altro messaggio....

[oregon]

Utilizza sempre il riferimento all'oggetto Application (exApp) che hai istanziato. Il problema nasce solo se utilizzi un oggetto a cui ti riferisci senza utilizzare tale oggetto.

Questo succede perche' VB, automaticamente ed implicitamente, crea una istanza "nascosta" di Excel se incontra una linea che utilizza oggetti della libreria che non fanno riferimento all'istanza di Excel creata. E' questa istanza "nascosta" che lascia "appeso" Excel.

[fedina_2]

Quindi invece di

With exWs.QueryTables.Add(sConnection, Range("A4"))

ho scritto

With exApp.ActiveWorkbook.ActiveSheet.QueryTables.Add(s Connection, Range("A4"))

così ho utilizzato solo exApp, ma il problema persiste....

In cosa ho sbagliato?

[oregon]

Lo stesso vale per Range ...

Non ha riferimenti ...

[fedina_2]

Alla fine ho scritto

With exWs.QueryTables.Add(sConnection, exWs.Range("A4"))


con set exWs = nothing alla fine e sembra funzionare!!!!

Grazie!!