Excel da 2003 a 2007

Hai un problema con Excel?

Nuova discussione

Excel da 2003 a 2007
di Tiziano (utente non iscritto) data: 26/09/2009
Buongiorno, chiedo un vostro parere sull'esecizione di un una macro auto_open di un programmino di gestione aziendale che ho sviluppato con excel 2003 (tuttora funzionante).
lanciandolo con excel 2007 mi presenta l'errore "coinitialize è già stato chiamato".
prove già effettuate:
. ho caricato tutti i componenti aggiuntivi
. sbloccato l'esecuzione delle macro
. ho inserito una riga di codice "coinitialize = null" ma il problema persisite.
l'unico mio dubbio è che il programmino è composto da 40 form e non vorrei che ci fossero dei limiti o che abbia usato del codice non compatibile (uso vb in modo grezzo).
ciao e grazie.
email: amm@hc-gioart.it

Sub auto_open()
'
' Start Macro
' Macro registrata il 26/03/2005 da Zanella
'
' Scelta rapida da tastiera: CTRL+MAIUSC+S
'
    Application.DisplayFullScreen = True
    Application.ShowWindowsInTaskbar = False
    Application.WindowState = xlMinimized
    Application.AskToUpdateLinks = False
    Workbooks.Open Filename:="D:DocumentiTerzo_FuocoGESTIONEVENDITE.xls"
    Application.Calculation = xlManual
    Application.CalculateBeforeSave = True
    Workbooks.Open Filename:="D:DocumentiTerzo_FuocoGESTIONEELENCHI_VOCI.xls"
    Application.Calculation = xlManual
    Application.CalculateBeforeSave = True
    Workbooks.Open Filename:="D:DocumentiTerzo_FuocoGESTIONEDOCUMENTI.xls"
    Application.Calculation = xlManual
    Application.CalculateBeforeSave = True
    Workbooks.Open Filename:="D:DocumentiTerzo_FuocoGESTIONEDB_MAGAZZINI.xls"
    Application.Calculation = xlManual
    Application.CalculateBeforeSave = True
    Workbooks.Open Filename:="D:DocumentiTerzo_FuocoGESTIONESPESE.xls"
    Application.Calculation = xlManual
    Application.CalculateBeforeSave = True
    Workbooks.Open Filename:="D:DocumentiTerzo_FuocoGESTIONEDB_PRODUZIONE.xls"
    Application.Calculation = xlManual
    Application.CalculateBeforeSave = True
    Workbooks.Open Filename:="D:DocumentiTerzo_FuocoGESTIONEDB_CLIENTI_FORNITORI.xls"
    Application.Calculation = xlManual
    Application.CalculateBeforeSave = True
    Application.Calculate
    Application.AskToUpdateLinks = True
    Application.Windows("Menù.xls").Activate
    Application.WindowState = xlMaximized
    MenuGenerale.Show

End Sub

Da excel 2003 a 2007
di Tiziano (utente non iscritto) data: 01/10/2009
Salve, ho fatto altre prove e alla fine ho trovato l'errore. in una delle 40 form ci sono degli activex che a excel 2007 non piacciono.

ciao e grazie

Vuoi Approfondire?