VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Access-Datenbank öffnen und deren Makro starten

Gruppe

Extern

Bereich

Access

Thema

Access-Datenbank öffnen und deren Makro starten

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

    


Beiträge aus dem Excel-Forum zu den Themen Extern und Access