Office: (Office 2003) TXT-Datei automatisiert importieren

Hallo,

ich habe eine Access Datenbank und zudem eine Textdatei (enthält keine Überschriften).
In der Textdatei werden die Daten durch ~ voneinander getrennt.

Wenn der erste Anwender am Tag die Datenabnk öffnet, soll automatisch die TXT importiert werden.

Wie kann ich das bewerkstelligen? Leider kenne ich mich mit VBA so gut wie gar nicht aus. Nur aus der Schule noch ein paar Brocken.

Ich denke man müsste bei jedem Aufruf der Datenbank das Datum der Tabelle XYZ (aus der Datenbank) auslesen. Wenn das Datum älter als heute ist, dann soll der Import der TXT starten.
Könnt Ihr mir bitte sagen wie ich das in VBA ausdrücken muss und an welcher Stelle ich den Code einfügen muss?
Danke sehr im voraus. Grüße

:)

 

Das Forum hat eine Suchfunktion, bitte nutze sie.

 

Wenn du im Forum nach "TransferText" suchst, wirst du schon eine ganze Menge Hinweise und Beispiele finden. Bei konkreteren Fragen dann gern wieder melden *wink.gif* .
maike

 

Hallo!

Um Deine Routine bei jedem Start der Datenbank ablaufen zu lassen, kannst Du in den Start-Eigenschaften ein Formular definieren. In das Form-Load-Ereignis dieses Formulars fügst Du dann den Code ein, der ggfs. den Import durchführt.

Vielleicht kannst Du Dich schon mal ein wenig auf logischer Ebene dem Problem nähern:
1. Datum des letzten Imports aus Tabelle ermitteln
2. Vergleichen mit Tagesdatum
3. Wenn Letzter Import = heute dann Prozedur verlassen
4. Sonst Daten importieren
5. Und dam Ende das Datum des letzten Imports speichern

Wenn Du das jetzt Stück für Stück ausprogrammierst, solltest Du zum Ziel kommen. Sollte es dabei konkrete Porbleme geben - Du weißt, wo Du uns findest. *wink.gif*

CU

 

Folgendes habe ich mir mal zusammengesucht. Leider kann ich es noch nicht funktionierend zusammensetzen:

1.)

2.+3.)

Bei dem Import der TXT komme ich nicht weiter. Es soll die bestehende Tabelle in Access ersetzt werden. Es müsste doch auch gehen das die IF Funktion ein Makro startet mit TransferText? Wie gebe ich dem Makro denn die Spaltenüberschriften mit?
Danke im voraus.

 

Hallo,

ich würde das Datum des letzten Imports in einer extra dafür angelegten Tabelle speichern. Um diesen Wert dann wieder auszulesen kanst Du die Funktion DLOOKUP verwenden.

CU

 

Hallo

Importieren und dann sofort löschen stellt sicher, dass nur die neuesten Daten importiert werden. Die Daten an eine vorbereitete Tabelle anhängen.

 

Ich habe den Code soweit erstellt wie es mir sinnvoll erscheint. Leider funktioniert es nicht. Was habe ich falsch gemacht? Sicherlich eine Menge. *frown.gif*

Code:

 

Hallo
Ich benötige von dir folgendend Informationen.
Name der TXT Datei, bzw ändert er sich.
Felder die importiert werden sollen
Tabellenstruktur der Tabelle in die Importiert sind.
Zu deinem Code fällt mir nur ein:
*Smilie Warum einfach, wenns auch kompliziert geht. *Smilie

 

Hallo!

Leg Dir in Deiner Datenbank mal eine zusätzliche Tabelle an. Diese nennst Du tbl_Import. Darin fügst Du ein Feld vom Datentyp Datum/Zeit ein. Dieses Feld nennst Du DatumImport.

In Deinem Code kannst Du jetzt das Datum des letzten Import wie folgt ermitteln:

Code:

Damit dieser Code funktioniert musst Du beim ersten mal manuell ein Datum in das Feld eintragen.

Nimm diesen Code-Brocken bitte als Anfang und versuche Dich dann weiter vorzuarbeiten.

HTH

 

Ich habe den Code nochmal überarbeitet. Ich habe ein funktionierendes Makro erstellt und dieses in VBA konvertiert. Ich verwende eine zuvor erstellte Importspezifikation.
Wieso haltet ihr es für besser einen DLOOPUP einzubauen? Ich hatte vor, das Erstelldatum der Tabelle in Access auszulesen und mit dem aktuellen Datum zu vergleichen und ggf. die TXT importieren.

Code:

 

Hallo!

Mal eine ganz andere Frage: Was machst Du eignetlich mit den Daten aus der Textdatei? Werden diese Bearbeitet? Oder stehen sie nur zur Anzeige zur Verfügung?

Ich frage mich gerade, ob es nicht ausreichend ist, wenn Du diw Textdatei, die immer den gleichen Namen zu haben scheint, einfach einmalig (mit Hilfe Deiner Importspezifikation) als Tabelle nach Access verknüpfst. Du sparst Dir so nicht nur die Arbeit den Code zu schreiben, Du entlastest auch Deine Datenbank, weil Du nicht jeden Tag eine Tabelle löscht und eine neue anlegst.

CU

 

Die Datei ist ca. 50 MB groß mit knapp 70000 Datensätzen. Die Daten dienen nur zu Informationszwecken. Es gibt auch Abfragen die sich auf die Daten beziehen. Es werden in der importierten Tabelle keine Daten eingegeben.

Ich habe schon versucht die Datei lediglich zu verknüpfen. Nur kann dann leider immer nur ein Benutzer auf die Datenbank bzw. Formulare zugreifen.

Sinnvoll wäre es auch, im Code nach dem Importieren eine Komprimierung anzustoßen.

Durch den Import der TXT-Datei wächst die Datenbank von 5 auf ca. 100 MB.

 

Um das aufblähen zu verhindern/minimieren, wäre es besser nicht immer wieder ein bestehendes Tabellenobjekt zu löschen und in identischer Form neu anzulegen.
Besser ist es, nur die Daten zu bewegen; sprich den Inhalt der Tabelle zu löschen (DELETE * FROM TableX) und die neuen Daten per Anfügeabfrage (INSERT INTO...) in die bestehende Tabelle einzutragen.

In Kombination mit dem vorgeschlagenem Verknüpfen der Textdatei könnte das so aussehen:
- externe Textdatei als Tabelle verknüpfen
- zusätzliche Tabelle anlegen welche die Daten enthalten wird
- Löschabfrage auf diese Tabelle
- Anfügeabfrage die sich die Daten aus der verknüpften Textdatei ausliest und in die neue Tabelle schreibt

Dafür bräuchtest Du theoretisch nicht eine Zeile Code sondern es wäre alles über Abfragen (und somit (schnelles!) SQL) lösbar.
Die Abfragen könnten natürlich automatisiert per Code ausgeführt werden.

 

Danke für den Tipp.

Trotzdem muss ich noch im VBA Code eine Abfrage einbauen, ob die Daten schon aktualisiert wurden oder nicht. Hierbei komme ich leider nicht weiter.
Könnt Ihr mir bitte kurzfristig helfen? Ich benötige die Lösung relativ schnell. Mein Chef macht Druck ;-)
Edit: Bei jeder Ausführung der Abfragen kommen Meldungen die ich bestätigen muss. Kann man diese unterdrücken?
[ Code: