Office: Aktuellste .txt-Datei öffnen und in andere Excel-Mappe kopieren

Hallo zusammen,

bin absoluter VBA-Neuling und habe folgendes vor:

Möchte aus einem Verzeichnis immer die aktuellste Version einer .txt-Datei öffnen und diese in eine andere Excel-Mappe kopieren (soll dann eine Makro-Vorlage werden), um sie dort weiterbearbeiten zu können.

Einen Code für das Finden und Öffnen der aktuellsten Version hab ich im Netz schon gefunden:

Wie muss ich diesen Code nun ergänzen, damit der Inhalt der (aktuellsten) .txt-Datei kopiert und in der anderen Mappe eingefügt wird?

Bin für eure Hilfe sehr dankbar.

:)

 

Hallo,

was genau meinst Du damit? Grundsätzlich kannst Du das txt-File auch direkt in eine entsprechende Mappe importieren, dazu einfach mal den Makrorekorder laufen lassen.

 

Auch wenn der Duden etwas anderes behauptet/erlaubt:

Es gibt nur aktuell. Nicht aktuellst. Denn sonst wäre aktuell nicht mehr aktuell.

 

Hallo Jonas,

das mit dem Direktimport hab ich schon probiert. Wie bekomm ich das aber hin, dass dann immer die aktuelle (so o.k. lupo?) Version geladen wird, wenn ich das als Makro aufnehme?

 

Ja, wo hast du den Code denn her???
Da stimmt ja gar nichts. Gehe ich recht in der Annahme, dass du ihn noch überhaupt nicht getestet hast?

Nun zu einer Lösung, die noch dazu viel flexibler ist. Du wählst nämlich die zu ladende Datei in einem Auswahlfenster selbst aus. Dann wird der Dateiinhalt in eine Variable geladen und testweise im Direkt-Fenster des VBA-Editors ausgegeben. Danach kannst du den Text in VBA noch bearbeiten und in den richtigen Zellbereich eines bestimmten Sheets setzen. Eine Textdatei einfach mit Excel zu öffnen, ist eher (sorry) die dümmste Lösung.
Also, so geht es:
Code:

 

Hallo Hans,

habe deinen Code mal getestet. Komme aber nur bis zum Auswahlfenster, wähle dann die txt-Datei aus u. dann passiert weiter nix. Muss ich im Code noch was abändern/ anpassen? (sag ja - totaler Neuling - bring mir das grad nur mit trial and error bei)

 

Dann hast du das Direktfenster nicht geöffnet. Drücke Strg G und schaue dir den Inhalt der Textdatei an. Wenn du ihn weiter verarbeiten willst - er steht in der Variablen "Textinhalt". (Der im Code Allerdings dank des Tippfehlerteufelchens "Textihnalt" heißt)

 

Hallo Hans,

also das Gelbe vom Ei ist Dein Code jetzt auch nicht, nachdem Du so auf "die Kacke gehaun" hast^^

 

Du bist hier der Spezialist für starke Sprüche, das ist mir nicht entgangen. *grins
Aber der Code funktioniert einwandfrei.

 

Hallo Hans,

Direktfenster geöffnet - Inhalt ok. Würde ihn gern weiterverarbeiten in Excel- aber wie muss ich die Variable anpassen??

 

Oh, jetzt geht es an die Basics. Ich kann hier doch keinen Grundkurs in VBA erteilen, auch ich lerne seit über 10 Jahren täglich dazu.
Bemühe doch einmal deine Suchmaschine mit den Stichwort-Kombinationen

• vba string operationen
• vba zelle ansprechen

und ähnlichem.
Der Text liegt in der Variablen komplett in einem Stück vor. Den wirst du vielleicht nicht nur in eine Zelle setzen wollen, sondern sinnvoll auf dem Sheet platzieren. Dafür muss der Text unterteilt werden. Es gibt Funktionen zum Finden von Text im Text, zum Kopieren bestimmter Teile, usw. Eigne dir das selbst an, dabei lernst du auch viel mehr!
Was oft hilft, ist die Makro-Aufzeichnung. Dafür musst du im Menueband über dem Sheet die Registerkarte "Entwicklertools" einblenden. Starte dann daraus die Makroaufzeichnung, nimm bestimmte Operationen auf dem Sheet vor, und beende die Aufzeichnung. Dann siehst du im VBA-Editor, wie deine Schritte in VBA-Code aussehen. Der ist zwar meist sehr aufgeblasen, das geht immer viel kürzer, aber du lernst dadurch viel über VBA.

 

Hallo,

Wie ich zu diesem Ehrentitel gelange ist mir tatsächlich nicht ganz bewusst, aber sei Es wie Es sei *wink.gif*

Zugegeben, meine Antwort war schon etwas schnippig, aber keinesfalls böse gemeint.

Mir sind da nur einige Dinge, wie Ort der Variablendeklaration, Scope der Variablen, Einrückung, um nur einige zu nennen, aufgefallen. Ich persönliche finde das dann, gerade wenn man selbst am lernen ist schade, gewisse Konventionen zu "ignorieren". Sicher, Dein Code funktioniert, aber einige Sachen erschließen sich mir nicht wirklich.

Das ist natürlich meine persönliche Meinung.

Wenn ich auch einen Vorschlag in den Raum werfen darf, ich würde das wahrscheinlich so angehen (Ohne, dass die Datei von Hand ausgewählt werden muss).

Code:

Der Code schreibt jede Zeile in eine Zelle untereinander. Alternative wäre natürlich auch die Datei zu importieren oder auch mit Text in Spalten aufzuteilen. Möglichkeiten gibt es da viele. (Wir wissen ja nicht, wie Dein Ziel aussegen soll)

Es sei noch darauf hingewiesen, dass der Code in einen Fehler rennt, wenn es keine txt-Datei gibt, oder diese leer ist. Wenn Du die Datei selber aussuchen möchtest (Wie schon von Hans gezeigt) geht es auch kürzer.

Zum Schluss noch, Hans hat natürlich Recht damit, dass Du Dir die Basics mal zu Gemüte führen solltest. Dazu gibt es im Netz einige, kostenlose, Tutorials.

 

Hallo nochmal,

hier noch ein etwas kürzerer (wenn auch nicht unbedingt leichter zu verstehender) Ansatz.

Code:

 

Allerdings muss er dann den Pfad ändern auf "U:Archiv".

 

Hallo Zusammen,

erstmal vielen Dank für eure Rückmeldungen.

Habe den Textdatei-Import mittlerweile mit folgendem Code (gefunden im Netz) gelöst:

Code:

Habe diesen mittlerweile schon erweitert, dass ich den Text in Spalten bekomme.
Jetzt das nächste Problem:
Habe mehrere Spalten mit Datum, nach denen ich sortieren will. Datum bzw. Format wird aber erst erkannt, wenn ich die Zelle bearbeite u. mit Enter abschließe. Habe auch hierzu schon den passenden Code in diesem Forum gefunden:

Code:

Wie muss ich diesen Code verändern, um z.B. 3 Spalten damit anzusprechen?