[VB6]: Riapertura di file Excel segnala che è già in uso

[marco.santilli]

Premendo un pulsante faccio aprire un foglio in excel

Private Sub Command11_Click()
Dim appExcel As New Excel.Application
Dim cartExcel As Excel.Workbook
Dim foglioExcel As Excel.Worksheet
Set cartExcel = Excel.Workbooks.Open(App.Path & "\Prova.xls")
appExcel.Visible = True
End Sub

Adesso se chiudo il foglio excel e ripremo il pulsante il file non viene riaperto.
Se lo premo di nuovo mi dice che il file è gia aperto.

Quindi deduco che il file me lo riapre ma non è visibile.

Se chiudo il programma e lo riapro il file mi si apre correttamente.
In poche parole posso aprire una sola volta il file excel, per riaprirlo devo prima chiudere il programma e riavviarlo


Sapete il motivo e come risolverlo????


Ciao e grazieeeeeeeee

[alka]

Probabilmente, la chiusura non avviene correttamente (dal programma però).

Se interagisci con un'istanza di Excel per effettuare delle operazioni, devi anche provvedere alla sua chiusura.

[marco.santilli]

Sapresti trasformarmi la giusta chiusura in codice....così provo a vedere se funziona


Ciao e grazieeeeeeeeeee

[oregon]

Ma come fai a chiuderlo se la variabile appExcel e' dichiarata nella

Command11_Click

?

[marco.santilli]

Cliccando sul pulsante mi apre il file:

Dim appExcel As New Excel.Application
Dim cartExcel As Excel.Workbook
Dim foglioExcel As Excel.Worksheet
Set cartExcel = Excel.Workbooks.Open(App.Path & "\Prova.xls")
appExcel.Visible = True

Ora stampo il contenuto
Adesso lo chiudo e dico di non salvare.

Lui me lo chiudo ma se ripremo il pulsante non mi riapre la pagina

[oregon]

Ma chiudi Excel?

Non devi operare cosi'!

Se apri Excel tramite OLE devi chiuderlo con lo stesso metodo.
Ovvero, se hai utilizzato un oggetto Excel.Application, lo devi chiudere quando non ti serve piu' e distruggere.

[marco.santilli]

Quindi, come si fa per distruggerlo....

Me lo puoi scrivere???????


Ciao e grazieeeeeeeee