Riaprire Excel

[Dario Cannata]

Salve a tutti

Ho un problema con l'apertura, anzi la riapertura, da codice di excel:
E' una routine per l'esportazione dei dati
Ecco il codice

Private sub Esporta
Dim excelapp As Excel.Application
Dim exceldoc As Excel.Workbook
Dim foglio1 As Excel.Worksheet
Set excelapp = New Excel.Application
Set exceldoc = Excel.Workbooks.Add
Set foglio1 = Excel.Worksheets.Item(1)
...
...
excelapp.Visible = True
Set foglio1 = Nothing
Set exceldoc = Nothing
Set excelapp = Nothing
end sub

In sostanza creo il foglio, ci metto i dati e funziona
Se però chiudo excel senza salvare, e riprovo a lanciare il comando,
non funziona piu.
Ho notato che nel task manager resta aperta la sessione di excel dopo
la prima volta che lo lancio....
C'è qualche anima pia capace di darmi una mano?

Grazie in anticipo

[Mauro Gamberini]

Ho un problema con l'apertura, anzi la riapertura, da codice di excel:
E' una routine per l'esportazione dei dati
Ecco il codice

<cut>

Consiglio. Non utilizzare i riferimenti
ad una determinata versione di Excel,
altrimenti hai problemi.
Qui sotto trovi il codice completo,
compresa la riga con il Quit che ti
evita il problema che riscontri. Adattalo
al tuo contesto:

Private Sub Command1_Click()

Dim objExcel As Object
Dim objWorkbook As Object
Dim objWorksheet As Object

On Error GoTo RigaErrore

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\tuoFile.xls")
Set objWorksheet = objWorkbook.worksheets("Foglio2")

objExcel.Visible = True

With objWorksheet
.Select
.Cells(1, 1).Value = "Pippo"
.Cells(1, 2).Value = "Pluto"
'.PrintOut
End With

'objWorkbook.Saved = True

RigaChiusura:
objExcel.Quit <<<<========
Set objWorksheet = Nothing
Set objWorkbook = Nothing
Set objExcel = Nothing
Exit Sub

RigaErrore:
MsgBox Err.Number & vbNewLine & Err.Description
Resume RigaChiusura

End Sub

--
---------------------------
Mauro Gamberini
Microsoft MVP - Excel
http://www.riolab.org/
http://www.maurogsc.eu/
http://social.answers.microsoft.com/Forums/it-IT/officeexcelit/threads

__________ Informazioni da ESET NOD32 Antivirus, versione del database delle firme digitali 5182 (20100608) __________

Il messaggio è stato controllato da ESET NOD32 Antivirus.

www.nod32.it

[Dario Cannata]

On 8 Giu, 18:46, "Mauro Gamberini"

> Microsoft MVP - Excelhttp://www.riolab.org/http://www.maurogsc.eu/http://social.answers.microsoft.com/Forums/it-IT/officeexcelit/threads

>
> __________ Informazioni da ESET NOD32 Antivirus, versione del database delle firme digitali 5182 (20100608) __________
>
> Il messaggio è stato controllato da ESET NOD32 Antivirus.
>
> www.nod32.it

Grazie!!

[Mauro Gamberini]

> Grazie!!
>

Grazie a te per il cortese riscontro.

--
---------------------------
Mauro Gamberini