Office: (Office 2013) Exceltabelle importieren und Spalte einfügen

Hallo,

benötige Hilfe beim folgenden Problem. Ich benutze ein Modul, um mehrere Tabellen einer Arbeitsmappe in eine Access Tabelle zu importieren. Das Makro sieht wie folgt aus:
Code:

Jetzt habe ich das Problem, dass ich nur die Spalten imprtiere, die auch in der Tabelle vorhanden Sind. Ich müsste aber beim Import die Access-Tabelle um zwei weitere Spalten (Datum und Bereich ) ergänzen!
Könnte man das in das Makro einbauen.

Könnte mir hier jemand helfen??

Gruß Jojo

:)

 

Code:

 

Hallo Jojo,

kleine Anmerkung am Rande:
in Access wird unter einem "Makro" etwas vollkommen anderes verstanden, als unter einer VBA-Prozedur in einem Modul.

Gruß Ulrich

 

Hallo Eberhardt,

vielen Dank für Deine Lösung, wo muss ich die Zeile einbauen, damit nach dem Import der Tabelle ich eine zusätzliche Spalte in der AccesTabelle habe. Könnte ich die Spalte auch mit einem bestimmten Text füllen, z.B statt dem Datum sollte in jeder Spalte "Jun19" stehen!

Gruß

Jojo

 

Inwieweit verstehst Du Deinen Code selber?

Bezüglich der Einordnung der Codezeile sage ich mal folgendes:
- Felder kann man nur an eine Tabelle einfügen, die bereits besteht.
- Felder mit gleichem Namen kann man nur einmal einfügen.

Ein Feld vom Datentyp Text kann man mit Text füllen, ein Feld vom Datentyp DateTime wird sich da dagegen wehren.

Wer hat denn diese glorreiche Idee kreiert?
Ein Datum ist werthaltiger an Informationen als ein vom Datum abgeleitetes Format. Daher wäre es die bessere Idee, das Datum als solches zu belassen und das Format dann bei Bedarf per Eigenschaft, Anweisung oder Abfrageverknüpfung aus dem Datum zu erzeugen. Daneben steht dann wieder Text vs. Datum.

Allgemein: Es wird wirklich nicht schaden, innerhalb des Themas auch mal den eigenen Logikprozessor anzuwerfen.