Kald Access Makro fra Excel

Har denne her...

Men den virker ikke helt optimalt!

      Dim A As Object
      Set A = CreateObject("Access.Application")
      A.Visible = False
      A.OpenCurrentDatabase ("C:\MCAU\DATA\Projektmapper\McauDB.mdb")
      A.DoCmd.RunMacro "Afspil_Makro"

Så kom den!

Private Sub Workbook_Open()
Dim acc As Access.Application

    Set acc = CreateObject("Access.Application")

    acc.OpenCurrentDatabase "C:\MCAU\DATA\Projektmapper\McauDB.mdb"
    acc.DoCmd.RunMacro "Afspil_Makro"
    acc.Visible = True
    acc.CloseCurrentDatabase
    Set acc = Nothing

End Sub

Svar