Macro access eseguita da macro excel

[EnricoBanco]

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

[Anthony47]

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...

[EnricoBanco]

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