letzte Zeile einer *.txt nach Excel auslesen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Laden() Dim strText As String DeineDatei = "C:\Temp\Test.txt" Open DeineDatei For Input As #1 'reserviert einen E/A- Puffer für das einlesen einer sequenzillen Datei / hier Nr.1 While Not EOF(1) ' mache folgendes bis EOF (END O FILE ) von DAteipuffer Nr1 erreicht ist Line Input #1, strText ' Liest eine Zeile von Datei1 in die Variable strText ein Wend 'geht wieder zu While.. und überschreibt die Variable mit der nächsten Zeile 'Wenn EOF gelesen wurde, steht in der Variablen der Text der letzten Zeile Close #1 ' gibt den E/A Puffer wieder frei Range("A1").Value = strText 'schreibt den Variableninhalt in Zelle A1 End Sub

Hallo
hast du die Datei mal im editor geöffnet?
Ist keine reine ASCII -Datei, vermute ein Word Dokument.
Das hast du hochgeladen (als Ascii dargestellt)
ÐÏà¡±á>þÿ "$þÿÿÿ!ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿì¥Á@ ð¿bjbjîFîF7,,ÿÿÿÿÿÿJJJJJJJ^ ^¶&&&&&&&& $CR@2J&&&&&2JJ&&G\\\&J&J& \& \\JJ\& Qö-Å&\ ]0\Õ6Õ\^^JJJJÕJ\°&&\&&&&&22^^¤F^^Zeile 1 Letzte Zeile ôèôÙhÇÎhG6UCJOJQJaJh{ìCJOJQJaJhG6UCJOJQJaJ úúúúúgdÇÎþ5 01h:pEP°. °ÆA!°"°# $n%°°u° ÄD@ñÿD StandardCJ_HaJmHsHtHJA@òÿ¡J Absatz-StandardschriftartXi@óÿ³X Normale Tabelleö4Ö l4Öaö 0k@ôÿÁ0 Keine Listeÿÿÿÿ 000x0x0x0x &å%fnàoH5d/7p6=¤CEPYQG6UèkVa`ZÃJe?hE0prZsgzá\ÐdlO¢$¤G¹ ÂdWÄÇÎMÐ[pÒQ#ÖVyÙ=Cç{ì=Nìvñ¨÷ò8ûbû½ ü'üÿ@¬ËC((`@ÿÿUnknownÿÿÿÿÿÿÿÿÿÿÿÿGz ÿTimes New Roman5Symbol3& z ÿArial"1ðÄä©ª&ª&Ñð 9´4d2QðH ðÿ?äÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ[pÒÿÿZeile 1DSDSþÿàòùOh«+'³Ù0P ¬¸ÄÐä ðü $08@HäZeile 1eilDSlSlSl Normal.dotDSm1mMicrosoft Word 10.0@jæõ-Å@jæõ-ÅþÿÕÍÕ.+,ù®0ð hp| ¤¬´ ¼ Ðä : Zeile 1 Titelþÿÿÿ þÿÿÿþÿÿÿ þÿÿÿýÿÿÿ#þÿÿÿþÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿRoot Entryÿÿÿÿÿÿÿÿ ÀF ö-Å%1Tableÿÿÿÿÿÿÿÿ WordDocumentÿÿÿÿÿÿÿÿ7SummaryInformation(ÿÿÿÿDocumentSummaryInformation8ÿÿÿÿÿÿÿÿÿÿÿÿCompObjÿÿÿÿÿÿÿÿÿÿÿÿjÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿþÿ ÿÿÿÿ ÀFMicrosoft Word-Dokument MSWordDocWord.Document.8ô9²q
Du mußt reinen Ascii erzeugen...
Wenn das vorliegt bekommst du so die Vorletzte Zeile


Sub Laden()
Dim strText$, Vorletzte$
Open "C:\Temp\Test.txt" For Input As #1
While Not EOF(1)
Vorletzte = strText
Line Input #1, strText
Wend
Close #1
MsgBox Vorletzte
End Sub

Gruß UweD

Sub Laden() Dim strText$, Vorletzte$ DeineDatei = "C:\SFIRM32\sic\STA00127.STA" Open DeineDatei For Input As #1 While Not EOF(1) Vorletzte = strText Line Input #1, strText Wend Close #1 If strText = "-" Then strText = Vorletzte Range("A4").Value = strText End Sub

Hi
1)While Not EOF(1)
2) Vorletzte = strText
3) Line Input #1, strText
4)Wend
Die gesamte Schleife wird solange durchlaufen, bis EOF erkannt wird
2) Wenn das noch nicht so ist, wird Vorletzte mit dem Wert aus StrText belegt (im ersten Durchlauf ist das noch "" (also leer)
Bei 3) wird dann die erste Zeile gelesen
4) Rücksprung zu 1)
1) immer noch kein EOF, daher
2) Jetzt wird Vorletzte mit dem Wert aus dem ersten Durchlauf gesetzt also Zeile 1
3) Zweite Zeile...
Irgendwann kommen wir zur letzten Zeile, dann steht in der Varablen Vorletzte eben die Vorletze Zeile Drin. Die Letzte wird dann in strText gelegt.
Jetz wird die Schleife wieder durchlaufen, aber jetzt wird beim Lesen eben EOF erkannt und das Programm macht bei Close weiter...
Gruß UweD

Beliebteste Forumthreads (12 Monate)

letzte Zeile einer *.txt nach Excel auslesen

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

letzte Zeile einer *.txt nach Excel auslesen

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread