Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Lanciare una macro di Excel

257 views
Skip to first unread message

Franco

unread,
Jan 11, 2008, 10:07:45 AM1/11/08
to
Salve a tutti
ho la necessità, tramite un programma di Access, di lanciare un file di
Excel e, a sua volta, una macro in quest'ultimo file. In realtà la macro di
Excel è la Auto_open, che si avvia alla partenza del file.
Se faccio partire tale file direttamente da Excel, la macro parte ed esegue
ciò che deve fare, ma se avvio lo stesso file da Access, la macro non parte.
Vi allego le istruzioni che uso per avviare Excel ed il suo file:

Dim LanciaExcel As Object
Dim ApreFile As Object
Dim Percorso As String
'
Percorso = CurrentProject.Path
Set LanciaExcel = CreateObject("Excel.Application")
Set ApreFile = LanciaExcel.Workbooks.Add(Percorso & "\Reportistica.xls")
LanciaExcel.Visible = True

dove Reportistica.xls è il file da lanciare.

Excel si avvia regolarmente, mi apre il file in questione e basta.
Evidentemente manca un'istruzione che avvii anche la macro che però, ripeto,
lanciando il file da Excel, parte regolarmente da sola.
Io pensavo che bastasse aprire il file, invece non è così.
Grazie a tutti
Franco

--------------------------------
Inviato via http://arianna.libero.it/usenet/

rick2

unread,
Jan 11, 2008, 1:13:27 PM1/11/08
to

"Franco" <franc...@inwind.it> ha scritto nel messaggio
news:81Z121Z147Z45Y1...@usenet.libero.it...


oggetto.application.run ("nomemacro")

Ciao Ulderico


Franco

unread,
Jan 12, 2008, 3:56:53 PM1/12/08
to
Perfetto Ulderico, funziona alla grande.
Grazie
0 new messages