Office: (Office 2010) Excel-Datei in Access importieren

Hallo zusammen,

ich möchte gerne eine Access-Datenbank erstellen, die mir Daten zu Aufträgen auswertet.

Die Rohdaten erhalte ich täglich als csv-Datei. Diese Daten bearbeite ich (derzeit) zunächst in Excel, um sie dann nach Access zu importieren.

Wo ich mal hin will:[LIST
[*]Automatischer Import der Excel-Datei über eine Button-Funktion
[*]Die Anpassungen, die ich derzeit noch manuell in Excel mache, sollen von Access über VBA während des Imports durchgeführt werden.

Folgende Daten passe ich derzeit noch in Excel an:

• Spaltennamen, damit diese mit den Access-Spalten übereinstimmen
• Umwandeln von Datumsfeldern (Werte werden als Text in der Form 20150921 übergeben)
• Ändern von Feldwerten (Text wie Auftragsstatus wird in einen Zahl umgewandelt)

Den letzten Punkt mache ich, da ich in der Access-Tabelle diverse Felder mit anderen Tabelle verknüpft habe. Aber hier ist schon mein erster Problem. Wenn ich versuche, die Excel-Daten manuell in Access zu importieren, gibt mir Access an, dass die Daten nicht importiert werden können.
Derzeit habe ich folgende Fragen:

• Ist es möglich, die Werte aus verknüpften Feldern zu importieren oder kann ich nur Textfelder importieren?
• Ist es möglich, die original Spaltennamen der Excel-Tabelle beim importieren über VBA den Spaltennamen der Access-Tabelle zuzuordnen, so dass ich dies nicht mehr manuell vor dem import in Excel durchführen muss?
  
  Vielen Dank schon mal für Hilfe!
  
  Grüße
  milo
  
  :)

 

Hallo,

erstelle eine Importspezi für die csv-Datei und importiere sie eine temporäre Tabelle. Die temporären Daten übergibst du dann in die Zieltabelle und dabei kannst du die benötigten Manipulationen durchführen.

 

Hallo el_gomero,

sorry für den späten Dank für Deinen Denkanstoß!

Ich habe mir ein Import-Skript erstellt, habe aber noch Probleme mit der Importspezifikation für die csv-Datei.

Ich habe mal Beispieldaten angefügt. So sieht die csv-Datei aus, die ich bekomme und importieren möchte. Dabei bringen mich die "" im Moment zur weißglut! *mad.gif*

Wenn ich im Textimport-Assistent bei Textbegrenzungszeichen "kein" auswähle, erstellt er mir zwar die Spalten, aber dann habe ich plötzlich doppelte " (Beispiel: " "20150201" "), und zu Beginn des Datensatzen wird noch ein " gesetzt, ebenso wie am Ende des Datensatzes.
(s. Import1.PNG)

Wähle ich als Textbegrenzungszeichen " aus, erstellt er mir nicht die Spalten.
(s. Import2.PNG)

Entferne ich vorher in Excel die " aus den Datensätzen, sind zwar die doppelten " weg, aber die am Anfang und am Ende des Datensatzes wird nach wie vor " gesetzt.

Was mache ich falsch?

Vielen Dank und Grüße
michael

 

Hallo,

nachdem ich in Excel die " entfernt habe, kann ich die Datei problemlos importieren. Auf meinem System ist allerdings das Komma das Dezimaltrennzeichen, das musste in der Spezi umgestellt werden.

Nachtrag: bitte den Ersteller die Datei gleich ohne Anführungszeichen zu generieren ( ich weiss, ist oft schwierig, aber das beste *wink.gif* )

 

Hallo el_gomero,

das hatte ich auch schon probiert, aber dann setzt er mir in der csv immer den kompletten Datensatz in ":
import.PNG

Grüße
milo

 

bei mir nicht - hast du denn auch wieder als csv gespeichert? Und wie hast du die Entfernung der " durchgeführt?

 

ja, ist als csv abgespeichert.

Entfernt habe ich die über "Suchen und Ersetzen".
Suchen nach: "
Ersetzen durch: (leer gelassen)

 

hab ich genauso gemacht - bei mir sind keine Hochkommata mehr enthalten.

 

komisch, dann muss ich mir was überlegen.
Aber vielen Dank schon mal.

 

Hallo,

das Problem mit den Hochkommata habe ich leider noch nicht gelöst. Ich habe mir eine neue csv-Testdatei erstellt, mit der funktioniert es jedenfalls. Vielleicht sind die bisherigen Dateien "defekt".

Aber jetzt bin ich bei dem nächsten Schritt mit meinem Latein am Ende. Das Importskript funktioniert schon mal soweit, dass ich die csv-Datei in die temporäre Tabelle importiert bekomme und bei jedem neuen Import einer csv-Datei die temporäre Tabelle zunächst gelöscht wird.

Allerdings habe ich in der csv-Datei Werte, die ich anpassen muss:
Wert in csv | umwandeln in
20151001 | 01.10.2015

Über ein Formular bekomme ich es hin (wenn auch vermutlich zu kompliziert), dass er mir in die Tabelle das Datum wegschreibt:

Code:

Aber das ist mir zu aufwändig. Ich hätte es gerne - etweder in der temporären Tabelle, oder wenn ich die Daten über vba aus der temporären in die richtige Tabelle schreibe - automatisiert gemacht.

Mir gehen leider die Ideen aus und meine VBA-Kenntnisse reichen dafür bei weitem nicht aus.

Kann mir jemand sagen, wie es in VBA aussehen müsste?

Vielen Dank schon mal und Grüße
milo

 

ok, ich glaube ich habe jetzt doch was gefunden, zwar nicht über VBA, sondern über ein berechnetes Feld in der Tabelle, aber es funktioniert jedenfalls. Ich teste damit erst mal weiter.

 

Code:

 

Hi Eberhard,

vielen Dank für den Tipp. Allerdings bekomme ich das im Moment noch nicht in VBA eingebunden. Da ich etwas Zeitdruck habe, verschiebe ich das auf später, werde mich aber definitiv damit auseinander setzten, weil es charmanter ist, als meine Lösung mit den berechnenden Feldern in der Tabelle. *wink.gif*

Allerdings hänge ich schon an dem nächsten Problem. Was ich bisher dazu gelesen habe, hat mir nicht viel weiter geholfen, bzw. habe ich nicht wirklich verstanden.

Ich importiere die tägliche csv zunächst in eine temporäre Tabelle, deren Inhalb ich zuvor lösche. Hier passe ich einige Werte an (z. B. Datumsformat, verknüpfte Felder). Anschließend sollend die Datensätze in die Datentabelle kopiert werden. Soweit funktioniert es auch auch.

Mein Problem: Die Datensätze können doppelt vorkommen. In der Datentabelle will ich aber immer nur den zuletzt importierten Datensatz haben, also müsste ich vor dem kopieren in die Datentabelle das Duplikat löschen.

In der finalen Datentabelle gibt es unter anderen das Feld "ID" (AutoWert, Primärschlüssel, ohne Duplikate) und das Feld "OrderNumber" (indiziert, mit Duplikate). Anhand der OrderNumber soll ein evtl. betehender Datensatz gelöscht werden und nur der aktuell importierte Datensatz (der ja die höhere ID hat) betsehen bleiben.

Mit meinem bisherigen Code dazu wird zwar erkannt, dass es doppelte Datensätz bereits gibt, aber die Datensätze bleiben in der Datentabelle bestehen und ich habe am Ende doch mehrfache Datensätze in der Tabelle enthalten.

Hier der Code:

Code:

Kann mir jemand helfen?

Vielen Dank schon mal und Grüße
milo

 

Beim Schleifendrehen wird mir so schnell schwindelig ...

Ich halte es lieber mit Abfragen. Die sind datenbankgemäßer, übersichtlicher und schneller sowieso. Schau mal, ob Du hier etwas entnehmen kannst:
Grundlagen - SQL ist leicht (4) - Aktualisierung einer Tabelle

 

Hi Eberhard,

vielen Dank für den Link zu Deinem Post.

Da ich in der Zieltabelle keine Daten für immer löschen will, sondern idealerweise nur aktualisieren möchte (wenn sich z. B. der Auftragsstatus ändert), benötige ich - sofern ich es richtig verstehe - Schritt 1 (a, b) nicht.

Durch die Schritte 2 & 3 habe ich mich durchgearbeitet und an meine Daten angepasst. So wie es bisher aussieht, funktioniert es. Abschließend werde ich es morgen dann mit den echten Daten testen. *wink.gif*

Könntest Du mir noch einen Tipp wg. dem Datumsformat geben? Ich habe versucht, eine Abfrage zu erstellen, die mir das Datum in korrekten Format in die Quelltabelle schreibt, bevor ich diese in die Zieltabelle kopiere, aber das hat nicht funktioniert. Das Feld, in den das Datum geschrieben werden sollte bleibt leer - aber vielleicht ist es schon zu spät und ich habe den Wald vor lauter Bäumen nicht mehr gesehen.

Eine generelle Frage habe ich aber noch:
Wenn ich Dich richtig verstehe, ist es immer besser, Abfragen zu erstellen und diese über den VBA-Code lediglich anzusteuern, anstatt den SQL-Code in den VBA-Code zu integrieren - richtig?

Vielen Dank nochmal und Grüße
milo