Excel-Makro von Access aus starten

Nachfolgend eine Funktion mit der sich ein beliebiges Excel-Makro von Access aus starten lässt. Damit die Funktion fehlerfrei ausgeführt wird, muss ein Verweis auf die Excel-Bibliothek aktiviert sein.

Um den Verweis zu Excel-Bibliothek zu aktivieren gehen Sie folgendermaßen vor:

• öffnen Sie in Ihrer Access-Datenbank ein beliebiges Modul
• über das Menü [Extras][Verweise] können Sie den Dialog zum Einstellen der Verweise öffnen
• suchen Sie in der Liste den Verweis auf die Bibliothek "Microsoft Excel XX.X Object Libary" und aktivieren diesen
• schließen Sie den Dialog

Code:

Function RunExcelMakro(XlsDat As String, XlsMak As String)   '-------------------------------------------------------- ' Diese Funktion startet das mitgegebene Makro der ' mitgegebenen Excel-Datei. ' Nach Ausführung des Makros wird die Exceldaten wieder ' geschlossen. '--------------------------------------------------------   On Error GoTo fehler   Dim XlsObj As Excel.Application Dim XlsWb As Excel.Workbook   Set XlsObj = New Excel.Application Set XlsWb = XlsObj.Workbooks.Open(XlsDat)   XlsObj.Visible = True XlsObj.Run XlsMak   XlsWb.Close saveChanges:=True Set XlsWb = Nothing XlsObj.Quit Set XlsObj = Nothing   ende: Exit Function   fehler: MsgBox Err.Description, 16, _ "http://www.access-home.de" Resume ende   End Function

Viele weitere Tipps & Tricks aus der Praxis für die Praxis finden Sie auf unserer AP-Access-Tools Vol.1

Auf der AP-Access-Tools Vol.1 finden Sie weitere 320 Tipps & Tricks sowie 250 Access-Beispiel/Anwendungen mit offenen Quellcode! Die Access-Tools-CD mit über 400 MByte Inhalt - für Access- und VB-Entwickler 256 Access-Beispiele mit offenem Code 45 Add-Ins und ActiveX-Komponenten (Freeware) 16 VB-Projekt inkl. Source 321 Tipps & Tricks für Access und VB Plus 11 Entwicklerversionen (9 davon mit Source!) Plus 3 Vollversionen und Plus riesiger Datenpool Holen Sie sich jetzt Ihre AP-Access-Tools-CD zum Superpreis von nur EUR 24,95!