Office: (Office 2003) Textfile importieren

Einmal bei Josef P. (eine enorme Quelle an Wissen, aber auch an Strategien und Hintergründen) gelesen und nicht vergessen, sondern notiert und ausprobiert. Letzteres in mehreren Schritten, da mir der direkte Zugriff auf eine "Tabelle" nur wirklich etwas nützt, wenn ich das mit vorhandenen SQL-Kenntnissen variabel und intensiv ausnutzen kann und somit besser bedient bin als mit den Standardmethoden, die ja auch einiges bieten.

 

Hallo allerseits,
bzgl. meines Imports habe ich mir nun eine Variante gebastelt, welche soweit auch funktioniert. Zumindest zum Einlesen der ersten Textdatei, d.h. die do while-schleife wird nur 1x durchlaufen, obwohl ich noch 2 weitere Textdateien im gleichen Verzeichnis habe. Ich habe mir bereits den Inhalt der Variablen SPATH und SFILE an verschiedenen Stellen ausgeben lassen, um zu prüfen, ob der Inhalt stimmt. Auch zum Ende nach der Syntax SFILE = Dir habe ich mir den Inhalt der Variable anzeigen lassen und es steht der Name der nächsten Textdatei drin. Soweit wäre das in Ordnung und richtig. Allerdings bricht er anschließend ab und liest nicht - wie gewollt - die nächste Datei ein.

Hat jemand eine Idee oder ist an meiner Schleife etwas falsch? Hier meine Schleife:

Code:

 

Moin Tanja,
erst hab ich das Loop gar nicht gefunden :-) das steht da so einsam und allein unten nach Exit sub ...
maike

 

Hallo Tanja,

vielleicht hast Du diesen Tip schon öfters bekommen, aber man kann Ihn nicht oft genug wiederholen:
"Option Explicit" im allgemeinen Deklarationsbereich zeigt solche Fehler bevor die Anwendung zum Kunden geht *wink.gif*
Dauerhaft stellst Du diese Option im VBA-Editor unter Extras->Optionen->Allgemein ein, indem Du "Unterbrechen bei Fehlern" auf "Bei jedem Fehler" oder zumindest auf "Bei nicht verarbeiteten Fehlern" einstellst.
Und nach jeder Codeänderung kompilierst!

Dann hättest Du die Meldung "DO ohne Loop" bekommen!

Gruß

LL

 

Hallo allerseits,
vielen Dank für die zahlreiche Unterstützung.

LL: Der dargestellte Code war nur der Teil mit der Schleife. Das "Option Explicit" steht in meinem gesamten Code drin und auch beide DO-Schleifen haben/hatten Ihr LOOP. Allerdings war das "äußere" LOOP (DO-WHILE) an der falschen Stelle, wie ich festgestellt habe. Habe es vor die Textmarken (ErrorImportieren und FehlerImportieren) gesetzt und man glaubt es nicht, es funzt.

Viele Grüße und Ihr seit echt super....
Tanja

 

Hallo
Vielleicht ist es nicht gewollt, aber das ganze funktioniert auch mit einer Importspezifikation.
Siehe Bilder
Die Nullwerte sollten leicht zu beseitigen sein.
17:00 habe ich als Testzeit in die Textdatei eingetragen
Der Kopf landet in der Tabelle Importfehler

 

\@ kama
Ich fürchte, das funktioniert nicht, auch wenn ich selber (#10) einen ähnlichen Vorschlag schon gemacht habe.
Es fehlt nämlich die alphanumerische PatId, die leider in der ersten Spalte zusammen mit Zahlenwerten steht.

 

\@achtelpetit
Stimmt
Aber wenn man QRS in der Importspezifikation als Text deklariert
gehts nach dem Import dieser Abfrage
Code:

Es führen ja viele Wege nach Rom