Office: (Office 2003) Daten aus txt. file in Tabelle einlesen

So Pseudomässig , da ich ja noch keine Daten einlesen konnte habe ich die Datenbank als Versuch mal mit wenigen fiktiven Werten nach dem Konzept aufgebaut.
Sieht aber ziemlich genau gleich aus wie was auf dem Konzept zu sehen ist.
Mit dieser Datenbank versuche ich mich im Allgemeinen in Access einzuarbeiten --> Erstellen von geeigneten Abfragen und Formularen.

Nochmals, auch für dich Martin: ich bin noch ein Noob in Sachen Access/VBA und suche hier etwas Hilfe und Tipps während meinen Vorabreiten für die Diplomarbeit. Ich habe Access bisher nur für einfache Auswertungen bzw. Abfragen verwendet.
Also nicht gleich nervös werden, wenn ich etwas länger habe als andere...*wink.gif*

@Eberhard: Vielen Dank für deine Alternativlösung. Ich werde diese studieren und versuchen den Code zu verstehen. Ich denke etwas in diese Richtung könnte mir auch helfen.

 

Hi,

gut, bleiben wir bei ebs' Entwurf.

Die Endtabellen, in die die Daten gelangen sollen, müssen halt existieren, sonst ist der Import sinnlos. Mit jeder Zeile, die du in der Datei bekommst, musst du irgendwohin.

Und man müsste sich Gedanken machen, wie man anhand der Werte die Zieltabelle erkennt. Offenbar können das ja je nach Aufbau der Textdatei-Zeile andere Tabellen sein.

 

Hier kannst Du Dich an Code Aufgabe 3 (Acc2007 - Tabelle update insert und neue anlegen) orientieren (-> WHERE-Klausel).

Ergo: Die Anfügeabfrage(n), die ich nur angedeutet habe, werden etwas umfangreicher.

 

Zur Vollständigkeit:

Ja. Wenn Du die gesamte Prozedur stehen hast (inkl. der notwendigen Tabellen für den Import), kann sie über einen Timer (Formular) oder über den Windows-Taskplaner regelmäßig gestartet werden.

Der oben gezeigte Ansatz nimmt alle zum Zeitpunkt vorhandenen Dateien - vielleicht genügt auch ein manueller Buttonklick. Berücksichtigte Dateien sollten dann gelöscht (Kill) oder verschoben werden (Name).

 

ich habe nun in labview dafür gesorgt, das sin dent xt-files nur noch werte avorhanden sind, welche ich benötige und auf einer zeile mit semikolon voneinander getrennt sind.
so funktioniert das einlesen per vba tiptop ohne grosse programmiererei - jedoch schaff ich's nur mit einer txt datei.

gibt es eine möglichkeit (trick) alle txt-files, welche in einem ordner vorhanden sind, einlesen zu lassen, also hier:

DoCmd.TransferText acImportDelim, , "T_Test", "C:\148370.txt"

anstatt 148370.txt irgendwie *.txt eingeben zu können?

oder muss dies anders gelöst werden?

 

Das hast Du doch schon in #28 stehen
Code:

Du musst nur die roten Anweisungen durch die TransferText-Anweisung ersetzen (und die Pfade anpassen).

 

oops, sorry. habe ich übersehen.

Danke!

 

hallo

ich muss nochmals nachhaken.
ich habe nun folgenden Code:

Code:

ich bekomme so den Laufzeitfehler 52 (Dateiname- oder nummer falsch), wenn der erste Eintrag abgerufen werden soll. Die Angaben des Pfades, sowie des Textfiles stimmen jedoch.

Noch kurz eine weitere Frage:
Wie kann ich die Bedingung > "" deuten?

 

Hi,

Vermutlich fehlt da ein Backslash...
Und wenn du mehrere Dateien verarbeiten willst, sollte da auch eine Dateimaske (z.B. *.txt) statt einer konkretetn Datei (146296.txt) stehen. Ohne Maske kriegst du nur eine Datei, und das auch nur, wenn eine solche Datei da ist.

strFile > "" heißt: strFile ist mit einem Stringwert gefüllt, d.h. es ist kein Leerstring, d.h. es gab einen "Dateitreffer".

 

Das möchte ich arg bezweifeln. Gib Dir mal das Ergebnis aus
Code:

 

danke für eure hilfe.

die probleme mit dem pfad habe ich lösen können *wink.gif*

das mit dem *.txt habe ich eben nicht begriffen, dass man das so definieren kann/darf.
jedoch habe ich nun das problem, dass er mir in der TransferText-Aktion genau wegen dieser Angabe (*.txt) den Pfad nicht findet.
Hmmm, hier wird laut Buch ein vollständiger Name gebraucht.

any tipps oder ist dies mit der Transfer.Text-Aktion nicht zu lösen?

 

Du bringst da was durcheinander:

Die Suche erfolgt durch Suchmaske (*.txt) und liefert mehrere Dateien in der Do-Schleife. Importiert wird jede Datei einzeln.

Die Suche hat aber wenig Sinn, wenn keine Maske, sondern ein fester Dateiname vorgegeben ist, dann gibt es höchstens einen Treffer.

Und ein Import von *.txt geht auch nicht, weil das kein Dateiname ist.

 

Code:

Wenn Du Dich direkter an die Vorlage hältst, geht es meistens schneller ...

 

Code:

hey, saubere sache. hier liegts wohl an der übung und erfahrung (oder man kanns einfach)...hätte ich jetzt auf den ersten blick nicht gesehen, dass ich dies so lösen kann. ok, oder die vorlage besser studiert...

das mit dem current.path weglassen habe ich selbst schon verändert, als ich geschnallt habe, was da genau passiert.

danke, ein erster schritt gelöst.

jetzt gehts ans automatisch einlesen, und verschieben der dateien.
danach noch das ganze der basistabelle auf die versdchiedenen verteilen.

versuche nun mal wieder selber weiter...

ihr seid eine echte hilfe hier!
danke nochmals *Smilie

 

Ich habe noch etwas weiters daran gearbeitet:
Eine Basistabelle (mit allen eingelesenen Werten) ist per Button-Klick in einem Formular aktualisierbar und die neuen Daten von Textfiles werden angefügt. Die eingelesen Textfiles werden in einen neuen Ordner (abgeschlossen) verschoben, so dass der mit den noch einzulesenden Files nach jedem Importvorgang leer ist.

Stehe nun bei folgendem Problem noch etwas an, da ich keine geeigneten Beispele gefunden habe.

- Ich möchte einzelne Spalten der Basistabelle in die Endtabellen kopieren, welche ich für die Auswertungen benutze. Dies natürlich wieder automatisiert nach dem Importieren der Daten in die Basistabelle.

- Die Basistabelle soll nicht gelöscht werden und alle Daten behalten.

Hat jemand gerade ein ähnliches Beispiel dafür oder kann mir sonst Tipps geben.
Ich suche unterdessen auch noch weiter.