Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Macro access eseguita da macro excel

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Macro access eseguita da macro excel

Postdi EnricoBanco » 24/01/18 12:34

Ciao Anthony, ciao a tutti

ho provato a cercare qui con varie stringhe di ricerca e sul web. Su stack overflow non sono riuscito a trovare indicazioni.
Ho trovato quanto segue.

Ho aggiunto in excel anche Microsoft Access xx Object Library. Ho Office 10 (si apre con mascherina gialla e bianca) e win 7 ma
nessuna di queste funziona. Mi dice che non trova il file oppure il file è bloccato da altro utente ma ovviamente il file mdb non è aperto. Forse c'è qualche cosa da settare in Access?

Dove posso cercare?

Codice: Seleziona tutto
 Sub Prova
Dim acc As Object
Set acc = CreateObject("Access.application")
With acc
.Visible = True
.Opencurrentdatabase "C:\File.mdb"
.docmd.RunMacro "Macro"
End With

acc.Close
Set acc = Nothing
Exit sub



Codice: Seleziona tutto
Public Sub Tester()
Dim App As New Access.Application

With App
.OpenCurrentDatabase "C:\File.mdb"
.DoCmd.RunMacro "Macro"
.Quit
End With

Set App = Nothing

End Sub
'<<=============



**********

Sub Tester2()
Dim App As Object

Set App = CreateObject("Access.Application")

With App
.OpenCurrentDatabase "C:\File.mdb"
.Visible = True
.Run "Macro"
.Quit
End With
Set App = Nothing
End Sub
EnricoBanco
Utente Junior
 
Post: 55
Iscritto il: 18/07/17 06:29

Sponsor
 

Re: Macro access eseguita da macro excel

Postdi Anthony47 » 24/01/18 15:51

Per quel poco che so, e da quello che vedo, quei codici dovrebbero tutti attivare Access e aprire il db.
L'unico sospetto che i viene e' che il file potrebbe essere rimasto attivo in una sessione non visibile di access a seguito di errata terminazione di una macro; pero' in questo caso il file non sarebbe accessibile nemmeno attivando a mano Access e poi cercando di aprire il db.

E' un po' poco, lo so...
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 15114
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Macro access eseguita da macro excel

Postdi EnricoBanco » 25/01/18 14:57

Cercando ancora su stack overflow ho trova questo codice, testato con una semplice macro che crea una tabella. bisogna inserire percorso, nome file e nome macro. Funziona. Configurazione p.c. come indicato sopra. Dal codice ho tolto un paio di righe che non mi servivano. Il link:
https://stackoverflow.com/questions/387 ... from-excel

Codice: Seleziona tutto
Sub Refresh_Pivot()
Dim AWB As Workbook
Dim pvtTable As Object
Dim appAccess As Object

'Save workbook
Set AWB = ActiveWorkbook
AWB.Save

   'Open Access Application
   Set appAccess = CreateObject("Access.Application")
   appAccess.OpenCurrentDatabase "C:\File.accdb"   '<-- Nome file
   appAccess.Visible = True

'Set Message bar in excel t o notify user of update process
oldStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Application.StatusBar = "Retrieving information, please be patient...."

  'Execute Access Macro containing lineup of queries and scrubs
  appAccess.DoCmd.RunMacro "Macro"  '<-- Nome macro

  'appAccess.DoCmd.RunMacro "Copia_buttami"  ' Macro di prova nel file "Impegni finanziari"<-- As it appears in the Macro Group in the Access Interface.

       'Close Access

       appAccess.DoCmd.Quit

       'Return message bar to original status
        Application.StatusBar = False
        Application.DisplayStatusBar = oldStatusBar
   
  'Notify user process has completed
  MsgBox ("Tabella completata")
End Sub
EnricoBanco
Utente Junior
 
Post: 55
Iscritto il: 18/07/17 06:29


Torna a Applicazioni Office Windows


Topic correlati a "Macro access eseguita da macro excel":


Chi c’è in linea

Visitano il forum: Nessuno e 16 ospiti