Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Access-Datenbank öffnen und deren Makro starten

Gruppe

Access

Problem

Es soll eine Access-Datenbank geöffnet, ein dort befindliches Makro gestartet und die Datenbank wieder geschlossen werden.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.

StandardModule: Modul1

Sub CallAccessMacro()
   Dim accApp As Object
   Dim sFile As String
   sFile = Range("B1").Value
   If Dir(sFile) = "" Then
      Beep
      MsgBox "Access-Datenbank wurde nicht gefunden!"
   Else
      Set accApp = CreateObject("Access.Application")
      accApp.OpenCurrentDatabase sFile
      accApp.Run "Meldung"
      accApp.CloseCurrentDatabase
      Set accApp = Nothing
   End If
End Sub