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