<\/p>\n
Manfred Hoffbauer, Düsseldorf<\/b><\/p>\n
Access verfügt über mehrere komfortable Methoden für den Datenaustausch mit Excel-Arbeitsblättern. Wer diese Methoden häufig nutzt, kann seine Arbeit mit dem Assistenten aus diesem Beitrag weiter optimieren: Er speichert die Einstellungen für den Datenaustausch mit Excel in einer Tabelle.<\/b><\/p>\n
Für den gelegentlichen Datenaustausch mit Excel sind die Menübefehle von Access am besten geeignet.<\/p>\n
Sie sind ohne zusätzliche Installationsarbeiten sofort verfügbar.<\/p>\n
Das Exportieren einer Access-Tabelle in ein Excel-Arbeitsblatt erfolgt über den Befehl Datei\/Speichern unter\/Exportieren. <\/p>\n
Zur Anwendung des Befehls gehen Sie wie folgt vor:<\/p>\n
Mit dem Kombinationsfeld Dateityp bestimmen Sie das Format der Datei, in welche die Tabelle exportiert wird(siehe Bild 1). Access zeigt in der Liste mit der Beschriftung Dateityp alle Dateitypen an, in die es exportieren kann.<\/p>\n
![](\"..\/fileadmin\/_temp_\/{1857921F-071C-48EB-9964-E77329D01754}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Mit der Liste Dateityp legen Sie das Format für die Exportdatei fest.<\/span><\/b><\/p>\n Für einen Export in ein Excel-Arbeitsblatt sollten Sie einen der mit Microsoft Excel gekennzeichneten Dateitypen auswählen.<\/p>\n <\/b><\/p>\n Bild 2: Die exportierte Datei sollte sich mit Excel öffnen lassen.<\/span><\/b><\/p>\n Mit der Auswahl eines Dateityps passt Access die Erweiterung der Zieldatei an. Wenn Sie beispielsweise Microsoft Excel als Dateityp auswählen, dann ändert sich die Dateierweiterung auf .xls.<\/p>\n Ein Klick auf die Schaltfläche Exportieren startet den Vorgang. Access generiert die Arbeitsblattdatei und schließt den Dialog. Zur Kontrolle können Sie die generierte Datei mit Excel öffnen (siehe Bild 2).<\/p>\n Der Befehl Datei ( Externe Daten ( Importieren ist das Gegenstück zu Speichern unter.<\/p>\n Mit diesem Befehl importieren Sie die Daten aus einem Excel-Arbeitsblatt in eine Access-Tabelle. Zur Anwendung des Befehls gehen Sie wie folgt vor:<\/p>\n <\/b><\/p>\n Bild 3: Der Import-Assistent für Kalkulationstabellen bietet fast die gleichen Optionen wie die TransferSpreadsheet-Methode.<\/span><\/b><\/p>\n Ein genauer Blick auf die verschiedenen Optionen des Import-Assistenten für Kalkulationstabellen lohnt sich auf jeden Fall. Der Grund: Die meisten Optionen finden Sie später in der TransferSpreadsheet-Methode wieder.<\/p>\n Der Import-Assistent für Kalkulationstabellen zeigt auf der ersten Dialogseite eine Auswahlliste der Tabellenblätter der Excel-Arbeitsblattdatei an. Die Tabellenblätter sind die Register des Arbeitsblatts.<\/p>\n über eine zweite Option können Sie eine Liste der benannten Bereiche des Arbeitsblatts abfragen. Diese Option ist nur dann sinnvoll, wenn Sie die zu importierenden Daten vorher in Excel als benannten Bereich definiert haben.<\/p>\n Auf der zweiten Dialogseite stellen Sie mit dem gleichnamigen Kontrollkästchen ein, ob die erste Zeile der zu importierenden Excel-Datei die Feldnamen enthält. Falls Sie das Kontrollkästchen ankreuzen, verwendet Access die Bezeichnungen in der ersten Zeile als Feldnamen für die Importtabelle.<\/p>\n Auf den nächsten drei Dialogseiten können Sie mehrere Optionen für die Importtabelle festlegen. Der Import kann in eine neue oder eine bestehende Tabelle erfolgen.<\/p>\n Außerdem können Sie für jede Spalte aus der Excel-Tabelle ein Datenfeld in der Access-Tabelle zuweisen, Sie können Datentypen festlegen, Feldnamen ändern und einiges mehr. Diese Optionen stehen in der TransferSpreadsheet-Methode nicht zur Verfügung und werden deshalb an dieser Stelle nicht weiter erläutert.<\/p>\n Die Menübefehle für den Datenaustausch sind sehr komfortabel, erfordern aber auch die Einstellung zahlreicher Optionen. Mit dem Assistenten aus diesem Beitrag können Sie wiederkehrende Aufgaben weiter optimieren. Er bietet Ihnen die Möglichkeit, die verschiedenen Optionen in einer Tabelle zu speichern. Damit können Sie mehrere Import- und Exportvorgänge einmal festlegen und jederzeit wieder abrufen.<\/p>\n Die für Access 97 geeignete Version des Assistenten finden Sie in der Datenbank TransferSpreadsheet97.mdb. Die Version für Access 2000 und XP ist in der Datenbank TransferSpreadsheet2000.mdb enthalten. <\/p>\n Das genaue äquivalent zu den Menübefehlen von Access ist die TransferSpreadsheet-Methode. Sie können diese Methode als TransferArbeitsblatt-Methode in Makros oder als TransferSpreadsheet-Methode in VBA verwenden. Die Programmierung des Assistenten erfolgt mit VBA.<\/p>\n Die Syntax für den Aufruf der TransferSpreadsheet-Methode lautet wie folgt:<\/p>\n Die Beispieldatenbank zu diesem Beitrag enthält ein Formular, mit dem Sie alle Parameter der TransferSpreadsheet-Methode einstellen und in einer Tabelle speichern können.<\/p>\n AAbb. 4: Das Formular des Datentransfer-Assistenten<\/b><\/p>\n Damit können Sie die Einstellungen für mehrere Im- und Exportvorgänge komfortabel verwalten und jederzeit wieder abrufen. Das Formular hat den Namen frmTransfers, die Tabelle heißt tblTransfers.<\/p>\n Für den optionalen Parameter Transfertyp können Sie die folgenden drei Parameter angeben:<\/p>\n Parameter<\/b><\/p>\n<\/td>\n Wert<\/b><\/p>\n<\/td>\n<\/tr>\n acImport<\/p>\n<\/td>\n 0<\/p>\n<\/td>\n<\/tr>\n acExport<\/p>\n<\/td>\n 1<\/p>\n<\/td>\n<\/tr>\n acLink<\/p>\n<\/td>\n 2<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 1: Die zulässigen Werte für Transfertyp<\/b><\/p>\n Damit diese Werte nicht nur als Konstanten in VBA, sondern auch für den Assistenten verfügbar sind, wurde die Tabelle tblTransfertypen angelegt. Sie speichert die Werte aus obiger Tabelle in den Feldern TransfertypID und Transfertyp.<\/p>\n <\/b><\/p>\n Bild 5: Das Datenblatt der Tabelle tblTransfertypen<\/span><\/b><\/p>\n Beim Aufruf der TransferSpreadsheet-Methode steuert der Transfertyp die durchzuführende Aktion. Sie können mit der gleichen Methode Daten importieren oder exportieren.<\/p>\n Im Formular frmTransfers können Sie den Transfertyp über ein Kombinationsfeld auswählen. Das Formular speichert die TransfertypID des ausgewählten Eintrags im gleichnamigen Feld der Tabelle tblTransfers. Das Feld TransfertypID ist ein Nachschlagefeld, das mit der Tabelle tblTransfertypen verknüpft ist.<\/p>\n <\/p>\n Mit dem Parameter Dateiformat legen Sie das Format der Datei fest, aus der Sie Daten importieren oder in die Sie Daten exportieren wollen. Auch diese Parameter sind als Konstanten in VBA definiert. Die Tabelle tblDateiformate enthält die mit Access 97 und Excel verwendbaren Dateiformate.<\/p>\n Der Datentransfer-Assistent speichert das ausgewählte Dateiformat im Feld DateiformatID der Tabelle tblTransfers. Es handelt sich um ein Nachschlagefeld, das mit der DateiformatID aus tblDateiformate verknüpft ist. Wenn Sie einen Listeneintrag aus dem Kombinationsfeld auswählen, dann speichert Access automatisch die entsprechende ID in der Tabelle.<\/p>\n <\/b><\/p>\n Bild 6: Diese Dateiformate stehen ab Access 97 zur Verfügung.<\/span><\/b><\/p>\n Das Dateiformat acSpreadsheetTypeExcel9 ist erst ab Access 2000 verfügbar. Die Konstante hat wie acSpreadsheetTypeExcel97 den Wert 8. Der Grund besteht darin, dass die Dateiformate von Excel 97 und Excel 2000, zumindest soweit es den Datenaustausch mit Access angeht, kompatibel sind. Die Konstante acSpreadsheetTypeExcel97 heißt bei Access 2000 acSpreadsheetTypeExcel8. <\/p>\n Mit dem Parameter Tabellenname geben Sie den Namen einer Access-Tabelle als Zeichenkette an. Beim Importieren ist dies der Name der Tabelle, in die die Daten des Arbeitsblatts importiert werden. Beim Exportieren ist es der Name der Tabelle, deren Daten Sie exportieren wollen.<\/p>\n Access fügt beim Importieren die Daten automatisch an eine bestehende Tabelle an. Dies kann nur dann funktionieren, wenn die Datenfelder und -typen der Tabelle zu den Importdaten passen. Sie können auch den Namen einer neuen Tabelle angeben – Access legt diese Tabelle dann automatisch neu an. Die neue Tabelle erhält die Datenfelder und -typen, die nach einer Analyse der Exceldatei am besten zu passen scheinen.<\/p>\n Quellcode 1<\/b><\/p>\n Falls Sie in eine bestehende Tabelle importieren oder aus einer bestehenden Tabelle exportieren wollen, dann können Sie den Tabellennamen einfach aus dem Kombinationsfeld Tabellenname auswählen.<\/p>\n Die Eigenschaft Herkunftstyp des Kombinationsfeldes hat den Wert Wertliste. Das Füllen der Wertliste erfolgt über den Aufruf der Prozedur TabellenLesen in der Beim öffnen-Ereigniseigenschaft des Formulars. Die Prozedur können Sie Quellcode 1 entnehmen.<\/p>\n Die Schleife durchläuft alle Tabellen der aktuellen Datenbank. Die Namen der Tabellen werden durch Semikola getrennt in einer Zeichenkette aneinandergefügt. Die Systemtabellen der Datenbank und eventuell vorhandene versteckte Tabellen werden dabei übersprungen.<\/p>\n Die Trennung durch Semikola bewirkt, dass die entstehende Zeichenkette direkt der Eigenschaft Datensatzherkunft des Kombinationsfeldes zugewiesen und dort angezeigt werden kann.<\/p>\n Access analysiert beim Import nicht alle Zeilen des Arbeitsblatts. Befinden sich in einem Arbeitsblatt mit 100 Zeilen in einer Spalte nur ganze Zahlen, dann legt Access für diese Spalte ein Feld mit dem Datentyp Zahl – Double an.<\/p>\n Wenn Sie in die Zeilen 50 und 75 eine Zeichenkette wie beispielsweise „x“ eingeben, bleibt es bei dem Double-Feld. Nur bei den Datensätzen, die aus den Zeilen 50 und 75 importiert werden sollen, bleibt das Feld leer. Ursache: Das „x“ lässt sich nicht in einen Double-Wert umwandeln.<\/p>\n Wenn Sie aber in die dritte Zeile ein „x“ eingeben, dann legt Access für diese Spalte ein Feld mit dem Datentyp Text an. Es liegt also nahe, dass Access nur die Datentypen der ersten Zeilen aus dem Excel-Arbeitsblatt analysiert.<\/p>\n Wenn Sie sichergehen wollen, dass Access alle Werte aus einem Excel-Arbeitsblatt vollständig importiert, dann legen Sie zuerst eine Tabelle nur mit Textfeldern an. Nennen Sie die Felder beispielsweise Feld1 bis Feldn, wobei n der Anzahl der zu importierenden Spalten entspricht. Beim Import in Textfelder treten keine Datentypfehler auf. Sie können dann ein VBA-Programm schreiben, das die Werte aus der Puffertabelle in eine echte Datentabelle überträgt, die Datentypen konvertiert und dabei etwaige Fehler meldet. Der Vorteil liegt auf der Hand: Statt nachher langwierig nach fehlenden Werten zu suchen, kann Ihr Importprogramm direkt die fehlerhaften Werte protokollieren. <\/p>\n Mit dem Parameter Dateiname geben Sie den Namen eines Excel-Arbeitsblatts an. Beim Import ist die Angabe des zu importierenden Arbeitsblatts verpflichtend.<\/p>\n Beim Export müssen Sie ebenfalls einen Dateinamen angeben. Sie sollten sich angewöhnen, den Dateinamen immer mit Laufwerk und Pfad einzugeben. Andernfalls legt Access die Datei im „Standardverzeichnis“ an und die Sucherei geht los. Manchmal finden Sie die Datei dann im Ordner Eigene Dateien, oft aber auch im gleichen Verzeichnis wie die Datenbank oder ganz woanders.<\/p>\n Die Eingabe des Dateinamens erfolgt im gleichnamigen Textfeld. Damit das Feld auch lange Pfadangaben verkraftet, wurde es mit einer Länge von 250 Zeichen angelegt. Sie können einen Pfad direkt in das Textfeld eingeben oder Sie kopieren ihn aus der Adresszeile des Windows-Explorers oder Sie klicken auf die Schaltfläche Datei öffnen. Access öffnet dann automatisch einen FileOpen-Dialog für .xls-Dateien.<\/p>\n Bild 7: Der Datei-öffnen-Dialog für Excel-Dateien<\/span><\/b><\/p>\n Die Schaltfläche Datei öffnen hat folgende Ereignisprozedur für das Ereignis Beim Klicken:<\/p>\n Die Funktion GetExcelFile() ist im Modul modOpenFile der Beispieldatenbank definiert. Diese Funktion wurde von der Microsoft Knowledge Base übernommen und so modifiziert, dass sie .xls-Dateien filtert. Der Rückgabewert der Funktion ist der komplette Pfad inklusive Dateiname einer ausgewählten Datei oder – wenn die Dateiauswahl abgebrochen wurde – eine leere Zeichenkette. Falls der Anwender eine Datei ausgewählt hat, wird der Pfad mit Dateiname im Steuerelement Dateiname gespeichert.<\/p>\n Für den Parameter BesitztFeldnamen können Sie True oder False einsetzen. Falls Sie sich für True entscheiden, dann interpretiert Access beim Import die erste Zeile des Excel-Arbeitsblatts als Feldname. Access verwendet die Feldnamen für die Neuanlage einer Tabelle oder für die Zuordnung der Spalten zu einer bestehenden Tabelle.<\/p>\n Beim Export steuern Sie mit BesitztFeldnamen, ob Access die Feldnamen aus der Access-Tabelle in die erste Zeile des Arbeitsblattes schreibt.<\/p>\n Im Datentransfer-Assistent steuern Sie den Parameter BesitztFeldnamen über das gleichnamige Kontrollkästchen. Access speichert den Wert in dem Ja\/Nein-Feld BesitztFeldnamen der Tabelle tblTransfers.<\/p>\n Mit Bereich können Sie einen Bereich aus dem Excel-Arbeitsblatt benennen. Um beispielsweise nur die Zellen A1 bis D4 aus einem Arbeitsblatt zu importieren, geben Sie den folgenden Bereich an:<\/p>\n Wenn Sie den gleichen Bereich aus der Tabelle 5Artikel des Arbeitsblatts importieren wollen, dann geben Sie diesen Bereich an:<\/p>\n Beachten Sie, dass der Name des Registers 5Artikel in Apostroph gesetzt ist.<\/p>\n Andernfalls würde der Wert als Zahlenwert interpretiert, was einen Fehler erzeugt.<\/p>\n Bereichsangaben müssen generell in einer Excel-konformen Syntax angegeben werden. Falls Sie keinen Bereich angeben, importiert Access alle Daten aus der Tabelle mit dem gleichen Namen wie das Arbeitsblatt (ohne die Erweiterung .xls, versteht sich). Beim Import des Arbeitsblatts Artikel.xls sucht Access folglich nach dem Arbeitsblatt Artikel.<\/p>\n Der Datentransfer-Assistent enthält einige zusätzliche Kontrollkästchen, die Ihnen das Leben leichter machen.<\/p>\n Das Kontrollkästchen Access-Tabelle leeren ist nur aktiviert, wenn Sie den Transfertyp Import ausgewählt haben. Die Auswertung des Kontrollkästchens erfolgt bei einem Klick auf die Schaltfläche btnVorgangStarten. Der relevante VBA-Code lautet wie folgt:<\/p>\n Wenn das Kästchen angekreuzt ist, dann löscht der Assistent zuerst alle Datensätze aus der Zieltabelle. Wenn Sie das Kästchen nicht ankreuzen, dann fügt die TransferSpreadsheet-Methode die importierten Datensätze der Zieltabelle hinzu.<\/p>\n Wenn Sie nicht sicher sind, ob die Datenfelder der Importtabelle zu den Spalten des Excel-Arbeitsblatts passen, dann sollten Sie das Kästchen Access-Tabelle löschen ankreuzen. Der Assistent löscht dann vor dem Import das Tabellenobjekt. Der relevante Programmcode aus der Ereignisprozedur btnVorgangStarten_Click lautet wie folgt:<\/p>\n Die TransferSpreadsheet-Methode legt die Importtabelle automatisch neu an. Der Vorteil besteht darin, dass die Methode selbstständig alle Datenfelder gemäß der durchgeführten Analyse des Excel-Arbeitsblatts neu anlegen kann.<\/p>\n Das Kästchen Datenblatt öffnen ist sowohl bei Import- als auch bei Exportvorgängen hilfreich. In angekreuztem Zustand veranlasst es den Datentransfer-Assistenten, das Datenblatt der Access-Tabelle zu öffnen. Beim Import enthält die Tabelle die gerade importierten Daten, beim Export sind es die soeben exportierten Daten. Dank der DoCmd-Methode ist der erforderliche Programmcode schön kurz:<\/p>\n Das Gegenstück zu Datenblatt öffnen ist das Kontrollkästchen Arbeitsblatt in Excel öffnen. Wenn Sie dieses Kästchen ankreuzen, dann öffnet der Datentransfer-Assistent automatisch Excel mit dem im- oder exportierten Arbeitsblatt. Der Programmcode lautet wie folgt:<\/p>\n Beim öffnen des Excel-Arbeitsblatts müssen Sie den Pfad und Dateinamen von Excel angeben. Der Programmcode enthält die Einstellungen für eine Standard-Installation von Office. Wenn Sie bei der Installation von Office ein anderes Verzeichnis verwendet haben, dann müssen Sie den Pfad entsprechend anpassen. <\/p>\n Quellcode 2<\/b><\/p>\n Ein Klick auf die Schaltfläche btnVorgangStarten startet den Datentransfer. Je nachdem, welchen Transfertyp Sie ausgewählt haben, handelt es sich dabei um einen Im- oder Exportvorgang. Ein Klick auf die Schaltfläche löst die Ereignisprozedur btnVorgangStarten_Click aus. Die meisten Teile der Prozedur wurden bereits erläutert. Jetzt fehlen noch die Zeilen aus Quellcode 2.<\/p>\n Bei Auswahl des Transfertyps Import prüft das Programm, ob der Dateiname gültig ist. Andernfalls zeigt es eine Message-Box mit einer Fehlermeldung an. Falls alles in Ordnung ist, wird mit DoCmd.TransferSpreadsheet der Im- oder Export gestartet.<\/p>\n Der Aufruf der Methode erfolgt ohne Fehlerbehandlung. Falls irgendeine Einstellung nicht richtig ist, erscheint der Fehlerdialog von Access. Das gibt Ihnen die Möglichkeit, mit der Schaltfläche Debug direkt in den Programmcode einzusteigen und die Fehlerursache zu analysieren.<\/p>\n Eine Besonderheit des Datentransfer-Assistenten ist die Prozedur SteuerelementeEinAusblenden. Diese Prozedur erledigt folgende Aufgaben:<\/p>\n Das Formular frmTransfers enthält vier Schaltflächen mit Symbolen, zwei mit 3D-Pfeilen nach oben und zwei mit 3D-Pfeilen nach unten. Zur besseren Visualisierung des Transfertyps werden beim Import die Pfeile nach oben und beim Export die Pfeile nach unten eingeblendet. Das Listing der Prozedur SteuerelementeEinAusblenden lautet wie in Quellcode 3.<\/p>\n Damit die Steuerelemente auch stets den aktuellen Einstellungen entsprechen, wird die Prozedur SteuerelementeEinAusblenden von zwei Stellen aufgerufen:<\/p>\n Der Datentransfer-Assistent bietet zahlreiche Erweiterungsmöglichkeiten: Sehr schön wäre eine Vorschau der Importdaten, ähnlich wie im Importassistenten für Kalkulationstabellen.<\/p>\n Sie könnten beispielsweise die verschiedenen Fehlerquellen im Programmcode abfangen und entsprechende Meldungen anzeigen. Einige Beispiele Wenn beispielsweise der Import aus einer gesperrten Datei erfolgt, könnte ein entsprechender Hinweis angezeigt werden.<\/p>\n Quellcode 3<\/b><\/p>\n Der Import ließe sich um eine Logik für die Feldzuordnung erweitern. So könnten Sie versuchen, die Felder aus dem Arbeitblatt den Feldern in der Zieltabelle zuzuordnen.<\/p>\n Last but not least wäre es eine Möglichkeit, die im Beitrag aufgeführte Erweiterung umzusetzen und den Export zuerst in einer Puffertabelle mit Textfeldern durchzuführen. In einem zweiten Schritt können die Daten aus der Puffertabelle dann in eine echte Datentabelle übertragen werden.<\/p>\n","protected":false},"excerpt":{"rendered":" Access verfügt über mehrere komfortable Methoden für den Datenaustausch mit Excel-Arbeitsblättern. Wer diese Methoden häufig nutzt, kann seine Arbeit mit dem Assistenten aus diesem Beitrag weiter optimieren: Er speichert die Einstellungen für den Datenaustausch mit Excel in einer Tabelle.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[662003,66062003,44000032,44000034,44000026],"tags":[],"class_list":["post-55000136","post","type-post","status-publish","format-standard","hentry","category-662003","category-66062003","category-Excel","category-ImportExport","category-Interaktiv"],"yoast_head":"\n![](\"..\/fileadmin\/_temp_\/{1857921F-071C-48EB-9964-E77329D01754}\/pic002.png\")
<\/p>\nExterne Daten importieren<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{1857921F-071C-48EB-9964-E77329D01754}\/pic003.png\")
<\/p>\nTabellenblätter und benannteBereiche<\/h2>\n
Erste Zeile enthältSpaltenüberschriften<\/h2>\n
Optionen für die Importtabelle<\/h2>\n
Hinweis<\/h3>\n
Die Parameter der TransferSpreadsheet-Methode<\/h2>\n
DoCmd.TransferSpreadsheet [Transfertyp][, Dateiformat], Tabellenname, Dateiname[, Besitzt Feldnamen][, Bereich]<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{1857921F-071C-48EB-9964-E77329D01754}\/pic004.png\")
<\/p>\nTransfertyp<\/h2>\n
\n
\n \n \n \n \n \n \n \n \n \n \n \n ![](\"..\/fileadmin\/_temp_\/{1857921F-071C-48EB-9964-E77329D01754}\/pic005.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{1857921F-071C-48EB-9964-E77329D01754}\/pic006.png\")
<\/p>\nDateiformat<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{1857921F-071C-48EB-9964-E77329D01754}\/pic007.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{1857921F-071C-48EB-9964-E77329D01754}\/pic008.png\")
<\/p>\nHinweis<\/h3>\n
Tabellenname<\/h2>\n
Private Sub TabellenLesen()\r\n Dim tdf As TableDef\r\n Dim sSource As String\r\n For Each tdf In CurrentDb.TableDefs\r\n If ((tdf.Attributes And dbSystemObject) Or _\r\n (tdf.Attributes And dbHiddenObject)) = 0 _ Then\r\n sSource = sSource & tdf.Name & \";\"\r\n End If\r\n Next\r\n If Len(sSource) > 0 Then\r\n sSource = Left(sSource, Len(sSource) - 1)\r\n End If\r\n Me.Tabellenname.RowSource = sSource\r\nEnd Sub<\/pre>\n
Fast automatische Erkennung vonDatentypen<\/h2>\n
Praxis-Tipp<\/h3>\n
Dateiname<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{1857921F-071C-48EB-9964-E77329D01754}\/pic009.png\")
<\/p>\nPrivate Sub btnGetExcelFile_Click()\r\n Dim sDatei As String\r\n sDatei = GetExcelFile(Me.Form)\r\n If Not sDatei = \"\" Then\r\n Me.Dateiname = sDatei\r\n End If\r\nEnd Sub<\/pre>\n
Besitzt Feldnamen<\/h2>\n
Bereich<\/h2>\n
A1:D4<\/pre>\n
''5Artikel''!A1:D4<\/pre>\n
Access-Tabelle leeren<\/h2>\n
If Me.ZieltabelleLeeren Then\r\n On Error Resume Next\r\n CurrentDb.Execute \"DELETE FROM \" & _ Me.Tabellenname\r\n On Error GoTo 0\r\nEnd If<\/pre>\n
Access-Tabelle löschen<\/h2>\n
If Me.ZielobjektLöschen Then\r\n On Error Resume Next\r\n DoCmd.DeleteObject acTable, _ Me.Tabellenname\r\n On Error GoTo 0\r\nEnd If<\/pre>\n
Datenblatt öffnen<\/h2>\n
If Me.Datenblattöffnen Then\r\n DoCmd.OpenTable Me.Tabellenname\r\nEnd If<\/pre>\n
Arbeitsblatt in Excel öffnen<\/h2>\n
If Me.ExcelStarten Then\r\n Dim sApp As String\r\n sApp = \"C:\\Programme\\Microsoft \" _ \"Office\\Office\\Excel.exe \" _ & Chr(34) & Me.Dateiname & _ Chr(34)\r\n Call Shell(sApp, vbNormalFocus)\r\nEnd If<\/pre>\n
Hinweis<\/h3>\n
If Me.TransfertypID = acImport And Dir(Nz(Me.Dateiname, \"\")) = \"\" Then\r\n MsgBox (\"Fehlerhafter Dateiname\")\r\nElse\r\n DoCmd.TransferSpreadsheet Me.TransfertypID, Me.DateiformatID, Me.Tabellenname, _\r\n Nz(Me.Dateiname, \"\"), Me.BesitztFeldnamen, Nz(Me.Bereich, \"\")\r\nEnd If<\/pre>\n
Ausblick<\/h2>\n
Private Sub SteuerelementeEinAusblenden()\r\n Dim bVisibleOben As Boolean\r\n Dim bVisibleUnten As Boolean\r\n If IsNull(Me.TransferID) Then\r\n Me.ZielobjektLöschen.Enabled = False\r\n Me.btnVorgangStarten.Caption = \"Transfertyp wählen\"\r\n Me.btnVorgangStarten.Enabled = False\r\n Else\r\n Me.btnVorgangStarten.Enabled = True\r\n If Me.TransfertypID = acImport Then\r\n bVisibleOben = True\r\n bVisibleUnten = False\r\n Me.btnVorgangStarten.Caption = \"Import\"\r\n Me.ZielobjektLöschen.Enabled = True\r\n Me.ZieltabelleLeeren.Enabled = True\r\n ElseIf Me.TransfertypID = acExport Then\r\n bVisibleOben = False\r\n bVisibleUnten = True\r\n Me.btnVorgangStarten.Caption = \"Export\"\r\n Me.ZielobjektLöschen.Enabled = False\r\n Me.ZielobjektLöschen = False\r\n Me.ZieltabelleLeeren.Enabled = False\r\n Me.ZieltabelleLeeren = False\r\n Else\r\n bVisibleOben = False\r\n bVisibleUnten = False\r\n Me.btnVorgangStarten.Enabled = True\r\n Me.btnVorgangStarten.Caption = _ \"Bitte wählen Sie einen anderen Transfertyp\"\r\n MsgBox (\"Das Verknüpfen von Tabellen ist nicht implementiert.\")\r\n End If\r\n Me.btnOben1.Visible = bVisibleOben\r\n Me.btnOben2.Visible = bVisibleOben\r\n Me.btnUnten1.Visible = bVisibleUnten\r\n Me.btnUnten2.Visible = bVisibleUnten\r\n End If\r\nEnd Sub<\/pre>\n