Office: viele txt. dateien automatisch in excel importieren

Hallo zusammen,

hab mich lang im forum umgesehen viele lösungen gefunden aber leider nich für mein problem.

Ich möchte .txt dateien in Excel importieren (als ansi code) trennung der einzelnen spalten durch leerzeichen und die dateien dan unter gleichen namen speichern nur in einen anderen ordner.

Kann mir da jemand helfen? Es sind sehr viele dateien und ich hab schon versucht ein makro zu machen aber das funkt gar nich 

Danke im voraus für eure hilfe

:)

 

Hallo Maria

wie sehr "automatisch" hättest Du die Lösung denn gerne?

Du kannst Textdateien direkt in Excel öffnen (also einfach über das Öffnen-Menü, Du musst dann einfach im Öffnen-Fenster unten den Dateitypen so auswählen, dass Du die Textdateien auch siehst. Am einfachsten lässt Du einfach "alle Dateien" anzeigen).
Wenn Du so eine Textdatei öffnest, startet sich automatisch der Textkonvertierungs-Assistent. Dieser besteht aus drei Schritten. Im zweiten Schritt kannst Du angeben, dass das Trennzeichen ein Leerzeichen ist.
Danach musst Du dann die Datei einfach als xls abspeichern.

Aber vielleicht ist Dir das viel zu wenig "automatisch"?!

 

hi mistkäfer *Smilie
im prinzip is das genau das was ich möchte und das funktioniert auch ganz gut nur leider muss ich ~500 dateien automatisch in excel sheets umwandeln. Es wäre toll wennsich fürs importieren und speichern ein makro oä. gibt

 

Moin, maria45687,

vielleicht kann der Code von Hans W. Herber aus Textdatei in Tabellenblatt importieren als Basis dienen. Dabei muss das Trennzeichen von Semikolon auf Space gesetzt werden.

Zum Speichern kann dann die Anweisung ActiveWorkbook.SaveAs verwendet werden; für den Dateinamen kann der Ordner als Variable/Konstante mit verwendet werden: FileName:=strVerzeichnis & ActiveWorkbook.Name & ".xls".

Letzlich fehlt dann noch die Angabe, ob sich die Textdateien z.B. alle in einem Verzeichnis befinden oder ob es eine Liste gibt, die abzuarbeiten ist, oder ob die Angaben immer über eine Dialogbox ausgewählt werden sollen - es gibt unterschiedliche Schleifen, die sich für die jeweilige Vorgehensweise empfehlen.

 

Hi jinx,
das hört sich vielversprechend an.
Die dateien sind alle in einem ordner und sollen mit dem selben namen wie schon die txt dateien in einen unterordner gespeichert werden

 

p.s. es sollen alle in einen ordner befindlichen txt dateien umgewandelt werden, es gibt keine dateien die ausgelassen werden sollen

 

Moin, maria45687,

und wie darf ich vielversprechend deuten? *wink.gif*

Dann würde ich ein Vorgehen analog zu Dateien im Verzeichnis öffnen verwenden, was um die im vorherigen Beitrag genannten Puzzle-Teilchen erweitert werden muss, damit nachher immer nur die aufrufende Mappe (die sich idealerweise in einem anderen Verzeichnis befinden sollte) offen bleibt.

Solltest Du Probleme bei der Umsetzung / dem Zusammenfügen der Codes haben, bitte melden, ggf. mit Hinweis auf die Stelle, die Probleme bereitet - ich bin optimistisch und gehe davon aus, dass die Fundstellen bzw. Bruchstücke zur Lösung ausreichen.

 

\@jinx: danke für deine hilfe

beim komplilieren meldet der VB editor "außerhabl der prozedur ungültig"
lt. vb hilfe muss es innerhalb einer sub liegen hab ich dann auch geändert hat aber auch nix geholfen *frown.gif*
dürfte ich dich noch einmal bitte den code zu checken hab davon leider null ahnung

dank dir im voraus
LG maria

Code:

 

Moin, maria45687,

da waren einige Dinge, die beim Übertragen falsch gelaufen sind - am häufigsten tauchten die Anführungszeichen auf, die Excel monierte.

Bitte füge den folgenden Code in ein neu angelegtes Modul per STRG+C/STRG+V ein - solltest Du das Makro mehrfach ausführen, erscheint der Hinweis, dass eine Mappe des Namens bereits existiert; diese ist zur Zeit nicht ausgeschaltet, kann aber durch die beiden auskommentierten Zeilen nachträglich aktiviert werden. Bitte beachten, dass die Meldungen wieder eingeschaltet werden sollten:

Code:

 

Hallo!

Ich habe mir das oben angesprochene VBA-Script geschnappt und ein wenig verändert, da es nicht komplett auf meine Vorgabe passt. So an und für sich läuft es auch aber leider gibt es keine Ausgabe. Ich arbeite mit Excel 03 und habe Windoof XP SP2 wobei ich glaube das das OS kaum was zur sache tut.

So hier jetzt erstmal das veränderte Script und noch bissel Erklährung was ich gerne hätte:

Also ich habe 10 Textfiles in einem Verzeichnis diese wie folgt aussehen und sich jeden Monat verändern uns somit hätte ich das gerne möglichst Automatisiert.
---------------------------
The following directories have exceeded the storage limits of 1 megabytes:

Size (mb) Directory
140.065.88 Laufwerk&Pfad
9.877.04 Laufwerk&Pfad
---------------------------
Leider sind vor der "Size" wirklich Leerzeichen aber ich denke das habe ich im OpenText Befehl abgefangen. Durch die StartRow:=4 dürfte auch der Kopf der Datei nicht mit übernommen werden. Es soll am ende wie folgt aussehen. Eine XLS-File (die angelegt ist) soll am Ende alle informationen bis auf den Kopf aus den 10 Textfiles enthalten und zwar die "Size" in der ersten Spalte und den Pfad in der zweiten.
Das Script läuft einwandfrei durch es öffnet alle 10 TXT-Files (kann ich kurz in der Taskleiste erkennen) und schließt diese auch gleich wieder nur leider ist in meiner Ziel-XLS Datei kein einziger Eintrag enthalten. Da ich schon über 2 Jahre nichtsmehr mit VB6 od. VBA zu tun hatte musste ich jetzt diesen Beitrag schreiben da ich bis Freitag dieses Script fertiggestellt haben muss und ich noch ein paar kleinere Probleme beheben muss wie die Umbenennung von den Pfadangaben und ähnliches. Aber mir ist erstmal wichtig das dieses Script einwandfrei läuft.

Code:

 

Moin, KainzVonBeiden,

schon richtig - meist passen die Dinge nicht oder sind nicht dafür geeignet. So geht es mir immer wieder, wenn ein User meint, einen alten Beitrag aus der Versenkung zu holen und dann Hilfe bei einer Lösung in der Anpassung zu finden... *rolleyes.gif* Ein Beispiel Soll/Ist als Anhang könnte vielleicht die Neugierde wecken - der Hinweis auf eine Lösung bis Freitag tut es jedenfalls bei mir nicht. *wink.gif*

 

Ehrlichgesagt verstehe ich deinen Beitrag nicht ganz. Aber ok ich versuchs mal.
Ist: Das Script aus meinem Beitrag ist das abgewandelte Script vom Beitrag darüber. Derzeitiger Ist-Zustand.
Soll: Steht eigentlich alles in meinem Beitrag über dem Script. Das Problem ist das die XLS Datei in die, die Inhalte der TXT Dateien geschrieben werden sollen nach Abarbeitung immernoch keine Eintragungen enthält.
Ich wollte dich nicht irgendwie unter druck setzen oder dir auftragen Du musst es machen es war nur eine Anmerkung das ich es bis Freitag lauffähig haben muss, das heißt aber noch lange nicht das Du lust dazu haben muss mir zu helfen was ich auch garnicht verlange aber vielleicht bist du ja ein netter Mensch und versuchst es. Wäre dir auch übermässig dankbar.
Das ich einen Beitrag aus geraumer Vorzeit wieder ans Tageslicht zurückhole hat eigentlich nur einen Grund, ich wollte keinen neuen Beitrag anfangen wenn es schon über dieses Thema einen Beitrag gibt. Ich kenne viele Foren in denen doppelte Beiträge sehr schnell wieder gelöscht werden weil es im normalfall nämlich so aussieht als hätte derjenige nicht einmal versucht sich im Forum schlau zu machen ob dieses Thema schon irgendwann mal bearbeitet wurde.