Newsgroup: it.comp.appl.access
Titolo: Applicazione non si chiude

Mi creo un foglio excel da codice....
.....
    Dim excApp As Object
    Dim excDoc As Object
    Set excApp = GetObject(, "Excel.Application")
    If Err.Number = 429 Then
        Set excApp = CreateObject("Excel.Application")
        Err.Number = 0
    End If
    On Error GoTo gestErrori
    Set excDoc = excApp.Workbooks.Add
    excApp.Visible = False
    excApp.WindowState = -4137 'xlMaximized
    .....
    'un po' di operazinoi sul foglio
    .....
    excDoc.SaveAs  "pippo.xls"
       Set excDoc = Nothing
        Set excApp = Nothing
 Exit Sub
gestErrori:
    MsgBox Err.Number & " - " & Err.Description
    GoTo esci
End Sub
Alla fine di questo codice se vado a vedere nel task manager mi ritrovo
excel ancora aperto come posso forzarne la chiusura?
AEOM

Qualcuno ieri per caso e' stato alla conference du .NET fatta a Milano?
Cosa pensate delle "innovazioni" apportate al linguaggio in previsione
dell'uscita anche di 
office.net
?

 ha scritto nel messaggio
news:a2mkgo$69b$1...@pegasus.tiscalinet.it...

Non è che per caso ti è andato in errore e non hai chiuso tutte le istanze?
Ciao.
--
Sergio MAZZA

Qualcuno ieri per caso e' stato alla conference du .NET fatta a Milano?
Cosa pensate delle "innovazioni" apportate al linguaggio in previsione
dell'uscita anche di 
office.net
?
P.S per chi l'avesse visto chiedo scusa per la posizione del mio post ....
Pieta'
Ciao Alessandro


No scusa... il codice cosě com'č sul post funziona, ho scoperto che non
funziona
quando uso es.
Dim excApp As Object
  Dim excDoc As Object
     Set excApp = GetObject(, "Excel.Application")
     If Err.Number = 429 Then
         Set excApp = CreateObject("Excel.Application")
         Err.Number = 0
     End If
     On Error GoTo gestErrori
     Set excDoc = excApp.Workbooks.Add
     excApp.Visible = False
     excApp.WindowState = -4137 'xlMaximized
     .....
    quando metto operazioni di questo tipo
    excDoc.Worksheets(1).Rows(12).Font.Bold = True
     .....
     excDoc.SaveAs  "pippo.xls"
        Set excDoc = Nothing
         Set excApp = Nothing
  Exit Sub
 gestErrori:
     MsgBox Err.Number & " - " & Err.Description
     GoTo esci
 End Sub
Quindi se faccio qualcosa con worksheets non si chiude piů.
Qualche idea?
AEOM


Come 
office.net
 intendi office XP che è già uscito ?
Non dirmi che uscirà un'altra versione che ho appena ordinato Office XP
Denveloper !!!!
Ciao Marco S.
www.marcosanti.it


Ho provato in codesto modo e non succede nulla di anomalo:
'-----------
Dim excApp As Object
Dim excDoc As Object
'---> mi d'ha errore Set excApp = GetObject(, "Excel.Application")
'---> mi d'ha errore If Err.Number = 429 Then
    Set excApp = CreateObject("Excel.Application")
'---> mi d'ha errore Err.Number = 0
'---> mi d'ha errore End If
On Error GoTo gestErrori
Set excDoc = excApp.Workbooks.Add
excApp.Visible = True 'messo a true per vedere che faceva
excApp.WindowState = -4137 'xlMaximized
excDoc.Worksheets(1).Rows(12).Font.Bold = True
excDoc.SaveAs "pippo.xls"
Set excDoc = Nothing
Set excApp = Nothing
Exit Sub
gestErrori:
    excApp.Visible = True
    MsgBox Err.Number & " - " & Err.Description
'---> questo, secondo me non c'entra nulla!   GoTo esci
'-----------
Prova anche a dichiarare gli oggetti per quelli che sono; ossia:
'--------
Dim excApp As Excel.Application
Dim excDoc As Excel.WorkBook
'--------
Ciao.
--
Sergio MAZZA

 ha scritto nel messaggio
news:a2mnd1$9p2$1...@pegasus.tiscalinet.it...

hai provato a mette excApp.quit?
ciao.

 ha scritto nel messaggio
news:a2olnm$27f$1...@canarie.caspur.it...

Ho risolto... il problema era dovuto al fatto che per selezionare un'intera
colonna del foglio per cambiarne la larghezza avevo registrato una macro in
excel per poi copiarne il codice in access.
Non so il motivo ma questo causava il problema.
Ho riscritto il codice usando i metodi trovati con il visualizzatore oggetti
e tutto č ok
Grazie dell'interessamento
AEOM


Scusa per iò ritardo della mia risposta e:
No parlo di .Net che dovra` uscire non si sa bene quando ma che e` in
previsione. Cosi' mi e' sembrato di aver inteso io ed altre persone che
erano con me alla conference.
Del resto dovra' pure fare i soldi quel porello di Bill
Ciao Alessandro