{"id":55000410,"date":"2018-06-01T00:00:00","date_gmt":"2020-01-24T16:00:09","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=410"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Datenaustausch_mit_Excel_per_VBA","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/Datenaustausch_mit_Excel_per_VBA.html","title":{"rendered":"Datenaustausch mit Excel per VBA"},"content":{"rendered":"

Die Methoden für das Importieren, Exportieren oder Verknüpfen von Daten zwischen Access und Excel haben Sie in den Artikeln „Access und Excel: Import und Export“ und „Access und Excel: Verknüpfungen“ bereits vor einiger Zeit kennengelernt. Hier knüpfen wir nun an und zeigen Ihnen, wie Sie per VBA die in diesen Artikeln gezeigten Methoden nutzen können.<\/p>\n

Beispieldatenbank<\/h2>\n

Die Beispiele dieses Artikels finden Sie in der Datenbank 1803_ExceldatenPerVBA.accdb<\/b>.<\/p>\n

Assistenten per VBA<\/h2>\n

Bevor wir die volle Automatisierung betrachten, schauen wir uns an, wie Sie die Assistenten, die Sie in den oben genannten Artikeln kennengelernt haben, per VBA starten. Wozu das Nun: Gegebenenfalls möchten Sie dem Benutzer die Möglichkeit geben, in einer von Ihnen gefertigten Anwendung auf die Daten aus einer Excel-Anwendung zuzugreifen und ihm dabei größtmögliche Freiheit lassen – und dabei dennoch die üblichen Elemente der Benutzeroberfläche dafür bereit zu stellen, also die eingebauten Ribbon-Befehle. Eine professionelle Access-Anwendung sollte nämlich ein von Ihnen erstelltes und auf die Anwendung zugeschnittenes Ribbon enthalten, mit dem Benutzer nur die für diese Anwendung vorgesehenen Funktionen starten darf.<\/p>\n

Die Befehle, die üblicherweise über die Benutzeroberfläche gestartet werden, finden Sie unter VBA meist als Aufrufe der Methode RunCommand <\/b>mit verschiedenen Parametern. Dazu geben Sie beispielsweise die Anweisung RunCommand ins Direktfenster ein und tippen dann die Anfangsbuchstaben der gewünschten Aktion, in Bild 1 zum Beispiel acCmdI…<\/b> – und erhalten dann alle Methoden, die mit dem Import von Daten zu tun haben. Uns interessiert in diesem Fall beispielsweise die Methode mit dem Parameter acCmdImportAttachExcel<\/b>:<\/p>\n

\"Auswahl<\/a><\/p>\n

Bild 1: Auswahl der Befehle zum Importieren aus verschiedenen Quellen<\/p>\n

RunCommand acCmdImportAttachExcel<\/pre>\n
Dieser zeigt nach dem Aufruf etwa den Dialog aus Bild 2 an, mit dem Sie Daten importieren oder verknüpfen können.<\/p>\n
\"Assistent<\/a><\/p>\n
Bild 2: Assistent zum Importieren oder Verknüpfen von Excel-Daten<\/p>\n
Wenn Sie hingegen Daten exportieren wollen, rufen Sie diesen Befehl mit dem Parameter acCmdExport-Excel <\/b>auf:<\/p>\n
RunCommand acCmdExportExcel<\/pre>\n
Wenn Sie diesen Befehl aufrufen, kann es allerdings sein, dass Sie die Meldung aus Bild 3 erhalten. Warum das Das geschieht doch nie, wenn Sie den entsprechenden Ribbon-Befehl aufrufen<\/p>\n
\"Fehlerhafter<\/a><\/p>\n
Bild 3: Fehlerhafter Aufruf des Export-Assistenten<\/p>\n
Die Lösung liegt nahe: Werfen Sie beim Auftreten dieses Fehlers einen Blick auf das Ribbon-Tab Externe Daten<\/b>, finden Sie in der Gruppe Exportieren <\/b>lediglich deaktivierte Einträge vor (siehe Bild 4). In diesem Fall ist schlicht und einfach gerade kein Element im Navigationsbereich markiert, dass Sie exportieren könnten. Zur Sicherheit können Sie die Fehlerbehandlung in einer Prozedur zum Aufruf dieser Methode durch eine benutzerdefinierte Fehlerbehandlung ersetzen, die prüft, ob das öffnen des Assistenten einen Fehler auslöst und gegebenenfalls eine entsprechende Meldung anzeigen:<\/p>\n
\"Die<\/a><\/p>\n
Bild 4: Die Export-Befehle sind deaktiviert.<\/p>\n
Public Sub <\/span>ExcelExportieren()\r\n    On Error Resume Next<\/span>\r\n    RunCommand acCmdExportExcel\r\n    If <\/span>Err.Number = 2046 Then<\/span>\r\n        MsgBox<\/span> \"Sie müssen eine Tabelle oder Abfrage                    markieren, bevor Sie den Befehl zum                                   Exportieren aufrufen.\"\r\n    End If<\/span>\r\n    On Error GoTo<\/span> 0\r\nEnd Sub<\/span><\/pre>\n
Export mit Parametern<\/h2>\n
Nun wollen Sie dem Benutzer aber vermutlich möglichst viel Arbeit abnehmen und mögliche Fehlerquellen bei der Verwendung von Assistenten abnehmen. Daher gibt es noch tiefergehende Möglichkeiten, Daten zu importieren, verknüpfen oder exportieren. Diese bietet die Methode TransferSpreadsheet <\/b>des DoCmd<\/b>-Objekts an. Neben der Anweisung RunCommand <\/b>ist das DoCmd<\/b>-Objekt mit seinen verschiedenen Methoden die zweite Möglichkeit, die Befehle, die Sie sonst über die Benutzeroberfläche starten, auszuführen. TransferSpreadsheet ist dabei nur eine von verschiedenen Möglichkeiten, Daten mit anderen Datenquellen auszutauschen (siehe Bild 5).<\/p>\n
\"Die<\/a><\/p>\n
Bild 5: Die Transfer…-Methoden des DoCmd-Objekts<\/p>\n
Für den Austausch mit tabellenartig aufgebauten Dateien wie es etwa bei den Excel-Tabellen der Fall ist, nutzen wir die Methode TransferSpreadsheet<\/b>. Diese bietet, wie wir Bild 6 entnehmen können, eine Reihe von Parametern, die wir im Folgenden erläutern:<\/p>\n
\"Die<\/a><\/p>\n
Bild 6: Die Parameterliste der TransferSpreadsheet-Methode<\/p>\n