Thema: Access-Datenbank öffnen und deren Makro starten

Home

Gruppe

Extern

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

ID's aus Accessabfrage prüfen	Export in access
Access Steuerung aus Excel-VBA	Zugriff auf Access-DB im Intranet
Access daten mit Excel verknüpfen	excel und access
Dateiname externer Datei ändern	Tabellenblatt aus externer Exceldatei kopieren
Access (soll Ausnahme sein)	ConboBox mit externe Daten füllen
Zugriff auf Access-Tabelle	ChangeFileAccess
Abfrage, ob Access installiert ist	Wert in externer Datei suchen
Diskussion: Mit VBA Access-Abfragen erstellen	Aufruf externer Programme
Wie vorgehen für Verknüpfung mit Access Datenbank	access
Daten in Access auf Netzlaufwerk schreiben	Access-Forum
Externe Bezüge auslesen mit VBA	Excel -> Access mit ADO
Externe Verküpfung anpassen	Per VBA aus Excel in Access neue Tbl erstellen
Daten aus Access	wieder mal Access-Daten nach Excel
Access Formular	Pivot mit Externer DB am Limit?
Externe Verknüpfungen	Blätter in Externer Arbeitsmappe einblenden
externes Verzeichnis ansprechen	Externe Datenquelle via VBA
Pivot mit Externer DB UNION funzt nich	Sicherheitsmeldung beim Zugriff auf Access
Nur externe Bezüge rausnehmen	Abfrage auf Access-DB mit Selektionskriterium
Pivot Tabelle - Probleme Link zu Access	Access-Datenbank Abfrage in Excel
*xlt-Dateien als externe Datenquelle nutzen	Externes Programm öffnen
Makro: Bezug auf externes xls-File?	Wert an externes Programm übergeben
Externe Excel-Verknüpfungen automatisiert ändern	Verlinkung externer Arbeitsmappen
Bidirektionale Verknüpfung Excel und Access	Makro-Export nach Access: Dezimalen fehlen
Tabelle in externer Datei löschen	externe Bezüge suchen/ersetzen
neue Zeile und externe Bezüge....	Export nach Access