HERBERS Excel-Forum - das Archiv
Thema: Bestimmte Zellen in TXT-File | Herbers Excel-Forum
-
Bestimmte Zellen in TXT-FileSimone
Bestimmte Zellen in TXT-File
Simone
Hallo.
Würde es eine Möglichkeit geben, bestimmte Zellen (A6, A8, B5,...) zu definieren und diese dann in ein TXT-File zu exportieren? ABER nun kommt es. Das TXT-File sollte später weiter gefüllt werden können.
Sprich, wenn ich eine andere Excel-Datei habe und dort exportiere. Weiter mit gleichem TXT-File. Einfach nächste Zeile oder mit separatem Abstand?
Ich sollte später das auch wieder in eine Excel einlesen können?!
Vielleicht gleich in eine Excel-Datei fortlaufend eintragen?
Mhh, ich finde aber hier leider keine guten Grundcodes zum Thema. Wo auch funktionieren?
Gruß
Simone
AW: Bestimmte Zellen in TXT-File
Tino
Hallo,
dies geht in etwa so (nicht getestet).
Dim F As Integer
Dim sFilename$,sLine$
'Deine Text Datei
sFilename="C.\Ordner\MeinTextFile.txt"
'Text zusammenführen (oder eine Schleife bauen).
sLine = Range("A6").text & vbcrlf & Range("A8").text & vbcrlf & Range("A5").text
F = FreeFile
Open sFilename For Append As #F
Print #F, sLine
Close #F
AW: Bestimmte Zellen in TXT-File
Simone
SUPER, der Export klappt mal.
Wie kann ich das VBA einfach importieren? Jede Zeile eine Spalte weiter einfügen...
Gruß
Simone
AW: Bestimmte Zellen in TXT-File
Tino
Hallo,
dieser Code hängt den Text immer in einer neuen Zeile an.
Einer Leerzeile dazwischen müsste so gehen.
'...
sLine = vbcrlf & Range("A6").text & vbcrlf & Range("A8").text & vbcrlf & Range("A5").text
'...
AW: Bestimmte Zellen in TXT-File
Simone
VIELEN DANK, Tino!!!
Habe den Export auf ; geändert ist mir lieber.
Aber der Import? Weiters, wie unterscheide ich den nächsten Satz?
Derzeit steht das nun in meiner Textdatei:
2;2;AGR;5;102;52;10;602;2;UPS;2;102;-98;2;6
Ich sollte das nun in Spalten importieren. Also so:
Spalten A B C D E F G H
Zeile 1 2 2 AGR 5 102 52 10 602
Zeile 2 2 2 UPS 2 102 -98 2 6
Mhh, nicht gerade hübsch. Aber ich hoffe du verstehst was ich meine.
Gruß
Simone
AW: Bestimmte Zellen in TXT-File
Tino
Hallo,
verwende doch einfach unter
Daten -> Externe Daten importieren -> Daten Importieren -> folge dem Assistenten.
Dies kannst Du Dir auch mit dem Rekorder aufzeichnen, den Code etwas aufräumen (ohne Select usw.).
Gruß Tino
sorry Fettschrift nochmal abstellen. owT.
Tino
AW: sorry Fettschrift nochmal abstellen. owT.
Simone
Hab leider nur Excel XP und da geht es nur mit Öffnen. Beim Aufzeichnen kann ich den Sprung zur nächsten Zeile nicht definieren? Jeder 10te Wert beginnt in der nächsten Zeile...
?
Gruß
Simone
AW: sorry Fettschrift nochmal abstellen. owT.
Tino
Hallo,
mach beim Export zwischen den Zeilen einen Zeilenumbruch rein.
"2;2;AGR;5;102;52;10;602" & vbcrlf & "2;UPS;2;102;-98;2;6"
dann hast Du auch zwei Zeilen und diese kannst Du leicht importieren wie gewünscht.
Anders müsste man zu weit ausholen mit VBA.
Gruß Tino
Excel-Beispiele