Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
536to540
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
536to540
536to540
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Exceldaten in Ascii.txt speichern

Exceldaten in Ascii.txt speichern
25.12.2004 18:34:11
Lokutus
Hallo,
ich möchte aus Excel heraus eine Ascii Datei (mit festgelegtem Format)erzeugen, welche ich in ein anderes Programm importieren kann. Die Ascii Datei soll wie folgt aussehen:
"
VERSION;1;2
KURSE
wkn1;09.07.99;101;100000;102,02;106,03;100,04;105,05
wkn2;09.07.99;201;200000;202,02;206,03;200,04;205,05
wkn3;09.07.99;301;300000;302,02;306,03;300,04;305,05
wkn4;09.07.99;401;400000;402,02;406,03;400,04;405,05;1000;2000
wkn5;01.07.99;501;500000
wkn5;02.07.99;502;500000
wkn5;04.07.99;503;500000
wkn5;05.07.99;504;500000
wkn5;06.07.99;505;500000
wkn5;07.07.99;506;500000
wkn5;08.07.99;507;500000
wkn5;09.07.99;508;500000
ENDE
"
Die Excel Datei enthält die die Daten in einzelnen Zellen. Beispiel A1=wkn1,A2=09.07.99 usw.
Der Ascii Kopf: VERSION;1;2
KURSE
und die Fusszeile ENDE ist immer gleich.
Wie bekomme ich das möglichst komfortabel in Excel zu stande bzw. ein möglicher Lösungsansatz würde mir auch schon helfen?
Danke und Gruss
Lokutus

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Exceldaten in Ascii.txt speichern
25.12.2004 19:05:02
NE
Hi,
probiers mal so:
lg Nancy
--

Sub asdf()
Dim r&, c%, s$
Open "d:\myfile.txt" For Output As #1
Print #1, "VERSION 1.2"
Print #1, "Kurse:"
For r = 1 To Cells(Rows.Count, 1).End(xlUp).Row
s = ""
For c = 1 To Cells(r, Columns.Count).End(xlToLeft).Column
s = s & Cells(r, c).Value & ";"
Next
Print #1, s
Next
Print #1, "ENDE"
Close #1
End 


Sub
AW: Exceldaten in Ascii.txt speichern
25.12.2004 20:06:38
Lokutus
Hi,
danke für die schnelle Antwort. Leider kenne ich mich nicht so gut aus. Wo genau muss ich den Quellcode einfügen das ich es testen kann.
Gruss Lokutus
Anzeige
AW: Exceldaten in Ascii.txt speichern
25.12.2004 20:23:20
NE
oki, noch fix;-)
in excel / Alt + F11, es öffnet sich der VBEditor
Dort unter Menue Einfügen / Modul, in das Fenster kopierste den Code
Dann noch in der zeile: open "d:\myfile.txt" for output as #1
ggf den Pfad anpassen, also irgendsowas:
open "c:\temp\myfile.txt" for output as #1
VBE schliesen und unter xl Alt+F8 bzw Extras / Makros / asdf ausführen
cu Nancy
AW: Exceldaten in Ascii.txt speichern
25.12.2004 20:44:51
Lokutus
aha danke habs hinbekommen.
vielen dank
gruss Lokutus

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige